- if (@list) {
- foreach my $call (sort @list) {
- next if $call eq $main::mycall;
- my $dxchan = DXChannel::get($call);
- if ($dxchan) {
- my $conn = $dxchan->conn;
- push @out, sprintf("%-9.9s %16s %16s %16s %16s", $call, comma($conn->{linesin}), comma($conn->{datain}), comma($conn->{linesout}), comma($conn->{dataout}));
- }
+ push @list, $self->call unless @list;
+ foreach my $call (sort @list) {
+ next if $call eq $main::mycall;
+ my $dxchan = DXChannel::get($call);
+ if ($dxchan) {
+ my $conn = $dxchan->conn;
+ push @out, sprintf("%-9.9s %16s %16s %16s %16s", $call, comma($conn->{linesin}), comma($conn->{datain}), comma($conn->{linesout}), comma($conn->{dataout}));