use POSIX ":sys_wait_h";
use Web;
-use vars qw($version $build $gitversion $gitbranch);
-
use strict;
use Local;
$no //= 'No'; # ditto for no
$user_interval //= 11*60; # the interval between unsolicited prompts if no traffic
-
-$clusteraddr //= '127.0.0.1'; # cluster tcp host address - used for things like console.pl
-$clusterport //= 27754; # cluster tcp port
@inqueue = (); # the main input queue, an array of hashes
$systime = 0; # the time now (in seconds)
$starttime = 0; # the starting time of the cluster
return \&new_channel;
}
-our $ceasing;
+my $ceasing;
# cease running this program, close down all the connections nicely
sub cease
cluck("ceasing") if $ceasing;
return if $ceasing++;
+
+ dbg("DXSpider Ceasing");
unless ($is_win) {
$SIG{'TERM'} = 'IGNORE';
UDPMsg::finish();
# end everything else
+ QSL::finish();
RBN::finish();
- DXUser::finish();
DXDupe::finish();
# close all databases
$l->close_server;
}
+ DXUser::finish();
+
LogDbg('cluster', "DXSpider v$version build $build (git: $gitbranch/$gitversion) using perl $^V on $^O ended");
dbg("bye bye everyone - bye bye");
dbgclose();
my ($year) = (gmtime)[5];
$year += 1900;
LogDbg('cluster', "DXSpider v$version build $build (git: $gitbranch/$gitversion) using perl $^V on $^O started");
- dbg("Copyright (c) 1998-$year Dirk Koopman G1TLH");
+ LogDbg('cluster', "Copyright (c) 1998-$year Dirk Koopman G1TLH");
+ LogDbg('cluster', "Capabilities: ve7cc rbn");
# load Prefixes
dbg("loading prefixes ...");
UDPMsg::init(\&new_channel);
# load bad words
- dbg("load badwords: " . (BadWords::load or "Ok"));
+ BadWords::load();
# prime some signals
unless ($DB::VERSION) {
exit(0);
+sub END
+{
+ unless ($ceasing) {
+ print "DXSpider Ending\n";
+ cease();
+ }
+}