From: minima Date: Mon, 22 Jan 2007 22:41:32 +0000 (+0000) Subject: correct PC17 handling even more X-Git-Tag: 1.54~14 X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=commitdiff_plain;h=d1710a0c713c4e9995cb27be421aa0ea94fe3d30;p=spider.git correct PC17 handling even more --- 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; }