fix AsyncMsg.pm + clusteraddr issues

[spider.git] / perl / console.pl

diff --git a/perl/console.pl b/perl/console.pl
index f85e235d7d726ece77cb50c36dbd98733549e48f..2c8c456bbfff35268d43fcb9e72d12b37f32132e 100755 (executable)
--- a/perl/console.pl
+++ b/perl/console.pl
@@ -16,7 +16,10 @@
 require 5.004;
 package main;
 
-use vars qw($data);
+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 {