Started on the dx cluster database stuff

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

diff --git a/cmd/show/user.pl b/cmd/show/user.pl
new file mode 100644 (file)
index 0000000..919fda6
--- /dev/null
+++ b/cmd/show/user.pl
@@ -0,0 +1,32 @@
+#
+# show either the current user or a nominated set
+#
+# $Id$
+#
+
+my $self = shift;
+#return (0) if ($self->priv < 9); # only console users allowed
+my @list = split;                # generate a list of callsigns
+@list = ($self->call) if !@list;  # my channel if no callsigns
+
+my $call;
+my @out;
+foreach $call (@list) {
+  my $ref = DXUser->get($call);
+  return (0, "User: $call not found") if !$ref;
+
+  my @fields = $ref->fields;
+  my $field;
+  push @out, "User Information $call";
+  foreach $field (@fields) {
+    my $prompt = $ref->field_prompt($field);
+    my $val = $ref->{$field};
+    push @out, "$prompt: $val";
+  } 
+}
+
+return (1, @out);
+
+
+
+