Author: sparky Date: Wed Mar 2 21:34:18 2011 New Revision: 12176 Modified: toys/rsget.pl/Get/DepositFiles Log: - fixed / updated
Modified: toys/rsget.pl/Get/DepositFiles ============================================================================== --- toys/rsget.pl/Get/DepositFiles (original) +++ toys/rsget.pl/Get/DepositFiles Wed Mar 2 21:34:18 2011 @@ -1,7 +1,7 @@ # $Id$ # Get::DepositFiles - File getter plugin for rsget.pl # -# 2009-2010 (c) Przemysław Iskra <[email protected]> +# 2009-2011 (c) Przemysław Iskra <[email protected]> # This program is free software, # you may distribute it under GPL v2 or newer. @@ -9,7 +9,7 @@ short: DF web: "http://depositfiles.com/"; uri: qr{depositfiles\.com/(../)?files/[0-9a-z]+} -status: OK 2010-07-13 +status: OK 2011-03-02 unify: return "http://depositfiles.com/files/$1"; if m#/files/([0-9a-z]+)#; @@ -29,16 +29,26 @@ $-{dl_form} = $self->form( match => { onsubmit => qr/^download_started/ } ); GOTO stage_download if $-{dl_form}; - ! my $form = $self->form( match => { body => qr/name="gateway_result"/ } ); + ! my $form = $self->form( match => { onsubmit => qr/^show_begin_popup/ } ); CLICK( $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">#; - $-{dl_form} = $self->form( match => { onsubmit => qr/^download_started/ } ); - WAIT( 60, "starting download" ); + ! m#setTimeout\('load_form\(\)', (\d+)\);#; + my $wait = $1 / 1000; + + ! m/\$\('#download_container'\)\.load\('(.*?)'\);/; + $-{dl_link} = $1; + + WAIT( $wait, "starting download" ); + + CLICK( $-{dl_link} ); + + $-{dl_form} = $self->form( match => { onsubmit => qr/^download_started/ } ); + GOTO stage_download if $-{dl_form}; stage_download: CLICK_DOWNLOAD( $-{dl_form}->post() ); _______________________________________________ pld-cvs-commit mailing list [email protected] http://lists.pld-linux.org/mailman/listinfo/pld-cvs-commit
