SVN: toys/rsget.pl/Get/FreakShare

sparky sparky at pld-linux.org
Thu Oct 22 17:01:12 CEST 2009


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/;
 


More information about the pld-cvs-commit mailing list