SVN: toys/rsget.pl/Video/Err

[glen]

Author: glen
Date: Thu Oct  4 22:35:44 2012
New Revision: 12591

Modified:
   toys/rsget.pl/Video/Err
Log:
handle flv videos, but seems failing right now: http://etv.err.ee/arhiiv.php?id=98583

Modified: toys/rsget.pl/Video/Err
==============================================================================
--- toys/rsget.pl/Video/Err	(original)
+++ toys/rsget.pl/Video/Err	Thu Oct  4 22:35:44 2012
@@ -16,12 +16,13 @@
 start:
 	GET( $-{_uri} );
 
-	! m{loadFlow\('flow_player', '(rtmp://.*?)','mp4:(.*?)'\)};
+	! m{loadFlow\('flow_player', '(rtmp://[^']+)','(mp4|flv):([^']+)'\)};
 
 	my $rtmp = de_ml($1);
-	my $fname = de_ml($2);
+	my $fname = de_ml($3);
+	my $q = $2;
 
-	INFO(name => $fname, quality => "mp4");
+	INFO(name => $fname, quality => $q);
 
 	my $url = $rtmp. '/'. $fname;