+sub gen_my_pc92_config
+{
+ my $node = shift;
+
+ if ($node->{call} eq $main::mycall) {
+ my @dxchan = grep { $_->call ne $main::mycall && !$_->{isolate} } DXChannel::get_all();
+ dbg("ROUTE: all dxchan: " . join(',', map{$_->{call}} @dxchan)) if isdbg('routelow');
+ my @localnodes = map { my $r = Route::get($_->{call}); $r ? $r : () } @dxchan;
+ dbg("ROUTE: localnodes: " . join(',', map{$_->{call}} @localnodes)) if isdbg('routelow');
+ return pc92c($main::routeroot, @localnodes);
+ } else {
+ my @rout = map {my $r = Route::User::get($_); $r ? ($r) : ()} $node->users;
+ return pc92c($node, @rout);
+ }
+}
+