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