]> dxcluster.net Git - spider.git/blob - cmd/stat/channel.pl
improve speed of sh/c/n (a bit)[probably].
[spider.git] / cmd / stat / channel.pl
1 #
2 # show the channel status
3 #
4 # $Id$
5 #
6
7 use strict;
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
11
12 my $call;
13 my @out;
14 foreach $call (@list) {
15   $call = uc $call;
16   my $ref = DXChannel::get($call);
17   if ($ref) {
18     @out = print_all_fields($self, $ref, "Channel Information $call");
19   } else {
20     return (0, "Channel: $call not found") if !$ref;
21   }
22   push @out, "" if @list > 1;
23 }
24
25 return (1, @out);
26
27