X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXProt.pm;h=ccb183c3691b89a41f05bed5e36f7b7200a0c4e7;hb=24550808f9ee4ba5cf6a720bb364977f7ed586af;hp=a9d9e8ed2b962e8325c808cfefd720e8872d176e;hpb=1be52e58e3cb8a1746bd583b1b1e311602bb1935;p=spider.git diff --git a/perl/DXProt.pm b/perl/DXProt.pm index a9d9e8ed..ccb183c3 100644 --- a/perl/DXProt.pm +++ b/perl/DXProt.pm @@ -771,9 +771,9 @@ sub send_pc92_config dbg('DXProt::send_pc92_config') if isdbg('trace'); # send 'my' configuration for all users and pc92 capable nodes - my @dxchan = grep { $_->call ne $main::mycall && $_ != $self && !$_->{isolate} && $_->{do_pc92} } DXChannel::get_all_nodes(); - my @localnodes = map { my $r = Route::Node::get($_->{call}); $r ? $r : () } @dxchan; - push @localnodes, map { my $r = Route::Node::get($_->{call}); $r ? $r : () } DXChannel::get_all_users(); + my @dxchan = grep { $_->call ne $main::mycall && $_ != $self && !$_->{isolate} } DXChannel::get_all(); + my @localnodes = map { my $r = Route::get($_->{call}); $r ? $r : () } @dxchan; +# push @localnodes, map { my $r = Route::Node::get($_->{call}); $r ? $r : () } DXChannel::get_all_users(); $self->send_route_pc92($main::mycall, \&pc92c, (scalar @localnodes)+1, $main::routeroot, @localnodes); # send the configuration of all the 'external' nodes that don't handle PC92