-#!/usr/bin/perl
+#!/usr/bin/perl -w
#
# This is the DX cluster 'daemon'. It sits in the middle of its little
# web of client routines sucking and blowing data where it may.
unshift @INC, "$root/perl"; # this IS the right way round!
unshift @INC, "$root/local";
-
-# require Exporter;
-# $Exporter::Verbose = 1;
}
use Msg;
use Bands;
use Geomag;
use CmdAlias;
+use Local;
+
use Carp;
package main;
@inqueue = (); # the main input queue, an array of hashes
$systime = 0; # the time now (in seconds)
-$version = "1.14"; # the version no of the software
+$version = "1.23"; # the version no of the software
$starttime = 0; # the starting time of the cluster
# handle disconnections
sub cease
{
my $dxchan;
+
+ eval {
+ Local::finish(); # end local processing
+ };
+ dbg('local', "Local::finish error $@") if $@;
+
foreach $dxchan (DXChannel->get_all()) {
disconnect($dxchan) unless $dxchan == $DXProt::me;
}
# the reaper of children
sub reap
{
+ $SIG{'CHLD'} = \&reap;
my $cpid = wait;
}
DXNode->new(0, $mycall, 0, 1, $DXProt::myprot_version);
# read in any existing message headers and clean out old crap
-print "reading existing message headers\n";
+print "reading existing message headers ...\n";
DXMsg->init();
DXMsg::clean_old();
# read in any cron jobs
-print "reading cron jobs\n";
+print "reading cron jobs ...\n";
DXCron->init();
+# starting local stuff
+print "doing local initialisation ...\n";
+eval {
+ Local::init();
+};
+dbg('local', "Local::init error $@") if $@;
+
+
+
+# print various flags
+#print "useful info - \$^D: $^D \$^W: $^W \$^S: $^S \$^P: $^P\n";
+
# this, such as it is, is the main loop!
print "orft we jolly well go ...\n";
for (;;) {
DXCommandmode::process(); # process ongoing command mode stuff
DXProt::process(); # process ongoing ak1a pcxx stuff
DXConnect::process();
+ eval {
+ Local::process(); # do any localised processing
+ };
+ dbg('local', "Local::process error $@") if $@;
}
if ($decease) {
last if --$decease <= 0;