SVN: toys/rsget.pl/Video/SpankWire
sparky
sparky at pld-linux.org
Tue Oct 6 03:38:06 CEST 2009
Author: sparky
Date: Tue Oct 6 03:38:06 2009
New Revision: 10698
Added:
toys/rsget.pl/Video/SpankWire
Log:
- new, my precious
Added: toys/rsget.pl/Video/SpankWire
==============================================================================
--- (empty file)
+++ toys/rsget.pl/Video/SpankWire Tue Oct 6 03:38:06 2009
@@ -0,0 +1,27 @@
+#!/usr/bin/perl
+
+name: SpankWire
+short: V:SpankWire
+uri: qr{spankwire\.com/}
+slots: 8
+status: OK 2009-10-05
+
+start:
+ GET( $-{_uri} );
+
+ ! m{<title>(.*?)</title>};
+ $-{fname} = de_ml( $1 );
+ $-{fname} =~ s{/}{_}g;
+ $-{fname} .= ".flv";
+
+ INFO( name => $-{fname}, quality => "flv" );
+
+ ! m{videoPath:"(/Player/VideoXML.*?)"};
+ my $uri = uri_unescape( $1 );
+ GET( $uri );
+
+ ! m{<url type="string">(.*?)</url>};
+ my $file_uri = de_ml( $1 );
+ DOWNLOAD( $file_uri, fname => $-{fname} );
+
+# vim:ts=4:sw=4
More information about the pld-cvs-commit
mailing list