Author: sparky
Date: Fri Oct 23 00:40:28 2009
New Revision: 10831
Modified:
toys/rsget.pl/Get/zSHARE
Log:
- use form methods; checked
Modified: toys/rsget.pl/Get/zSHARE
==============================================================================
--- toys/rsget.pl/Get/zSHARE (original)
+++ toys/rsget.pl/Get/zSHARE Fri Oct 23 00:40:28 2009
@@ -4,8 +4,8 @@
short: zS
uri: qr{zshare\.net}
#cookie: zs
-slots: 8
-status: OK ?
+slots: max
+status: OK 2009-10-22
start:
GET( $-{_uri} );
@@ -17,11 +17,12 @@
! m{>File Size:\s*<font.*?>($STDSIZE)</font></td>}s;
INFO( name => $name, asize => $1 );
- my $x = 10 + int rand 180;
- my $y = 10 + int rand 37;
- my $post =
"referer2=&download=1&imageField.x=$x&imageField.y=$y&imageField=";
+ ! my $form = $self->form( name => "form1" );
+ $form->set( "imageField.x" => 10 + int rand 180 );
+ $form->set( "imageField.y" => 10 + int rand 37 );
+ $form->set( "imageField" => "" );
- GET( "", post => $post );
+ GET( $form->post() );
! m{var link_enc=new Array\('(.*?)'\);};
( $-{uri} = $1 ) =~ s/','//g;
_______________________________________________
pld-cvs-commit mailing list
[email protected]
http://lists.pld-linux.org/mailman/listinfo/pld-cvs-commit
