SVN: toys/rsget.pl/Video/Banzaj

[sparky]

Author: sparky
Date: Sun Oct  4 22:56:20 2009
New Revision: 10691

Added:
   toys/rsget.pl/Video/Banzaj
Log:
- new


Added: toys/rsget.pl/Video/Banzaj
==============================================================================
--- (empty file)
+++ toys/rsget.pl/Video/Banzaj	Sun Oct  4 22:56:20 2009
@@ -0,0 +1,25 @@
+#!/usr/bin/perl
+
+name: Banzaj
+short: V:Banzaj
+uri: qr{video\.banzaj\.pl/film/\d+/}
+slots: 8
+status: OK 2009-10-04
+
+start:
+	GET( $-{_uri} );
+
+	! m{<title>(.*?)</title>};
+	my $fname = de_ml( $1 );
+	$fname =~ s{/}{_}g;
+	$fname .= ".flv";
+	INFO( name => $fname, quality => "flv" );
+
+	! m{new SWFObject\("(.*?player\.swf)"};
+	$-{_referer} = $1;
+
+	! m{addVariable\("file","(.*?)"};
+
+	DOWNLOAD( uri_unescape( $1 ), fname => $fname );
+
+# vim:ts=4:sw=4