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>};
_______________________________________________
pld-cvs-commit mailing list
[email protected]
http://lists.pld-linux.org/mailman/listinfo/pld-cvs-commit
