my $ref = $busy{$_};
if (exists $ref->{lastt} && $main::systime >= $ref->{lastt} + $timeout) {
dbg('msg', "Timeout, stopping msgno: $ref->{msgno} -> $node");
+ Log('msg', "Timeout, stopping msgno: $ref->{msgno} -> $node");
$ref->stop_msg($node);
# delay any outgoing messages that fail
# look to see whether this is a non private message sent to a known callsign
my $uref = DXUser->get_current($ref->{to});
- if (iscallsign($ref->{to}) && !$ref->{private} && $uref && $uref->homenode) {
+ if (is_callsign($ref->{to}) && !$ref->{private} && $uref && $uref->homenode) {
$ref->{private} = 1;
dbg('msg', "set bull to $ref->{to} to private");
}
# guess, use (to, from, time, subject) tuple?
foreach $dxchan (@nodelist) {
next if $dxchan->call eq $main::mycall;
- next if grep { $_ eq $dxchan->call } @{$ref->{gotit}};
+ next if ref $ref->{gotit} && grep $_ eq $dxchan->call, @{$ref->{gotit}};
next unless $ref->forward_it($dxchan->call); # check the forwarding file
# if we are here we have a node that doesn't have this message