Author: sparky
Date: Sun Oct 4 01:33:10 2009
New Revision: 10671
Modified:
toys/rsget.pl/Get/DepositFiles
Log:
- updated
Modified: toys/rsget.pl/Get/DepositFiles
==============================================================================
--- toys/rsget.pl/Get/DepositFiles (original)
+++ toys/rsget.pl/Get/DepositFiles Sun Oct 4 01:33:10 2009
@@ -3,7 +3,7 @@
name: DepositFiles
short: DF
uri: qr{depositfiles\.com/}
-status: OK 2009-09-12
+status: OK 2009-10-04
start:
GET( $-{_uri} );
@@ -18,24 +18,23 @@
if /We are sorry, but all downloading slots for your country
are busy/;
if ( m{<form action="(.*)" method="get" onSubmit="download_started} ) {
- $-{file_uri} = $1;
+ $-{dl_form} = $self->form( match => { onsubmit =>
qr/^download_started/ } );
return $self->stage_download();
}
- ! /<form action="(.*?)" method="post">/;
- GET( $1, post => { gateway_result => 1 } );
+ my $form = $self->form( match => { body => qr/name="gateway_result"/ }
);
+ GET( $form->post() );
RESTART( $1, "free limit reached" )
if m#<span
class="html_download_api-limit_interval">(\d+)</span>#;
MULTI() if m#<span class="html_download_api-limit_parallel">#;
- ! /<form action="(.*?)" method="get" onSubmit="download_started/;
- $-{file_uri} = $1;
+ $-{dl_form} = $self->form( match => { onsubmit => qr/^download_started/
} );
WAIT( 60, "starting download" );
stage_download:
- DOWNLOAD( $-{file_uri} );
+ DOWNLOAD( $-{dl_form}->post() );
RESTART( $1, "traffic limit" ) if /Wait (\d+) seconds/;
# vim:ts=4:sw=4
_______________________________________________
pld-cvs-commit mailing list
pld-cvs-commit@lists.pld-linux.org
http://lists.pld-linux.org/mailman/listinfo/pld-cvs-commit
