SVN: toys/rsget.pl/Get/SendSpace
sparky
sparky at pld-linux.org
Sat Sep 12 15:25:48 CEST 2009
Author: sparky
Date: Sat Sep 12 15:25:47 2009
New Revision: 10587
Added:
toys/rsget.pl/Get/SendSpace
Log:
- new
Added: toys/rsget.pl/Get/SendSpace
==============================================================================
--- (empty file)
+++ toys/rsget.pl/Get/SendSpace Sat Sep 12 15:25:47 2009
@@ -0,0 +1,25 @@
+#!/usr/bin/perl
+
+name: SendSpace
+short: SS
+uri: qr{sendspace\.com/}
+cookie: ss
+status: OK 2009-09-12
+
+start:
+ GET( $-{_uri} );
+
+ ERROR( "file not found" )
+ if /Sorry, the file you requested is not available/;
+
+ ! m#<b>Name:</b>\s*(.*?)\s*<br><b>Size:</b>\s*(\d+MB)\s*<br>#;
+ INFO( name => $1, asize => $2 );
+
+ ! m#<a id="downlink" class="mango" href="(.*?)"#;
+ my $file_uri = $1;
+
+ DOWNLOAD( $file_uri );
+
+ MULTI() if /You cannot download more than one file at a time/;
+
+# vim:ts=4:sw=4
More information about the pld-cvs-commit
mailing list