fix AsyncMsg.pm + clusteraddr issues

[spider.git] / perl / console.pl

diff --git a/perl/console.pl b/perl/console.pl
index 0a6d7404ba62c066539afd4697ba2d2fafba6771..2c8c456bbfff35268d43fcb9e72d12b37f32132e 100755 (executable)
--- 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;