X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2Fcluster.pl;h=b89e5805696fc82787193234f4266897beed30af;hb=cb5f21f8f960a003b80e7415f945d718f4b7d43e;hp=888ecc2fcd37aa39036de562a7b3ed93dabac060;hpb=dbf7523a9b228dbdf1d03109afde351b8b194fab;p=spider.git diff --git a/perl/cluster.pl b/perl/cluster.pl index 888ecc2f..b89e5805 100755 --- a/perl/cluster.pl +++ b/perl/cluster.pl @@ -95,6 +95,8 @@ use Route; use Route::Node; use Route::User; use Editable; +use Mrtg; +use USDB; use Data::Dumper; use IO::File; @@ -113,7 +115,7 @@ use vars qw(@inqueue $systime $version $starttime $lockfn @outstanding_connects @inqueue = (); # the main input queue, an array of hashes $systime = 0; # the time now (in seconds) -$version = "1.50"; # the version no of the software +$version = "1.51"; # the version no of the software $starttime = 0; # the starting time of the cluster #@outstanding_connects = (); # list of outstanding connects @listeners = (); # list of listeners @@ -122,7 +124,7 @@ $reqreg = 0; # 1 = registration required, 2 = deregister people use vars qw($VERSION $BRANCH $build $branch); $VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ ); $BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/ || (0,0)); -$main::build += 11; # add an offset to make it bigger than last system +$main::build += 7; # add an offset to make it bigger than last system $main::build += $VERSION; $main::branch += $BRANCH; @@ -394,6 +396,7 @@ dbg("DXSpider Version $version, build $build started"); # load Prefixes dbg("loading prefixes ..."); Prefix::load(); +dbg(USDB::init()); # load band data dbg("loading band data ...");