Author: sparky
Date: Fri Mar 4 01:22:08 2011
New Revision: 12186
Modified:
toys/rsget.pl/RSGet/Curl.pm
toys/rsget.pl/RSGet/Get.pm
Log:
- colorize more messages
Modified: toys/rsget.pl/RSGet/Curl.pm
==============================================================================
--- toys/rsget.pl/RSGet/Curl.pm (original)
+++ toys/rsget.pl/RSGet/Curl.pm Fri Mar 4 01:22:08 2011
@@ -499,6 +499,7 @@
if ( $err ) {
#warn "error($err): $error\n";
+ $get_obj->linecolor( "red" );
$get_obj->print( "ERROR($err): $error" ) if $err ne "aborted";
if ( $error =~ /Couldn't bind to '(.*)'/ or $error =~ /bind
failed/ ) {
my $if = $get_obj->{_outif};
@@ -512,7 +513,6 @@
} elsif ( $err eq "aborted" ) {
} else {
- $get_obj->linecolor( "red" );
$get_obj->log( "ERROR($err): $error" );
}
$get_obj->problem();
Modified: toys/rsget.pl/RSGet/Get.pm
==============================================================================
--- toys/rsget.pl/RSGet/Get.pm (original)
+++ toys/rsget.pl/RSGet/Get.pm Fri Mar 4 01:22:08 2011
@@ -332,6 +332,7 @@
my $until = $time + time;
$msg = "Delayed until " . localtime( $until ) . ": " . $msg;
+ $self->linecolor( "orange" );
$self->print( $msg ) || $self->log( $msg );
RSGet::FileList::save( $self->{_uri}, options => { delay => $until,
error => $msg, delay_last => $time } );
RSGet::Dispatch::finished( $self );
@@ -367,6 +368,7 @@
$self->dump();
}
+ $self->linecolor( "red" );
$self->print( $msg ) || $self->log( $msg );
RSGet::FileList::save( $self->{_uri}, options => { error => $msg } );
RSGet::Dispatch::finished( $self );
_______________________________________________
pld-cvs-commit mailing list
[email protected]
http://lists.pld-linux.org/mailman/listinfo/pld-cvs-commit
