From 2d0b6bcb8b2df38973d234e394f6a0e12d0727fb Mon Sep 17 00:00:00 2001 From: minima Date: Sun, 30 Sep 2001 23:53:42 +0000 Subject: [PATCH] some small bug fixes --- Changes | 2 ++ perl/DXChannel.pm | 5 +++-- perl/DXMsg.pm | 2 +- 3 files changed, 6 insertions(+), 3 deletions(-) diff --git a/Changes b/Changes index be0a0978..f9d64c6d 100644 --- a/Changes +++ b/Changes @@ -1,3 +1,5 @@ +30Sep01======================================================================= +1. made some small bug fixes in rspf checking and also messages. 23Sep01======================================================================= 1. I have incorporated Steve's (K9AN) lastest sh/sun and sh/moon stuff which copes much better with some of the end effects that occur in these calc- diff --git a/perl/DXChannel.pm b/perl/DXChannel.pm index 463d43a2..f65e43df 100644 --- a/perl/DXChannel.pm +++ b/perl/DXChannel.pm @@ -506,8 +506,9 @@ sub rspfcheck { my ($self, $flag, $node, $user) = @_; my $nref = Route::Node::get($node); - if ($nref) { - if ($nref->dxchan == $self) { + my $dxchan = $nref->dxchan if $nref; + if ($nref && $dxchan) { + if ($dxchan == $self) { return 1 unless $user; my @users = $nref->users; return 1 if @users == 0 || grep $user eq $_, @users; diff --git a/perl/DXMsg.pm b/perl/DXMsg.pm index ec798b54..fefcc2fa 100644 --- a/perl/DXMsg.pm +++ b/perl/DXMsg.pm @@ -175,7 +175,7 @@ sub process if (exists $busy{$fromnode}) { my $ref = $busy{$fromnode}; - my $tonode = $ref->{tonode}; + my $tonode = $ref->{tonode} || "unknown"; dbg("Busy, stopping msgno: $ref->{msgno} $fromnode->$tonode") if isdbg('msg'); $ref->stop_msg($self->call); } -- 2.43.0