Author: sparky
Date: Fri Oct 23 01:51:27 2009
New Revision: 10835
Modified:
toys/rsget.pl/Get/UpFile
Log:
- click; checked
Modified: toys/rsget.pl/Get/UpFile
==============================================================================
--- toys/rsget.pl/Get/UpFile (original)
+++ toys/rsget.pl/Get/UpFile Fri Oct 23 01:51:27 2009
@@ -4,7 +4,7 @@
short: UF
uri: qr{up-file\.com/download/}
cookie: uf
-status: OK 2009-10-14
+status: OK 2009-10-22
start:
GET( $-{_uri} );
@@ -12,15 +12,15 @@
ERROR( "file not found" )
if m{<h1>The requested file is not found</h1>};
- my $info = $self->form( match => { action => qr{^/sms/check2.php$} } );
+ ! my $info = $self->form( match => { action => qr{^/sms/check2.php$} }
);
INFO( name => $info->get( "realname" ), size => $info->get( "sssize" )
);
MULTI( "multi-download or free limit reached" )
if /Downloading is in process from your IP-Address/;
- my $form;
- ! $form = $self->form( id => "Premium" );
+ ! my $form = $self->form( id => "Premium" );
+ ! $form->select( free => 0 );
- DOWNLOAD( $form->post() );
+ CLICK_DOWNLOAD( $form->post() );
# vim:ts=4:sw=4
_______________________________________________
pld-cvs-commit mailing list
[email protected]
http://lists.pld-linux.org/mailman/listinfo/pld-cvs-commit
