- $dxchan->normal($line);
+ if ($dxchan->{func}) {
+ # call an ongoing routine if there is a function specified
+ &{$dxchan->{func}} ($dxchan, $line);
+ } else {
+ # normal input
+ $dxchan->normal($line);
+ }
# 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