X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2Fcluster.pl;h=a11626a233479cc7fa5885fb9870c4513782e5a7;hb=4a653ce0cd9140d4a7878cdf8ee835841ca039eb;hp=e8858a0df531f2e8709e7d865b22bd4f2cfb8cd7;hpb=3e062e2c8696ad7b1e2a8bd37c2a3c4ad8f460b6;p=spider.git diff --git a/perl/cluster.pl b/perl/cluster.pl index e8858a0d..a11626a2 100755 --- a/perl/cluster.pl +++ b/perl/cluster.pl @@ -38,7 +38,6 @@ BEGIN { close CLLOCK; } - use Msg; use DXVars; use DXDebug; @@ -79,7 +78,7 @@ package main; @inqueue = (); # the main input queue, an array of hashes $systime = 0; # the time now (in seconds) -$version = "1.45"; # the version no of the software +$version = "1.47"; # the version no of the software $starttime = 0; # the starting time of the cluster $lockfn = "cluster.lock"; # lock file name @outstanding_connects = (); # list of outstanding connects @@ -377,7 +376,6 @@ Spot->init(); dbg('err', "reading in duplicate spot and WWV info ..."); DXProt->init(); - # put in a DXCluster node for us here so we can add users and take them away DXNode->new($DXProt::me, $mycall, 0, 1, $DXProt::myprot_version);