SVN: toys/rsget.pl/Get/UpFile

[sparky]

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