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;
_______________________________________________
pld-cvs-commit mailing list
[email protected]
http://lists.pld-linux.org/mailman/listinfo/pld-cvs-commit
