SVN: toys/rsget.pl/Get: 4Shared ArchivTo MegaShares MegaUpload

sparky sparky at pld-linux.org
Thu Oct 22 20:09:44 CEST 2009


Author: sparky
Date: Thu Oct 22 20:09:44 2009
New Revision: 10822

Modified:
   toys/rsget.pl/Get/4Shared
   toys/rsget.pl/Get/ArchivTo
   toys/rsget.pl/Get/MegaShares
   toys/rsget.pl/Get/MegaUpload
Log:
- some leftovers


Modified: toys/rsget.pl/Get/4Shared
==============================================================================
--- toys/rsget.pl/Get/4Shared	(original)
+++ toys/rsget.pl/Get/4Shared	Thu Oct 22 20:09:44 2009
@@ -3,7 +3,7 @@
 name: 4Shared
 short: 4S
 uri: qr{4shared\.com/(account/)?file/}
-slots: 8
+slots: max
 status: OK 2009-10-21
 
 unify:

Modified: toys/rsget.pl/Get/ArchivTo
==============================================================================
--- toys/rsget.pl/Get/ArchivTo	(original)
+++ toys/rsget.pl/Get/ArchivTo	Thu Oct 22 20:09:44 2009
@@ -3,7 +3,7 @@
 name: ArchivTo
 short: AT
 uri: qr{archiv\.to/}
-slots: 8
+slots: max
 status: OK 2009-10-21
 
 start:

Modified: toys/rsget.pl/Get/MegaShares
==============================================================================
--- toys/rsget.pl/Get/MegaShares	(original)
+++ toys/rsget.pl/Get/MegaShares	Thu Oct 22 20:09:44 2009
@@ -4,7 +4,7 @@
 short: MS
 uri: qr{d01\.megashares\.com/\?d01=}
 cookie: !ms
-status: OK 2009-10-03
+status: OK 2009-10-22
 
 unify:
 	return "http://d01.megashares.com/?d01=$1" if /\?d01=([0-9a-f]{7})/;
@@ -61,7 +61,7 @@
 	$-{passport_num} = $1;
 
 	! m{<img src="(index.*?)" alt="Security Code"};
-	GET( $1 );
+	GET( $1, keep_referer => 1 );
 
 	CAPTCHA(
 		qr/[0-9]{4}/,
@@ -77,7 +77,7 @@
 			( $captcha, $-{random_num}, $-{passport_num}, "replace_sec_pprenewal" ) )
 		. "&rsrnd=$rand";
 
-	GET( $ajax );
+	GET( $ajax, keep_referer => 1 );
 
 	if ( /Thank you for reactivating your passport/ ) {
 		CAPTCHA_RESULT( "OK" );
@@ -89,7 +89,7 @@
 
 stage_download:
 
-	DOWNLOAD( $-{file_uri} );
+	CLICK_DOWNLOAD( $-{file_uri} );
 
 perl:
 

Modified: toys/rsget.pl/Get/MegaUpload
==============================================================================
--- toys/rsget.pl/Get/MegaUpload	(original)
+++ toys/rsget.pl/Get/MegaUpload	Thu Oct 22 20:09:44 2009
@@ -7,7 +7,7 @@
 uri: qw{megarotic\.com/(../)?\?d=}
 uri: qw{sexuploader\.com/(../)?\?d=}
 uri: qw{megavideo\.com/\?d=}
-status: OK 2009-08-24
+status: OK 2009-10-22
 
 pre:
 	my @captcha_solver;
@@ -52,8 +52,7 @@
 	if ( /The file you're trying to download is password protected/ ) {
 		ERROR( "password required" ) unless exists $-{_opts}->{pass};
 
-		my $form;
-		! $form = $self->form( id => "passwordform" );
+		! my $form = $self->form( id => "passwordform" );
 		$form->set( filepassword => $-{_opts}->{pass} );
 		CLICK_NEXT( stage_last, $form->post() );
 	}


More information about the pld-cvs-commit mailing list