X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FConsole.pm;fp=perl%2FConsole.pm;h=72c110ec2ce2c40da0ee92b973d66592194414d2;hb=2c4fd7e2ec5736105e9a532982b2fb8a47c374eb;hp=0000000000000000000000000000000000000000;hpb=c1eb1d4013a7d748c0fc22f778ddb719dc151a1b;p=spider.git

diff --git a/perl/Console.pm b/perl/Console.pm
new file mode 100644
index 00000000..72c110ec
--- /dev/null
+++ b/perl/Console.pm
@@ -0,0 +1,37 @@
+#
+# 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
+#
+# $Id$
+#
+# 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
+#
+
+package main;
+
+$maxkhist = 100;
+$maxshist = 500;
+$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(2) ],
+		   [ '^To', COLOR_PAIR(3) ],
+		   [ '^WWV', COLOR_PAIR(4) ],
+		   [ '^WX', COLOR_PAIR(5) ],
+);
+
+1;