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() );
}
_______________________________________________
pld-cvs-commit mailing list
[email protected]
http://lists.pld-linux.org/mailman/listinfo/pld-cvs-commit
