stop the routing of messages back down the same interface

diff --git a/Changes b/Changes
index ce65beb7a1caca9c25339bc49644941bfb23f02d..8e847cb5d6943cf6468a1d1670f104867b3d2fad 100644 (file)
--- 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 c7cd41b77cec153ca0b6a83c5aefddafab9dee2b..04f2aff75d7efcc0b3bab3990e7ccc3374e0c2e4 100644 (file)
--- 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");
        }
 }