2 # show the channel status
8 my ($self, $line) = @_;
9 my @list = split /\s+/, $line; # generate a list of callsigns
10 @list = ($self->call) if !@list || $self->priv < 1; # my channel if no callsigns
14 foreach $call (@list) {
16 my $ref = DXChannel::get($call);
18 @out = print_all_fields($self, $ref, "Channel Information $call");
20 return (0, "Channel: $call not found") if !$ref;
22 push @out, "" if @list > 1;