SVN: toys/rsget.pl/Get/FlyfileUs

[sparky]

Author: sparky
Date: Fri Dec 11 01:30:24 2009
New Revision: 11025

Modified:
   toys/rsget.pl/Get/FlyfileUs
Log:
- flyfile.us taken over by EnterUpload, none of old files can be found


Modified: toys/rsget.pl/Get/FlyfileUs
==============================================================================
--- toys/rsget.pl/Get/FlyfileUs	(original)
+++ toys/rsget.pl/Get/FlyfileUs	Fri Dec 11 01:30:24 2009
@@ -15,27 +15,7 @@
 start:
 	GET( $-{_uri} );
 
-	ERROR( "file not found" ) if /(No such file|No such user)/;
-	m{<h2>Download File (.*?)</h2>};
-	$-{name} = $1;
-
-	! my $form = $self->form( match => { body => qr/"Free Download"/ } );
-	! $form->select( method_free => 0 );
-	CLICK( $form->post() );
-
-	ERROR( "file removed" )
-		if m{<font class="err">File was deleted by administrator</font>};
-
-	m{<small>\((\d+) bytes\)</small>};
-	INFO( name => $-{name}, size => $1 );
-
-	RESTART( 600, "download-limit reached" )
-		if /You have reached the download-limit/;
-
-	! my $form = $self->form( name => "F1" );
-	CLICK_DOWNLOAD( $form->post() );
-
-	RESTART( 120, "temporarily unavailable" )
-		if /temporarily unavailable/;
+	ERROR( "file not found" ) if m{<b>File Not Found</b>};
+	ERROR( "file found but I don't know what to do" );
 
 # vim: filetype=perl:ts=4:sw=4