projects
/
spider.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
63f4437
)
altered default colours
author
djk
<djk>
Tue, 29 Jun 1999 00:31:33 +0000
(
00:31
+0000)
committer
djk
<djk>
Tue, 29 Jun 1999 00:31:33 +0000
(
00:31
+0000)
perl/Console.pm
patch
|
blob
|
history
diff --git
a/perl/Console.pm
b/perl/Console.pm
index 34c3913149e5e407c678223bd84f6319ba274c4b..cead75a4ba2fc7fd411f5229bc3d877da5184c4b 100644
(file)
--- a/
perl/Console.pm
+++ b/
perl/Console.pm
@@
-27,18
+27,25
@@
if ($ENV{'TERM'} =~ /xterm/) {
$ENV{'TERM'} = 'color_xterm';
$foreground = COLOR_BLACK();
$background = A_BOLD|COLOR_WHITE();
$ENV{'TERM'} = 'color_xterm';
$foreground = COLOR_BLACK();
$background = A_BOLD|COLOR_WHITE();
+ @colors = (
+ [ '^DX de [\-\w]+:\s+(14[45]\d\d\d|5[01]\d\d\d)', COLOR_PAIR(1) ],
+ [ '^DX', COLOR_PAIR(5) ],
+ [ '^To', COLOR_PAIR(3) ],
+ [ '^WWV', COLOR_PAIR(4) ],
+ [ '^WX', COLOR_PAIR(3) ],
+ );
}
if ($ENV{'TERM'} =~ /(console|linux)/) {
$foreground = COLOR_WHITE();
$background = COLOR_BLACK();
}
if ($ENV{'TERM'} =~ /(console|linux)/) {
$foreground = COLOR_WHITE();
$background = COLOR_BLACK();
-}
-
-@colors = (
+ @colors = (
[ '^DX de [\-\w]+:\s+(14[45]\d\d\d|5[01]\d\d\d)', COLOR_PAIR(1) ],
[ '^DX de [\-\w]+:\s+(14[45]\d\d\d|5[01]\d\d\d)', COLOR_PAIR(1) ],
- [ '^DX', COLOR_PAIR(
2
) ],
+ [ '^DX', COLOR_PAIR(
5
) ],
[ '^To', COLOR_PAIR(3) ],
[ '^WWV', COLOR_PAIR(4) ],
[ '^To', COLOR_PAIR(3) ],
[ '^WWV', COLOR_PAIR(4) ],
- [ '^WX', COLOR_PAIR(5) ],
-);
+ [ '^WX', COLOR_PAIR(3) ],
+ );
+}
+
1;
1;