X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;ds=sidebyside;f=perl%2Fconsole.pl;h=2c8c456bbfff35268d43fcb9e72d12b37f32132e;hb=2f9d089ec33dd606824c11a508dbc06a0cf8dfaa;hp=0a6d7404ba62c066539afd4697ba2d2fafba6771;hpb=eb311dbba79ebae3360bda7fd7dfb05629f4d76c;p=spider.git

diff --git a/perl/console.pl b/perl/console.pl
index 0a6d7404..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 {
@@ -24,6 +30,7 @@ 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;