X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXProtHandle.pm;h=b83da41784b10ebb4f4d76bd13c25b34d30dfc3b;hb=ac14c6983861c08b8a2842af46e67407600f8065;hp=4a2be35765f854d815ae805a28847ac399d869ed;hpb=c62d1dbdc3238711628d49608946eefedda2362e;p=spider.git diff --git a/perl/DXProtHandle.pm b/perl/DXProtHandle.pm index 4a2be357..b83da417 100644 --- a/perl/DXProtHandle.pm +++ b/perl/DXProtHandle.pm @@ -1553,8 +1553,13 @@ sub handle_92 # reparent to external node (note that we must have received a 'C' or 'A' record # from the true parent node for this external before we get one for the this node unless ($parent = Route::Node::get($call)) { - dbg("PCPROT: no previous C or A for this external node received, ignored") if isdbg('chanerr'); - return; + if ($is_extnode && $oparent) { + @radd = _add_thingy($oparent, $ent[0]); + $parent = $radd[0]; + } else { + dbg("PCPROT: no previous C or A for this external node received, ignored") if isdbg('chanerr'); + return; + } } $parent = check_pc9x_t($call, $t, 92) || return; $parent->via_pc92(1); @@ -1594,9 +1599,11 @@ sub handle_92 # we only reset obscounts on config records $oparent->reset_obs; + $oparent->PC92C_dxchan($self->{call}) unless $self->{call} eq $oparent->call; dbg("ROUTE: reset obscount on $pcall now " . $oparent->obscount) if isdbg('obscount'); if ($oparent != $parent) { $parent->reset_obs; + $parent->PC92C_dxchan($self->{call}) unless $self->{call} eq $parent->call; dbg("ROUTE: reset obscount on $parent->{call} now " . $parent->obscount) if isdbg('obscount'); }