SVN: toys/rsget.pl/Get: FlyfileUs RapidShareDE

[sparky]

Author: sparky
Date: Fri Oct 23 00:07:56 2009
New Revision: 10830

Modified:
   toys/rsget.pl/Get/FlyfileUs
   toys/rsget.pl/Get/RapidShareDE
Log:
- use select in form


Modified: toys/rsget.pl/Get/FlyfileUs
==============================================================================
--- toys/rsget.pl/Get/FlyfileUs	(original)
+++ toys/rsget.pl/Get/FlyfileUs	Fri Oct 23 00:07:56 2009
@@ -13,7 +13,7 @@
 	$-{name} = $1;
 
 	! my $form = $self->form( match => { body => qr/"Free Download"/ } );
-	$form->set( method_free => "Free Download" );
+	! $form->select( method_free => 0 );
 	CLICK( $form->post() );
 
 	ERROR( "file removed" )

Modified: toys/rsget.pl/Get/RapidShareDE
==============================================================================
--- toys/rsget.pl/Get/RapidShareDE	(original)
+++ toys/rsget.pl/Get/RapidShareDE	Fri Oct 23 00:07:56 2009
@@ -12,7 +12,7 @@
 		if m{<p><script>alert.*?</script>(File not found|This file has been deleted).*?</p>};
 
 	! $-{form} = $self->form( match => { action => qr{^http://rapidshare\.de$} } );
-	$-{form}->set( "dl.start" => "Free" );
+	! $-{form}->select( "dl.start" => 1 );
 	CLICK( $-{form}->post() );
 
 	! m{<p><p>You have requested the file <b>(.*?)</b> \(($STDSIZE)\)\.</p>};