SVN: toys/rsget.pl/Get/RapidShareDE
sparky
sparky at pld-linux.org
Tue Oct 13 16:06:16 CEST 2009
Author: sparky
Date: Tue Oct 13 16:06:16 2009
New Revision: 10774
Added:
toys/rsget.pl/Get/RapidShareDE
Log:
- new
Added: toys/rsget.pl/Get/RapidShareDE
==============================================================================
--- (empty file)
+++ toys/rsget.pl/Get/RapidShareDE Tue Oct 13 16:06:16 2009
@@ -0,0 +1,49 @@
+#!/usr/bin/perl
+
+name: RapidShareDE
+short: RS.de
+uri: qr{rapidshare\.de/}
+status: OK 2009-10-13
+
+start:
+ GET( $-{_uri} );
+
+ ERROR( "file not found" )
+ if m{<p><script>alert.*?</script>(File not found|This file has been deleted).*?</p>};
+
+ ! $-{form} = $self->form( match => { action => qr{^http://rapidshare\.de$} } );
+ $-{form}->set( "dl.start" => "Free" );
+ GET( $-{form}->post() );
+
+ ! m{<p><p>You have requested the file <b>(.*?)</b> \(($STDSIZE)\)\.</p>};
+ INFO( name => $1, asize => $2 );
+
+ RESTART( $1 * 60 + 10, "free limit reached" )
+ if /Instant download access! \(Or wait (\d+) minutes\)/;
+
+ MULTI() if /Your IP-address .+? is already downloading a file/;
+
+ ! m{<script>var c = (\d+); fc\(\);};
+ $-{wait} = $1;
+
+ ! m{getElementById\("dl"\).innerHTML = unescape\('(.*?)'\)};
+ my $form = uri_unescape( $1 );
+ $-{dlform} = $self->form( source => $form );
+
+ ! $form =~ m{<img src="(.*?)">};
+ $-{img} = $1;
+
+ GET( $-{img}, keep_referer => 1 );
+
+ CAPTCHA( "image/png" );
+
+ $-{dlform}->set( captcha => $_ );
+
+ WAIT( $-{wait}, "starting download" );
+
+ DOWNLOAD( $-{dlform}->post() );
+
+ RESTART( -1, "invalid captcha" )
+ if /Access-code wrong/;
+
+# vim:ts=4:sw=4
More information about the pld-cvs-commit
mailing list