X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=cmd%2Fstat%2Fuser.pl;h=61a6e7bf9eb60c156939dbe0285529d71ac2aa8b;hb=412fb1b9e4070d7791f4e986b55bbc0c06f612ea;hp=997ae542b6bbcf9fe9f5785320396a352c44bf66;hpb=2546ef0cfaaca39e65985e414258071a636979af;p=spider.git diff --git a/cmd/stat/user.pl b/cmd/stat/user.pl index 997ae542..61a6e7bf 100644 --- a/cmd/stat/user.pl +++ b/cmd/stat/user.pl @@ -5,20 +5,24 @@ # my ($self, $line) = @_; -my @list = split /\s+/, $line; # generate a list of callsigns -@list = ($self->call) if !@list; # my channel if no callsigns +my @list = split /\s+/, $line; # generate a list of callsigns +@list = ($self->call) if !@list; # my channel if no callsigns my $call; my @out; foreach $call (@list) { - $call = uc $call; - my $ref = DXUser->get_current($call); - if ($ref) { - @out = print_all_fields($self, $ref, "User Information $call"); - } else { - push @out, "User: $call not found"; - } - push @out, "" if @list > 1; + $call = uc $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"); + } else { + @out = print_all_fields($self, $ref, "User Information $call"); + } + } else { + push @out, "User: $call not found"; + } + push @out, "" if @list > 1; } return (1, @out);