X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FConsole.pm;h=b62893b610c6dc24e529b1a741e0417128aeb458;hb=e6a53556f10b5d2f831dcd7b83655430c9b1a137;hp=494392a7b86b2aa6d98307812c150acca6abeb46;hpb=6f82c4f1701f45cbae4bce7518eb40e645e6360a;p=spider.git diff --git a/perl/Console.pm b/perl/Console.pm index 494392a7..b62893b6 100644 --- a/perl/Console.pm +++ b/perl/Console.pm @@ -17,7 +17,15 @@ # 4 - CYAN, $background # 5 - BLUE, $background # 6 - MAGENTA, $background -# +# 7 - RED, BLUE +# 8 - BROWN, BLUE +# 9 - GREEN, BLUE +# 10 - CYAN, BLUE +# 11 - BLUE, RED +# 12 - MAGENTA, BLUE +# 13 - BROWN, GREEN +# 14 - RED, GREEN +# # You can or these with A_BOLD and or A_REVERSE for a different effect # @@ -38,7 +46,9 @@ if ($ENV{'TERM'} =~ /(xterm|ansi)/) { [ '^[-A-Z0-9]+ de [-A-Z0-9]+ \d\d-\w\w\w-\d\d\d\d \d\d\d\dZ', COLOR_PAIR(0) ], [ '^[-A-Z0-9]+ de [-A-Z0-9]+ ', COLOR_PAIR(6) ], [ '^WX', COLOR_PAIR(3) ], + [ '^(User|Node)\b', COLOR_PAIR(8) ], [ '^New mail', A_BOLD|COLOR_PAIR(5) ], + ); } if ($ENV{'TERM'} =~ /(console|linux)/) { @@ -53,6 +63,7 @@ if ($ENV{'TERM'} =~ /(console|linux)/) { [ '^[-A-Z0-9]+ de [-A-Z0-9]+ \d\d-\w\w\w-\d\d\d\d \d\d\d\dZ', COLOR_PAIR(0) ], [ '^[-A-Z0-9]+ de [-A-Z0-9]+ ', COLOR_PAIR(6) ], [ '^WX', COLOR_PAIR(3) ], + [ '^(User|Node)\b', A_BOLD|COLOR_PAIR(8) ], [ '^New mail', A_BOLD|COLOR_PAIR(5) ], ); }