use latest big cty.dat

[spider.git] / perl / Console.pm

diff --git a/perl/Console.pm b/perl/Console.pm
index 9812a024442b21cc7b5fc934bbdd2c2694988fce..4dc72d4279ef0389100bfc75d08026de2fa385da 100644 (file)
--- a/perl/Console.pm
+++ b/perl/Console.pm
@@ -6,7 +6,7 @@
 #
 # Copyright (c) 1999 Dirk Koopman G1TLH
 #
-# $Id$
+#
 #
 # The colour pairs are:-
 #
@@ -31,6 +31,9 @@
 
 package main;
 
+use vars qw($maxkhist $maxshist $foreground    $background $mycallcolor @colors );
+use Curses;
+
 $maxkhist = 100;
 $maxshist = 500;
 if ($ENV{'TERM'} =~ /(xterm|ansi)/) {
@@ -46,7 +49,7 @@ 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) ],
+                  [ '^(User|Node|Buddy)\b', COLOR_PAIR(8) ],
                   [ '^New mail', A_BOLD|COLOR_PAIR(5) ],
                    
                   );