Author: sparky
Date: Sun Oct 4 17:45:29 2009
New Revision: 10681
Added:
toys/rsget.pl/Video/Google
Log:
- new
Added: toys/rsget.pl/Video/Google
==============================================================================
--- (empty file)
+++ toys/rsget.pl/Video/Google Sun Oct 4 17:45:29 2009
@@ -0,0 +1,31 @@
+#!/usr/bin/perl
+
+name: Google
+short: V:Google
+uri: qr{video\.google\.com/videoplay\?}
+slots: 8
+status: OK 2009-10-04
+
+pre:
+ use URI::Escape;
+
+start:
+ GET( $-{_uri} );
+
+ ! m{<title>(.*?)</title>};
+ my $name = de_ml( $1 );
+ $name =~ s{/}{_}g;
+ INFO( name => $name, size => -1 );
+
+ my @file_uri;
+ if ( /<a href=(http.*?ck1)>/ ) {
+ @file_uri = ( $1 );
+ } else {
+ ! m{videoUrl\\x3d(.*?)\\x26};
+ @file_uri = (uri_unescape( $1 ),
+ fname => "$name.flv" );
+ }
+
+ DOWNLOAD( @file_uri );
+
+# vim:ts=4:sw=4
_______________________________________________
pld-cvs-commit mailing list
[email protected]
http://lists.pld-linux.org/mailman/listinfo/pld-cvs-commit
