Author: sparky
Date: Sun Oct 4 21:00:23 2009
New Revision: 10685
Added:
toys/rsget.pl/Video/MetaCafe
Log:
- new, sometimes it steals videos from youtube
Added: toys/rsget.pl/Video/MetaCafe
==============================================================================
--- (empty file)
+++ toys/rsget.pl/Video/MetaCafe Sun Oct 4 21:00:23 2009
@@ -0,0 +1,28 @@
+#!/usr/bin/perl
+
+name: MetaCafe
+short: V:MetaCafe
+uri: qr{metacafe\.com/watch/}
+slots: 8
+status: OK 2009-10-04
+
+pre:
+ use URI::Escape;
+
+start:
+ GET( $-{_uri} );
+
+ LINK( "http://youtube.com/watch?v=$1"; )
+ if $-{_referer} =~ m{/watch/yt-(.*?)/};
+
+ ! m{mediaURL=(.*?)&};
+ my $file_uri = uri_unescape( $1 );
+ ! m{<title>(.*?) - Video</title>};
+ my $fname = de_ml( $1 );
+ $fname =~ s{/}{_}g;
+ $fname .= ".flv";
+ INFO( name => $fname, quality => "flv" );
+
+ DOWNLOAD( $file_uri, fname => $fname );
+
+# vim:ts=4:sw=4
_______________________________________________
pld-cvs-commit mailing list
[email protected]
http://lists.pld-linux.org/mailman/listinfo/pld-cvs-commit
