my @l;
my @val;
-push @out, "Node Callsigns";
+push @out, $self->msg('showconf');
if ($list[0] && $list[0] =~ /^NOD/) {
- my @ch = sort {$a->call cmp $b->call} DXChannel::get_all_nodes();
+ my @ch = sort {$a->call cmp $b->call} grep {$_->is_node || $_->is_aranea} DXChannel::get_all();
my $dxchan;
foreach $dxchan (@ch) {
if (@list) {
next unless grep $node->call =~ /^$_/, @list;
} else {
- next unless $node->dxcc == $self->dxcc;
+ next unless grep $node->dxcc == $_, @main::my_cc;
}
}
my $call = $node->call;