X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2Fconsole.pl;h=2c8c456bbfff35268d43fcb9e72d12b37f32132e;hb=dfb716ea6436908b5c7e3905f4cf14314c09b9cc;hp=d98b95f8f18b5ef93b84ca8ee740193586d15820;hpb=e044603c96073a6b5e4517d55a7ab48819196439;p=spider.git

diff --git a/perl/console.pl b/perl/console.pl
index d98b95f8..2c8c456b 100755
--- a/perl/console.pl
+++ b/perl/console.pl
@@ -14,6 +14,12 @@
 # 
 
 require 5.004;
+package main;
+
+use vars qw($data $clusteraddr $clusterport);
+
+$clusteraddr = '127.0.0.1';     # cluster tcp host address - used for things like console.pl
+$clusterport = 27754;           # cluster tcp port
 
 # search local then perl directories
 BEGIN {
@@ -23,6 +29,8 @@ BEGIN {
 	
 	unshift @INC, "$root/perl";	# this IS the right way round!
 	unshift @INC, "$root/local";
+	$is_win = ($^O =~ /^MS/ || $^O =~ /^OS-2/) ? 1 : 0; # is it Windows?
+	$data = "$root/data";
 }
 
 use Msg;
@@ -54,7 +62,7 @@ $spos = $pos = $lth = 0;
 $inbuf = "";
 @time = ();
 
-$SIG{WINCH} = sub {@time = gettimeofday};
+#$SIG{WINCH} = sub {@time = gettimeofday};
 
 sub mydbg
 {
@@ -84,9 +92,9 @@ sub do_initscr
 		init_pair(12, COLOR_MAGENTA, COLOR_BLUE);
 		init_pair(13, COLOR_YELLOW, COLOR_GREEN);
 		init_pair(14, COLOR_RED, COLOR_GREEN);
-		eval { assume_default_colors($foreground, $background) };
+		eval { assume_default_colors($foreground, $background) } unless $is_win;
 	}
-	
+
 	$top = $scr->subwin($lines-4, $cols, 0, 0);
 	$top->intrflush(0);
 	$top->scrollok(1);