2 # show either the current user or a nominated set
8 #return (0) if ($self->priv < 9); # only console users allowed
9 my @list = split; # generate a list of callsigns
10 @list = ($self->call) if !@list; # my channel if no callsigns
14 foreach $call (@list) {
15 my $ref = DXUser->get($call);
16 return (0, "User: $call not found") if !$ref;
18 my @fields = $ref->fields;
20 push @out, "User Information $call";
21 foreach $field (@fields) {
22 my $prompt = $ref->field_prompt($field);
23 my $val = $ref->{$field};
24 push @out, "$prompt: $val";