projects
/
spider.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
dba22e4
)
fixed problem of dxspots not being echoed back to spotter (announces too)
author
minima
<minima>
Mon, 13 Aug 2001 13:43:09 +0000
(13:43 +0000)
committer
minima
<minima>
Mon, 13 Aug 2001 13:43:09 +0000
(13:43 +0000)
Changes
patch
|
blob
|
history
perl/DXProt.pm
patch
|
blob
|
history
diff --git
a/Changes
b/Changes
index 0df34ad559544474f6ef9b6e3b6f00ecc0ccf144..cc9cd372d1fc28407fe97c69da461c7be68f8051 100644
(file)
--- 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
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 b14b8102e4c2c5962c93381991c06eb989076027..01dd93269cd07e3e3ae0e15dd3142c3a55832bd8 100644
(file)
--- 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;
# 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});
}
}
$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) {
# 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 == $me;
+ next if $dxchan == $self && $self->is_node;
my $routeit;
my ($filter, $hops);
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) {
# 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 == $me;
+ next if $dxchan == $self && $self->is_node;
my $routeit;
my ($filter, $hops);
my $routeit;
my ($filter, $hops);