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

[sparky]

Author: sparky
Date: Fri Mar  4 18:30:56 2011
New Revision: 12190

Modified:
   toys/rsget.pl/RSGet/Get.pm
   toys/rsget.pl/RSGet/Processor.pm
Log:
- dump data if download is html


Modified: toys/rsget.pl/RSGet/Get.pm
==============================================================================
--- toys/rsget.pl/RSGet/Get.pm	(original)
+++ toys/rsget.pl/RSGet/Get.pm	Fri Mar  4 18:30:56 2011
@@ -353,6 +353,16 @@
 	RSGet::Dispatch::finished( $self );
 }
 
+sub is_html
+{
+	my $self = shift;
+
+	if ( $self->{body} and setting( "debug" ) ) {
+		$self->dump();
+	}
+	return $self->delay( 15 * 60, 'download is an HTML page' );
+}
+
 sub abort
 {
 	my $self = shift;

Modified: toys/rsget.pl/RSGet/Processor.pm
==============================================================================
--- toys/rsget.pl/RSGet/Processor.pm	(original)
+++ toys/rsget.pl/RSGet/Processor.pm	Fri Mar  4 18:30:56 2011
@@ -37,7 +37,7 @@
 
 	if ( $last_cmd and $last_cmd =~ /(?:click_)?download/ ) {
 		$last_cmd = undef;
-		pr "\treturn \${self}->delay( 15 * 60, 'download is an HTML page' );\n}\n";
+		pr "\treturn \${self}->is_html();\n}\n";
 		return;
 	}
 	$last_cmd = undef;