SVN: toys/rsget.pl/Get/RapidShark

[sparky]

Author: sparky
Date: Sun Jan 10 00:55:07 2010
New Revision: 11094

Modified:
   toys/rsget.pl/Get/RapidShark
Log:
- updated, multiple parallel downloads allowed now


Modified: toys/rsget.pl/Get/RapidShark
==============================================================================
--- toys/rsget.pl/Get/RapidShark	(original)
+++ toys/rsget.pl/Get/RapidShark	Sun Jan 10 00:55:07 2010
@@ -9,8 +9,9 @@
 short: RK
 web: "http://www.rapidshark.pl/"
 tos: "http://www.rapidshark.pl/tos.html"
-uri: qr{rapidshark\.pl/}
-status: OK 2009-10-22
+uri: qr{rapidshark\.pl/[a-z0-9]{12}/}
+slots: max
+status: OK 2010-12-10
 
 start:
 	GET( $-{_uri} );
@@ -28,7 +29,7 @@
 
 	CLICK( $form->post() );
 
-	if ( /(?:You have to wait|Proszę czekać) (.*) (?:till next download|aby ściągnąć kolejny plik)/ ) {
+	if ( /Muszisz poczekać (.*) aby pobrać następny plik/ ) {
 		$_ = $1;
 		my $wait = 0;
 		$wait += 60 * 60 * $1 if /(\d+) (hour|godzin)/;
@@ -55,15 +56,19 @@
 
 	$-{form}->set( code => $_ );
 
-	WAIT( $-{wait}, "starting download" );
+	WAIT( $-{wait}, "waiting for download link" );
 	
-	DOWNLOAD( $-{form}->post() );
+	CLICK( $-{form}->post(), "expecting download link" );
 
 	if ( /{lang_dod_7}/ ) {
 		CAPTCHA_RESULT( "FAIL" );
 		GOTO stage_captcha;
 	}
 
+	! m{<a href="(http://shark\d+\.rapidshark\.pl/cgi-bin/dl\.cgi/.*?/.*?)">};
+
+	CLICK_DOWNLOAD( $1 );
+
 
 perl: