correct PC17 handling even more

diff --git a/perl/DXProtHandle.pm b/perl/DXProtHandle.pm
index 7f5a6fffd636e326d074c984a1f7d5f4a3ab5ddc..45b61b3e20f02a709e49f7d72399ae7a109a2841 100644 (file)
--- a/perl/DXProtHandle.pm
+++ b/perl/DXProtHandle.pm
@@ -543,10 +543,12 @@ 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 = DXChannel::get($ncall);
@@ -568,12 +570,8 @@ sub handle_17
        }
 
        # 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
-       }
+       $parent->del_user($uref) if $uref;
 
        # send info to all logged in thingies
        $self->tell_login('logoutu', "$ncall: $ucall") if DXUser->get_current($ncall)->is_local_node;
@@ -584,7 +582,6 @@ sub handle_17
                return;
        }
 
-       $uref = Route->new($ucall) unless $uref; # throw away
        $self->route_pc17($origin, $line, $parent, $uref);
 #      $self->route_pc92d($main::mycall, undef, $parent, $uref) if $dxchan;
 }