# $Id: ArchivTo 10869 2009-10-27 00:07:13Z sparky $
# Get::ArchivTo - 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: ArchivTo
short: AT
uri: qr{archiv\.to/}
slots: max
status: OK 2009-10-21

start:
	GET( $-{_uri} );

	ERROR( "file not found" )
		if /Datei wurde entfernt/;

	! m#<td width="23%">Originaldatei</td>\s*<td width="77%">: <a href="(.*?)" .*?>(.*?)</a></td></tr>#s;
	my ( $file_uri, $name ) = ( $1, $2 );

	m#<td width="23%">Dateigröße</td>\s*<td width="77%">: (\d+) Bytes#s;
	my $size = $1;

	INFO( name => $name, size => $size );

	CLICK_DOWNLOAD( de_ml( $file_uri ), fsize => $size );

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