# update it if required
my $r = Route::Node::get($call);
my $flags = Route::here($here)|Route::conf($conf);
- if ($parent->call eq $call && ($parent->version ne $ver || $parent->flags != $flags)) {
- $parent->version($ver);
- $parent->flags($flags);
- push @rout, $parent;
- } elsif ($r) {
- my $ar = $parent->add($r);
- push @rout, $ar if $ar;
+ if ($r) {
+ my $ar;
+ if ($call ne $parent->call) {
+ if ($self->in_filter_route($r)) {
+ $ar = $parent->add($call, $ver, $flags);
+ push @rout, $ar if $ar;
+ }
+ }
if ($r->version ne $ver || $r->flags != $flags) {
$r->version($ver);
- $r->flags(Route::here($here)|Route::conf($conf));
+ $r->flags($flags);
push @rout, $r unless $ar;
}
- } elsif ($parent->call ne $call) {
+ } else {
next if $call eq $main::mycall || $call eq $self->{call};
- my $new = Route::Node->new($call, $ver, Route::here($here)|Route::conf($conf));
+ my $new = Route->new($call); # throw away
if ($self->in_filter_route($new)) {
- $parent->add($new);
- push @rout, $new;
- } else {
- $new->del($parent);
+ my $r = $parent->add($call, $ver, $flags);
+ push @rout, $r;
}
}
foreach $dxchan (@dxchan) {
next if $dxchan == $self;
next if $dxchan == $me;
- if ($self->{routefilter} || !$self->{isolate}) {
+ if ($dxchan->{routefilter} || !$self->{isolate}) {
$dxchan->send_route($generate, @_)
} else {
dbg('DXPROT: isolated') if isdbg('chanerr');