From ea2243750e58b6007a0d1f5ab69beabb09733097 Mon Sep 17 00:00:00 2001 From: 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