$parent = Route::Node::get($_->[0]);
$dxchan = $parent->dxchan if $parent;
if ($dxchan && $dxchan ne $self) {
$parent = Route::Node::get($_->[0]);
$dxchan = $parent->dxchan if $parent;
if ($dxchan && $dxchan ne $self) {
# route the pc19 - this will cause 'stuttering PC19s' for a while
$self->route_pc19(@nrout) if @nrout ;
$parent = Route::Node::get($ncall);
# route the pc19 - this will cause 'stuttering PC19s' for a while
$self->route_pc19(@nrout) if @nrout ;
$parent = Route::Node::get($ncall);
$self->send_now("D", DXProt::pc39($main::mycall, $self->msg('disc1', "System Op")));
}
$self->send_now("D", DXProt::pc39($main::mycall, $self->msg('disc1', "System Op")));
}
# do routing stuff, remove me from routing table
my $node = Route::Node::get($call);
# do routing stuff, remove me from routing table
my $node = Route::Node::get($call);