X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2Fconsole.pl;h=663618080dc1a69e444c6251d954cfcd0177a889;hb=63f0fc26e717837bc7c6990f27d26de91d65eb7e;hp=7bcb2abde06d7c0675e9aa4ee21fcd783944b3c3;hpb=14fa5913c9b5be9f55ef741236aaafbe516f64fe;p=spider.git diff --git a/perl/console.pl b/perl/console.pl index 7bcb2abd..66361808 100755 --- a/perl/console.pl +++ b/perl/console.pl @@ -1,4 +1,4 @@ -#!/bin/env perl +#!/usr/bin/env perl # # this is the operators console. # @@ -27,11 +27,16 @@ BEGIN { $is_win = ($^O =~ /^MS/ || $^O =~ /^OS-2/) ? 1 : 0; # is it Windows? } +$clusteraddr = '127.0.0.1'; +$clusterport = 27754; + use Mojo::IOLoop; +use DXVars; +use SysVar; + use Msg; use IntMsg; -use DXVars; use DXDebug; use DXUtil; use DXDebug;