Author: sparky
Date: Thu Oct 22 17:01:12 2009
New Revision: 10819
Modified:
toys/rsget.pl/Get/FreakShare
Log:
- use new tools; checked
Modified: toys/rsget.pl/Get/FreakShare
==============================================================================
--- toys/rsget.pl/Get/FreakShare (original)
+++ toys/rsget.pl/Get/FreakShare Thu Oct 22 17:01:12 2009
@@ -4,7 +4,7 @@
short: FS
uri: qr{freakshare\.net/}
cookie: fs
-status: OK 2009-09-17
+status: OK 2009-10-22
start:
GET( $-{_uri} );
@@ -14,25 +14,19 @@
! m#<h1 class="box_heading" style="text-align:center;">(.*)</h1>#;
INFO( name => $1, size => -1 );
- ! m#var time = (\d+)(?:\.\d+);\s*var intervall;#;
- my $wait = $1;
-
- ! m#<form action="(.*?)" method="post" style="display:inline;">#;
- $-{dl_page} = $1;
-
- WAIT( $wait, "starting" );
+ ! $-{form} = $self->form( match => { body => qr/"Free Download"/ } );
- GET( $-{dl_page}, post => { section => "benefit", did => "0" } );
-
! m#var time = (\d+)(?:\.\d+);\s*var intervall;#;
- my $wait = $1;
+ WAIT( $1, "starting" );
- ! m#<form action="(.*?)" method="post" style="display:inline;"#;
- $-{file_uri} = $1;
+ CLICK( $-{form}->post() );
+
+ ! $-{dlform} = $self->form( match => { onsubmit => qr/^disableButton/ }
);
- WAIT( $wait, "starting download" );
+ ! m#var time = (\d+)(?:\.\d+);\s*var intervall;#;
+ WAIT( $1, "starting download" );
- DOWNLOAD( $-{file_uri}, post => { section => "waitingtime", did => 0,
submit => "Download" } );
+ CLICK_DOWNLOAD( $-{dlform}->post() );
MULTI() if /Sorry, you cant download more then 1 at time/;
_______________________________________________
pld-cvs-commit mailing list
[email protected]
http://lists.pld-linux.org/mailman/listinfo/pld-cvs-commit
