SVN: toys/rsget.pl/RSGet/Processor.pm

[sparky]

Author: sparky
Date: Wed Jul 14 18:54:35 2010
New Revision: 11672

Modified:
   toys/rsget.pl/RSGet/Processor.pm
Log:
- delay for 15 minutes if download turns out to be HTML


Modified: toys/rsget.pl/RSGet/Processor.pm
==============================================================================
--- toys/rsget.pl/RSGet/Processor.pm	(original)
+++ toys/rsget.pl/RSGet/Processor.pm	Wed Jul 14 18:54:35 2010
@@ -35,12 +35,13 @@
 	return unless $is_sub;
 	$is_sub--;
 
-	my $error = 'unexpected end of script';
 	if ( $last_cmd and $last_cmd =~ /(?:click_)?download/ ) {
-		$error = 'download is a HTML page';
+		$last_cmd = undef;
+		pr "\treturn \${self}->delay( 15 * 60, 'download is a HTML page' );\n}\n";
+		return;
 	}
 	$last_cmd = undef;
-	pr "\treturn \${self}->error( '$error' );\n}\n";
+	pr "\treturn \${self}->error( 'unexpected end of script' );\n}\n";
 }
 
 my $space;