cmd/show/users.pl

   1 #
   2 # show either the current user or a nominated set
   3 #
   4 # $Id$
   5 #
   6
   7 my ($self, $line) = @_;
   8 my @list = DXChannel->get_all();
   9 my $chan;
  10 my @out;
  11 foreach $chan (@list) {
  12   push @out, "Callsign: $chan->{call}";
  13 }
  14
  15 return (1, @out);