X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2Fcluster.pl;h=62227d218080c0c8199b4e1cfbee925a4b92d3e2;hb=1284d2e7cc4c25bb02c7f4fa7c59246de9c0027c;hp=6d4dc90f66b2fc523a8d735069f231642d253341;hpb=2ffd50e69be8f5e17e8ac3f8735139af7316195a;p=spider.git diff --git a/perl/cluster.pl b/perl/cluster.pl index 6d4dc90f..62227d21 100755 --- a/perl/cluster.pl +++ b/perl/cluster.pl @@ -99,6 +99,7 @@ use Mrtg; use USDB; use UDPMsg; use QSL; +use Thingy; use Data::Dumper; use IO::File; @@ -126,7 +127,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 += 5; # add an offset to make it bigger than last system +$main::build += 4; # add an offset to make it bigger than last system $main::build += $VERSION; $main::branch += $BRANCH; @@ -558,7 +559,10 @@ for (;;) { DXUser::process(); DXDupe::process(); AGWMsg::process(); - + + # this where things really start to happen (in DXSpider 2) + Thingy::process(); + eval { Local::process(); # do any localised processing };