From 3715a74fc0c40fa9c5494c93758662840086b500 Mon Sep 17 00:00:00 2001 From: minima Date: Mon, 13 Aug 2001 13:43:09 +0000 Subject: [PATCH] fixed problem of dxspots not being echoed back to spotter (announces too) --- Changes | 2 ++ perl/DXProt.pm | 6 +++--- 2 files changed, 5 insertions(+), 3 deletions(-) diff --git a/Changes b/Changes index 0df34ad5..cc9cd372 100644 --- a/Changes +++ b/Changes @@ -1,3 +1,5 @@ +13Aug01======================================================================= +1. fixed problam dxspots not being echoed back to spotter (announces too) 02Aug01======================================================================= 1. correct manual and help references on accept/route and reject/route. Thanks to ea1dav for pointing out the errors diff --git a/perl/DXProt.pm b/perl/DXProt.pm index b14b8102..01dd9326 100644 --- a/perl/DXProt.pm +++ b/perl/DXProt.pm @@ -1214,7 +1214,7 @@ sub send_dx_spot # taking into account filtering and so on foreach $dxchan (@dxchan) { next if $dxchan == $me; - next if $dxchan == $self; + next if $dxchan == $self && $self->is_node; $dxchan->dx_spot($line, $self->{isolate}, @_, $self->{call}); } } @@ -1276,8 +1276,8 @@ sub send_wwv_spot # send it if it isn't the except list and isn't isolated and still has a hop count # taking into account filtering and so on foreach $dxchan (@dxchan) { - next if $dxchan == $self; next if $dxchan == $me; + next if $dxchan == $self && $self->is_node; my $routeit; my ($filter, $hops); @@ -1388,8 +1388,8 @@ sub send_announce # send it if it isn't the except list and isn't isolated and still has a hop count # taking into account filtering and so on foreach $dxchan (@dxchan) { - next if $dxchan == $self; next if $dxchan == $me; + next if $dxchan == $self && $self->is_node; my $routeit; my ($filter, $hops); -- 2.43.0