# make sure that modules are searched in the order local then perl
BEGIN {
# root of directory tree for this system
# make sure that modules are searched in the order local then perl
BEGIN {
# root of directory tree for this system
use Carp;
package main;
@inqueue = (); # the main input queue, an array of hashes
$systime = 0; # the time now (in seconds)
use Carp;
package main;
@inqueue = (); # the main input queue, an array of hashes
$systime = 0; # the time now (in seconds)
# is there one already connected elsewhere in the cluster (and not a cluster)
my $user = DXUser->get($call);
if ($user) {
# is there one already connected elsewhere in the cluster (and not a cluster)
my $user = DXUser->get($call);
if ($user) {
my $mess = DXM::msg($lang, 'conother', $call);
already_conn($conn, $call, $mess);
return;
}
my $mess = DXM::msg($lang, 'conother', $call);
already_conn($conn, $call, $mess);
return;
}
# put in a DXCluster node for us here so we can add users and take them away
DXNode->new(0, $mycall, 0, 1, $DXProt::myprot_version);
# read in any existing message headers and clean out old crap
# put in a DXCluster node for us here so we can add users and take them away
DXNode->new(0, $mycall, 0, 1, $DXProt::myprot_version);
# read in any existing message headers and clean out old crap
# this, such as it is, is the main loop!
print "orft we jolly well go ...\n";
for (;;) {
# 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();
DXCommandmode::process(); # process ongoing command mode stuff
DXProt::process(); # process ongoing ak1a pcxx stuff
DXConnect::process();