X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2Fcluster.pl;h=4965a49fd3ebb0c8e8a0b798093a2aec36bcc052;hb=e07645cec07ba739a20cc009d7dd138c962b66eb;hp=c005027911b49102e4030b85082b55424831b2df;hpb=83e360f5c54444dc63a14de5124ad0a78624bf5a;p=spider.git diff --git a/perl/cluster.pl b/perl/cluster.pl index c0050279..4965a49f 100755 --- a/perl/cluster.pl +++ b/perl/cluster.pl @@ -98,6 +98,7 @@ use Editable; use Mrtg; use USDB; use UDPMsg; +use QSL; use Data::Dumper; use IO::File; @@ -125,7 +126,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 += 6; # add an offset to make it bigger than last system +$main::build += 5; # add an offset to make it bigger than last system $main::build += $VERSION; $main::branch += $BRANCH; @@ -522,6 +523,7 @@ DXDb::load(); # starting local stuff dbg("doing local initialisation ..."); +QSL::init(1); eval { Local::init(); };