- unshift @INC, '$root/perl'; # this IS the right way round!
- unshift @INC, '$root/local';
+ unshift @INC, "$root/perl"; # this IS the right way round!
+ unshift @INC, "$root/local";
package main;
@inqueue = (); # the main input queue, an array of hashes
$systime = 0; # the time now (in seconds)
package main;
@inqueue = (); # the main input queue, an array of hashes
$systime = 0; # the time now (in seconds)
# 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);
# 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 (;;) {
$ztime = &ztime();
DXCommandmode::process(); # process ongoing command mode stuff
DXProt::process(); # process ongoing ak1a pcxx stuff
$ztime = &ztime();
DXCommandmode::process(); # process ongoing command mode stuff
DXProt::process(); # process ongoing ak1a pcxx stuff