mirror of
git://scm.dxcluster.org/scm/spider
synced 2024-09-21 07:47:10 +00:00
4b207544da
The point of this is to make it easier to maintain both branches. DXProt (DXProtHandle has already been copied) route/* DXChannel DXCommandmode and console.pl have been either copied wholesale, where necessary, modified to use the old Msg based networking stack.
74 lines
2.0 KiB
Perl
74 lines
2.0 KiB
Perl
#
|
|
# These are the default variables for the console program
|
|
#
|
|
# DON'T ALTER this file, copy it to ../local and alter that
|
|
# instead. This file will be overwritten with new releases
|
|
#
|
|
# Copyright (c) 1999 Dirk Koopman G1TLH
|
|
#
|
|
#
|
|
#
|
|
# The colour pairs are:-
|
|
#
|
|
# 0 - $foreground, $background
|
|
# 1 - RED, $background
|
|
# 2 - BROWN, $background
|
|
# 3 - GREEN, $background
|
|
# 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
|
|
#
|
|
|
|
package main;
|
|
|
|
$maxkhist = 100;
|
|
$maxshist = 500;
|
|
if ($ENV{'TERM'} =~ /(xterm|ansi)/) {
|
|
# $ENV{'TERM'} = 'color_xterm';
|
|
$foreground = COLOR_BLACK();
|
|
$background = COLOR_WHITE();
|
|
$mycallcolor = COLOR_PAIR(1);
|
|
@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) ],
|
|
[ '-#', COLOR_PAIR(2) ],
|
|
[ '^To', COLOR_PAIR(3) ],
|
|
[ '^WX', COLOR_PAIR(3) ],
|
|
[ '^(?:WWV|WCY)', COLOR_PAIR(4) ],
|
|
[ '^DX', COLOR_PAIR(5) ],
|
|
[ '^[-A-Z0-9]+ de [-A-Z0-9]+ ', COLOR_PAIR(6) ],
|
|
[ '^(User|Node|Buddy)\b', COLOR_PAIR(8) ],
|
|
[ '^New mail', A_BOLD|COLOR_PAIR(5) ],
|
|
);
|
|
}
|
|
if ($ENV{'TERM'} =~ /(console|linux)/) {
|
|
$foreground = COLOR_WHITE();
|
|
$background = COLOR_BLACK();
|
|
$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) ],
|
|
[ '^-#:', COLOR_PAIR(2) ],
|
|
[ '^DX', COLOR_PAIR(4) ],
|
|
[ '^To', COLOR_PAIR(3) ],
|
|
[ '^(?:WWV|WCY)', COLOR_PAIR(5) ],
|
|
[ '^[-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) ],
|
|
);
|
|
}
|
|
|
|
|
|
1;
|