if ($list[0] && $list[0] =~ /^NOD/) {
my @ch = sort {$a->call cmp $b->call} DXChannel::get_all_nodes();
my $dxchan;
foreach $dxchan (@ch) {
@val = sort {$a->call cmp $b->call} grep { $_->dxchan == $dxchan } @nodes;
if ($list[0] && $list[0] =~ /^NOD/) {
my @ch = sort {$a->call cmp $b->call} DXChannel::get_all_nodes();
my $dxchan;
foreach $dxchan (@ch) {
@val = sort {$a->call cmp $b->call} grep { $_->dxchan == $dxchan } @nodes;
- next if scalar @list && !grep $node->call eq $_, @list;
+ unless ($printall) {
+ if (@list) {
+ next unless grep $node->call =~ /^$_/, @list;
+ } else {
+ next unless grep $node->dxcc == $_, @main::my_cc;
+ }
+ }
- if (@val == 0 && $node->users) {
- push @l, sprintf "(%d users)", $node->users;
+ if (@val == 0 && $node->usercount) {
+ push @l, sprintf "(%d users)", $node->usercount;