From a64c5be767bf32fd1a3c70e997bdf431538440d5 Mon Sep 17 00:00:00 2001 From: minima Date: Sat, 23 Dec 2000 11:54:49 +0000 Subject: [PATCH] stop the routing of messages back down the same interface --- Changes | 2 ++ perl/DXProt.pm | 6 ++++++ 2 files changed, 8 insertions(+) diff --git a/Changes b/Changes index ce65beb7..8e847cb5 100644 --- a/Changes +++ b/Changes @@ -1,3 +1,5 @@ +23Dec00======================================================================= +1. don't route anything back down the channel it came from. 18Dec00======================================================================= 1. fix double printing of DB results 2. add new style filtering for WWV and WCY to complete the set diff --git a/perl/DXProt.pm b/perl/DXProt.pm index c7cd41b7..04f2aff7 100644 --- a/perl/DXProt.pm +++ b/perl/DXProt.pm @@ -1475,12 +1475,18 @@ sub route unless ($dxchan) { my $cl = DXCluster->get_exact($call); $dxchan = $cl->dxchan if $cl; + if ($dxchan eq $self) { + dbg('chan', "PCPROT: Trying to route back to source, dropped"); + return; + } } if ($dxchan) { my $routeit = adjust_hops($dxchan, $line); # adjust its hop count by node name if ($routeit) { $dxchan->send($routeit); } + } else { + dbg('chan', "PCPROT: No route available, dropped"); } } -- 2.43.0