X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=cmd%2Fstat%2Fchannel.pl;h=472e7cf483f5a909e8a11be4119e9117fbd46e9d;hb=279b963d65945d5f0f9e8bdabe38045ec9568789;hp=8b20e0cbd759148ee63d465dc2e7ba55dd5c9d49;hpb=586cbb347e7639f5575b48572e75140501a109c0;p=spider.git diff --git a/cmd/stat/channel.pl b/cmd/stat/channel.pl index 8b20e0cb..472e7cf4 100644 --- a/cmd/stat/channel.pl +++ b/cmd/stat/channel.pl @@ -1,19 +1,19 @@ # # 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, "Channel Information $call"); } else {