From a64c5be767bf32fd1a3c70e997bdf431538440d5 Mon Sep 17 00:00:00 2001
From: minima <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.34.1