@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.17"; # the version no of the software
$starttime = 0; # the starting time of the cluster
# handle disconnections
# is there one already connected elsewhere in the cluster (and not a cluster)
my $user = DXUser->get($call);
if ($user) {
- if (($user->sort eq 'A' || $call == $myalias) && !DXCluster->get_exact($call)) {
+ if (($user->sort eq 'A' || $call eq $myalias) && !DXCluster->get_exact($call)) {
;
} else {
if (DXCluster->get($call) || DXChannel->get($call)) {
# the reaper of children
sub reap
{
+ $SIG{'CHLD'} = \&reap;
my $cpid = wait;
}
print "reading cron jobs\n";
DXCron->init();
+# 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 (;;) {