X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=cmd%2Fstat%2Fuser.pl;h=5cb57f29dd3b4e4ce6c06cd81372a3f1c4e705c8;hb=ab811a0c902225075a9bd69749f65594079433a9;hp=088cacba6d8c97bec3a258b6400dabdf6ff3a5c3;hpb=f9b0d39eb17d107b9f2b0c6c08652ea02c1d74ce;p=spider.git diff --git a/cmd/stat/user.pl b/cmd/stat/user.pl index 088cacba..5cb57f29 100644 --- a/cmd/stat/user.pl +++ b/cmd/stat/user.pl @@ -1,11 +1,10 @@ # # show either the current user or a nominated set # -# $Id$ +# # my ($self, $line) = @_; -return (1, $self->msg('e5')) if $self->priv < 1; my @list = split /\s+/, $line; # generate a list of callsigns @list = ($self->call) if !@list; # my channel if no callsigns @@ -13,7 +12,7 @@ my $call; my @out; foreach $call (@list) { $call = uc $call; - my $ref = DXUser->get_current($call); + my $ref = DXUser::get_current($call); if ($ref) { if ($self->consort eq 'ax25') { @out = grep { !/(Password|Privilege)/ } print_all_fields($self, $ref, "User Information $call");