X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXProtHandle.pm;h=45b61b3e20f02a709e49f7d72399ae7a109a2841;hb=d1710a0c713c4e9995cb27be421aa0ea94fe3d30;hp=7f5a6fffd636e326d074c984a1f7d5f4a3ab5ddc;hpb=512557610c26681f2085301a9108d9bf70b55002;p=spider.git diff --git a/perl/DXProtHandle.pm b/perl/DXProtHandle.pm index 7f5a6fff..45b61b3e 100644 --- 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; }