SVN: toys/rsget.pl/Video/InteriaPL

[sparky]

Author: sparky
Date: Tue Oct 13 23:43:07 2009
New Revision: 10783

Added:
   toys/rsget.pl/Video/InteriaPL
Log:
- new; video.interia.pl


Added: toys/rsget.pl/Video/InteriaPL
==============================================================================
--- (empty file)
+++ toys/rsget.pl/Video/InteriaPL	Tue Oct 13 23:43:07 2009
@@ -0,0 +1,24 @@
+#!/usr/bin/perl
+
+name: InteriaPL
+short: V:InteriaPL
+uri: qr{video\.interia\.pl/obejrzyj,film,\d+}
+slots: max
+status: OK 2009-10-13
+
+start:
+	GET( $-{_uri} );
+
+	! m{<h2>(.*?)</h2>};
+	my $fname = de_ml( $1 );
+	$fname =~ s{/}{_}g;
+	$fname .= ".flv";
+
+	INFO( name => $fname, quality => "flv" );
+
+	! m{so\.addVariable\("vid", "(\d+)"\);};
+	my $id = $1;
+
+	DOWNLOAD( "http://flv.interia.pl/l/$id.flv", fname => $fname );
+
+# vim:ts=4:sw=4