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

[sparky]

Author: sparky
Date: Mon Dec 20 00:02:12 2010
New Revision: 12010

Modified:
   toys/rsget.pl/RSGet/Line.pm
Log:
- make [Current date... lines bold instead of green


Modified: toys/rsget.pl/RSGet/Line.pm
==============================================================================
--- toys/rsget.pl/RSGet/Line.pm	(original)
+++ toys/rsget.pl/RSGet/Line.pm	Mon Dec 20 00:02:12 2010
@@ -73,8 +73,8 @@
 	if ( $last_day != $l[3] ) {
 		$last_day = $l[3];
 		my $date = sprintf "[Current date: %d-%.2d-%.2d]", $l[5] + 1900, $l[4] + 1, $l[3];
-		push @print, "\r" . color_term( "green" ) . $date . $endcolor . "\033[J\n";
-		push @newdead, [ $date, "green" ];
+		push @print, "\r" . color_term( "bold" ) . $date . $endcolor . "\033[J\n";
+		push @newdead, [ $date, "gray" ];
 	}
 
 	foreach my $key ( sort { $a <=> $b } keys %dead ) {