# $Id: FlyfileUs 10867 2009-10-26 22:47:10Z sparky $
# Get::FlyfileUs - File getter plugin for rsget.pl
#
# 2009 (c) Przemysław Iskra <sparky@pld-linux.org>
#		This program is free software,
# you may distribute it under GPL v2 or newer.

name: FlyfileUs
short: FU
uri: qr{flyfile\.us/}
status: OK 2009-10-22

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/;

# vim: filetype=perl:ts=4:sw=4
