X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FConsole.pm;h=9dfacfb6b0a326fbbed4a317d5199494026f1b7e;hb=9e6322c41076ff462cb37416e28c3742567dc62a;hp=f1cefa49b756c0f9d62e70eca4c5e192b3020459;hpb=5378e6f269bce40d878b06e76dcf58a62858dd7b;p=spider.git diff --git a/perl/Console.pm b/perl/Console.pm index f1cefa49..9dfacfb6 100644 --- a/perl/Console.pm +++ b/perl/Console.pm @@ -41,7 +41,7 @@ if ($ENV{'TERM'} =~ /(xterm|ansi)/) { @colors = ( [ '^[-A-Z0-9]+ de [-A-Z0-9]+ \d\d-\w\w\w-\d\d\d\d \d\d\d\dZ', COLOR_PAIR(0) ], [ '^DX de [\-A-Z0-9]+:\s+([57][01]\d\d\d\.|\d\d\d\d\d\d+.)', COLOR_PAIR(1) ], - [ '^RB de', COLOR_PAIR(2) ], + [ '-#', COLOR_PAIR(2) ], [ '^To', COLOR_PAIR(3) ], [ '^WX', COLOR_PAIR(3) ], [ '^(?:WWV|WCY)', COLOR_PAIR(4) ], @@ -57,7 +57,7 @@ if ($ENV{'TERM'} =~ /(console|linux)/) { $mycallcolor = COLOR_PAIR(1); @colors = ( [ '^DX de [\-A-Z0-9]+:\s+([57][01]\d\d\d\.|\d\d\d\d\d\d+.)', COLOR_PAIR(1) ], - [ '^RN de', COLOR_PAIR(2) ], + [ '^-#:', COLOR_PAIR(2) ], [ '^DX', COLOR_PAIR(4) ], [ '^To', COLOR_PAIR(3) ], [ '^(?:WWV|WCY)', COLOR_PAIR(5) ],