}
# is he under the control of the new protocol?
- if ($parent && $parent->np) {
- dbg("PCPROT: $ncall aranea node, ignored") if isdbg('chanerr');
- return;
- }
+# if ($parent && $parent->np) {
+# dbg("PCPROT: $ncall aranea node, ignored") if isdbg('chanerr');
+# return;
+# }
my $i;
my @rout;
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 = $parent->dxchan if $parent;
+ $dxchan = $parent->dxchan;
if ($dxchan && $dxchan ne $self) {
dbg("PCPROT: PC17 from $self->{call} trying to alter locally connected $ncall, ignored!") if isdbg('chanerr');
return;
}
# is he under the control of the new protocol?
- if ($parent && $parent->np) {
- dbg("PCPROT: $ncall aranea node, ignored") if isdbg('chanerr');
- return;
- }
+# if ($parent && $parent->np) {
+# dbg("PCPROT: $ncall aranea node, ignored") if isdbg('chanerr');
+# return;
+# }
# input filter if required and then remove user if present
- if ($parent) {
+ if ($parent && !$parent->np) {
# return unless $self->in_filter_route($parent);
$parent->del_user($uref) if $uref;
- } else {
- $parent = Route->new($ncall); # throw away
- }
+ }
if (eph_dup($line)) {
dbg("PCPROT: dup PC17 detected") if isdbg('chanerr');
return;
}
- $uref = Route->new($ucall) unless $uref; # throw away
$self->route_pc17($origin, $line, $parent, $uref) if (DXChannel::get($parent->call) || $parent->np);
}
}
# we only output information that we regard as reliable
- @rout = grep {$_ && (DXChannel::get{$_->{call}} || $_->np) } @rout;
+ @rout = grep {$_ && (DXChannel::get($_->{call}) || $_->np) } @rout;
$self->route_pc19($origin, $line, @rout) if @rout;
}
return;
}
- @rout = grep {$_ && (DXChannel::get{$_->{call}} || $_->np) } @rout;
+ @rout = grep {$_ && (DXChannel::get($_->{call}) || $_->np) } @rout;
$self->route_pc21($origin, $line, @rout) if @rout;
}
for $node (@intcalls) {
push @remotenodes, Route::Node::get($node) unless grep $node eq $_, @rnodes, @remotenodes;
}
- @remotenodes = grep {$_ && (DXChannel::get{$_->{call}} || $_->np) } @remotenodes;
+ @remotenodes = grep {$_ && (DXChannel::get($_->{call}) || $_->np) } @remotenodes;
$self->send_route($main::mycall, \&pc19, scalar(@remotenodes), @remotenodes);
}