Author: sparky Date: Sat Jun 5 04:04:56 2010 New Revision: 11541 Modified: toys/rsget.pl/Video/ExtremeTube Log: - updated / fixed
Modified: toys/rsget.pl/Video/ExtremeTube ============================================================================== --- toys/rsget.pl/Video/ExtremeTube (original) +++ toys/rsget.pl/Video/ExtremeTube Sat Jun 5 04:04:56 2010 @@ -10,7 +10,7 @@ web: "http://www.extremetube.com/"; uri: qr{extremetube\.com/video/} slots: max -status: BROKEN 2010-06-04 +status: OK 2010-06-05 start: GET( $-{_uri} ); @@ -20,18 +20,10 @@ $-{fname} =~ s{/}{_}g; $-{fname} =~ s/\s*$/.flv/; - ! m{flashvars\.options = "(.*?)"}; - GET( $1 ); + INFO( name => $-{fname}, quality => "flv" ); - ! m#<flv_url>(.+?)</flv_url>#; - $-{file_uri} = $1; - ! m#<width>(\d+)</width>#; - my $width = $1; - ! m#<height>(\d+)</height>#; - my $height = $1; + ! m{flashvars\.video_url = '(.*?)'}; - INFO( name => $-{fname}, quality => $width."x".$height ); - - DOWNLOAD( $-{file_uri}, fname => $-{fname} ); + DOWNLOAD( $1, fname => $-{fname} ); # vim: filetype=perl:ts=4:sw=4 _______________________________________________ pld-cvs-commit mailing list [email protected] http://lists.pld-linux.org/mailman/listinfo/pld-cvs-commit
