nailed set/unset parameters in user file

[spider.git] / cmd / stat / user.pl

diff --git a/cmd/stat/user.pl b/cmd/stat/user.pl
index 997ae542b6bbcf9fe9f5785320396a352c44bf66..61a6e7bf9eb60c156939dbe0285529d71ac2aa8b 100644 (file)
--- 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);