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