hamradio/spider
1
0
Fork 0
mirror of git://scm.dxcluster.org/scm/spider synced 2024-09-21 07:47:10 +00:00
Code Issues Packages Projects Releases Wiki Activity

some small bug fixes

Browse Source
This commit is contained in:
minima 2001-09-30 23:53:42 +00:00
parent d0adf21cbc
commit 2d0b6bcb8b
3 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Changes
View File

@ -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-

5
perl/DXChannel.pm
View File

@ -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;

2
perl/DXMsg.pm
View File

@ -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);
}