From ea2243750e58b6007a0d1f5ab69beabb09733097 Mon Sep 17 00:00:00 2001
From: minima <minima>
Date: Thu, 17 Jun 2004 21:21:53 +0000
Subject: [PATCH] added PC17 "improvement"

---
 Changes        |  2 ++
 perl/DXProt.pm | 16 +++++++++-------
 2 files changed, 11 insertions(+), 7 deletions(-)

diff --git a/Changes b/Changes
index 9ec301e0..3ead773b 100644
--- a/Changes
+++ b/Changes
@@ -1,3 +1,5 @@
+17Jun04=======================================================================
+1. alter processing of PC17 to see if they get distributed more than now.
 14Jun04=======================================================================
 1. fix previous fix of sh/dx
 09Jan04=======================================================================
diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 48fad54a..a7a82a7b 100644
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -833,30 +833,32 @@ sub handle_17
 	my $uref = Route::User::get($ucall);
 	unless ($uref) {
 		dbg("PCPROT: Route::User $ucall not in config") if isdbg('chanerr');
-		return;
 	}
 	my $parent = Route::Node::get($ncall);
 	unless ($parent) {
 		dbg("PCPROT: Route::Node $ncall not in config") if isdbg('chanerr');
-		return;
 	}			
 
-	$dxchan = $parent->dxchan;
+	$dxchan = $parent->dxchan if $parent;
 	if ($dxchan && $dxchan ne $self) {
 		dbg("PCPROT: PC17 from $self->{call} trying to alter locally connected $ncall, ignored!") if isdbg('chanerr');
 		return;
 	}
 
-	# input filter if required
-	return unless $self->in_filter_route($parent);
-			
-	$parent->del_user($uref);
+	# input filter if required and then remove user if present
+	if ($parent) {
+#		return unless $self->in_filter_route($parent);	
+		$parent->del_user($uref) if $uref;
+	} else {
+		$parent = Route->new($ncall);  # throw away
+	}
 
 	if (eph_dup($line)) {
 		dbg("PCPROT: dup PC17 detected") if isdbg('chanerr');
 		return;
 	}
 
+	$uref = Route->new($ucall) unless $uref; # throw away
 	$self->route_pc17($origin, $line, $parent, $uref);
 }
 		
-- 
2.43.0