cmd/show/user

   1 #
   2 # show either the current user or a nominated set
   3 #
   4 # $Id$
   5 #
   6
   7 my $self = shift;
   8 my @set = split;      # the list of users you want listings (may be null)
   9
  10 @set = ($self->call) if !@set;   # my call if no args
  11
  12 my ($call, $field);
  13 my @fields = DXUser->fields();
  14 foreach $call (@set) {
  15   my $user = DXUser->get($call);
  16 }
  17
  18