X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2Fcluster.pl;h=f1cf1227ca77b3b55f55fad314c1861b7860af44;hb=f526fba8b99f487581a3048d4c0f2cd2d3c1d7c9;hp=888ecc2fcd37aa39036de562a7b3ed93dabac060;hpb=dbf7523a9b228dbdf1d03109afde351b8b194fab;p=spider.git diff --git a/perl/cluster.pl b/perl/cluster.pl index 888ecc2f..f1cf1227 100755 --- a/perl/cluster.pl +++ b/perl/cluster.pl @@ -95,6 +95,7 @@ use Route; use Route::Node; use Route::User; use Editable; +use Mrtg; use Data::Dumper; use IO::File; @@ -113,7 +114,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 +123,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 += 8; # add an offset to make it bigger than last system $main::build += $VERSION; $main::branch += $BRANCH;