@inqueue = (); # the main input queue, an array of hashes
$systime = 0; # the time now (in seconds)
-$version = "1.24"; # the version no of the software
+$version = "1.26"; # the version no of the software
$starttime = 0; # the starting time of the cluster
$lockfn = "cluster.lock"; # lock file name
sub cease
{
my $dxchan;
+
+ $SIG{'TERM'} = 'IGNORE';
+ $SIG{'INT'} = 'IGNORE';
eval {
Local::finish(); # end local processing
Msg->event_loop(1, 0.05);
Msg->event_loop(1, 0.05);
Msg->event_loop(1, 0.05);
- Log('cluster', "DXSpider V$version stopped");
DXUser::finish();
+ Log('cluster', "DXSpider V$version stopped");
unlink $lockfn;
exit(0);
}
last if --$decease <= 0;
}
}
+cease(0);
+exit(0);