# 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
@inqueue = (); # the main input queue, an array of hashes
$systime = 0; # the time now (in seconds)
@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);
# 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);