SVN: toys/rsget.pl/Video/ExtremeTube

[sparky]

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