X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXProtHandle.pm;h=7f5a6fffd636e326d074c984a1f7d5f4a3ab5ddc;hb=512557610c26681f2085301a9108d9bf70b55002;hp=a1e552f7620097ce70eaa4e7513191b5ca47f2d2;hpb=686140dd3cb3c832d8bb6c780acd82effb54834c;p=spider.git diff --git a/perl/DXProtHandle.pm b/perl/DXProtHandle.pm index a1e552f7..7f5a6fff 100644 --- a/perl/DXProtHandle.pm +++ b/perl/DXProtHandle.pm @@ -540,11 +540,6 @@ sub handle_17 RouteDB::delete($ncall, $self->{call}); - unless ($ncall eq $self->{call}) { - dbg("PCPROT: PC17 from non-local $ncall, ignored") if isdbg('chanerr'); - return; - } - my $uref = Route::User::get($ucall); unless ($uref) { dbg("PCPROT: Route::User $ucall not in config") if isdbg('chanerr'); @@ -554,13 +549,12 @@ sub handle_17 dbg("PCPROT: Route::Node $ncall not in config") if isdbg('chanerr'); } - $dxchan = $parent->dxchan if $parent; + $dxchan = DXChannel::get($ncall); if ($dxchan && $dxchan ne $self) { dbg("PCPROT: PC17 from $self->{call} trying to alter locally connected $ncall, ignored!") if isdbg('chanerr'); return; } - $dxchan = DXChannel::get($ncall); unless ($dxchan) { if ($parent->via_pc92) { dbg("PCPROT: non-local node controlled by PC92, ignored") if isdbg('chanerr');