SVN: toys/rsget.pl/Get/ArchivTo

[sparky]

Author: sparky
Date: Tue Oct 27 01:07:13 2009
New Revision: 10869

Modified:
   toys/rsget.pl/Get/ArchivTo
Log:
- specify fsize in download, because the server does not send correct information


Modified: toys/rsget.pl/Get/ArchivTo
==============================================================================
--- toys/rsget.pl/Get/ArchivTo	(original)
+++ toys/rsget.pl/Get/ArchivTo	Tue Oct 27 01:07:13 2009
@@ -21,8 +21,10 @@
 	my ( $file_uri, $name ) = ( $1, $2 );
 
 	m#<td width="23%">Dateigröße</td>\s*<td width="77%">: (\d+) Bytes#s;
-	INFO( name => $name, size => $1 );
+	my $size = $1;
 
-	CLICK_DOWNLOAD( de_ml( $file_uri ) );
+	INFO( name => $name, size => $size );
+
+	CLICK_DOWNLOAD( de_ml( $file_uri ), fsize => $size );
 
 # vim: filetype=perl:ts=4:sw=4