X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=cmd%2Fstat%2Fchannel.pl;h=be4e5f9330d237acf160555dda41973708af6941;hb=fe7780b7eb15406a7e5caac4ecc499c8f3304e18;hp=8b20e0cbd759148ee63d465dc2e7ba55dd5c9d49;hpb=586cbb347e7639f5575b48572e75140501a109c0;p=spider.git diff --git a/cmd/stat/channel.pl b/cmd/stat/channel.pl index 8b20e0cb..be4e5f93 100644 --- a/cmd/stat/channel.pl +++ b/cmd/stat/channel.pl @@ -7,13 +7,13 @@ 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 {