X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=cmd%2Fstat%2Fchannel.pl;h=472e7cf483f5a909e8a11be4119e9117fbd46e9d;hb=f63d598af3f797b56b8d5e23ec4ff5254192eee9;hp=147c150af6bd307e71261e4ef547aae2df306f98;hpb=2546ef0cfaaca39e65985e414258071a636979af;p=spider.git diff --git a/cmd/stat/channel.pl b/cmd/stat/channel.pl index 147c150a..472e7cf4 100644 --- a/cmd/stat/channel.pl +++ b/cmd/stat/channel.pl @@ -1,21 +1,21 @@ # # show the channel status # -# $Id$ +# # use strict; my ($self, $line) = @_; my @list = split /\s+/, $line; # generate a list of callsigns -@list = ($self->call) if !@list || $self->priv < 9; # my channel if no callsigns +@list = ($self->call) if !@list || $self->priv < 1; # my channel if no callsigns my $call; my @out; foreach $call (@list) { $call = uc $call; - my $ref = DXChannel->get($call); + my $ref = DXChannel::get($call); if ($ref) { - @out = print_all_fields($self, $ref, "Channe Information $call"); + @out = print_all_fields($self, $ref, "Channel Information $call"); } else { return (0, "Channel: $call not found") if !$ref; }