stop the routing of messages back down the same interface

[spider.git] / perl / DXProt.pm

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