SVN: toys/rsget.pl/Video/Delfi

[sparky]

Author: sparky
Date: Sun Oct  4 21:55:09 2009
New Revision: 10687

Added:
   toys/rsget.pl/Video/Delfi
Log:
- new, y0 glen ! (-:


Added: toys/rsget.pl/Video/Delfi
==============================================================================
--- (empty file)
+++ toys/rsget.pl/Video/Delfi   Sun Oct  4 21:55:09 2009
@@ -0,0 +1,25 @@
+#!/usr/bin/perl
+
+name: Delfi
+short: V:Delfi
+uri: qr{tv\.delfi\.ee/video/.*/}
+slots: 8
+status: OK 2009-10-04
+
+pre:
+       use URI::Escape;
+
+start:
+       GET( $-{_uri} );
+
+       ! m{<title>DELFI TV &#62; Video &#62; (.*?)</title>};
+       my $fname = de_ml( $1 );
+       $fname =~ s{/}{_}g;
+       $fname .= ".flv";
+       INFO( name => $fname, quality => "flv" );
+
+       ! m{addVariable\('file','(.*?)'};
+
+       DOWNLOAD( uri_unescape( $1 ), fname => $fname );
+
+# vim:ts=4:sw=4
_______________________________________________
pld-cvs-commit mailing list
pld-cvs-commit@lists.pld-linux.org
http://lists.pld-linux.org/mailman/listinfo/pld-cvs-commit