sorted out inheritance

[spider.git] / cmd / show / user

diff --git a/cmd/show/user b/cmd/show/user
new file mode 100644 (file)
index 0000000..21b3c89
--- /dev/null
+++ b/cmd/show/user
@@ -0,0 +1,15 @@
+#
+# show either the current user or a nominated set
+#
+my $self = shift;
+my @set = split;      # the list of users you want listings (may be null)
+
+@set = ($self->call) if !@set;   # my call if no args
+
+my ($call, $field);
+my @fields = DXUser->fields();
+foreach $call (@set) {
+  my $user = DXUser->get($call);
+}
+
+