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

[sparky]

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 );