X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=cmd%2Fshow%2Fusers.pl;h=2e69786b4376f2c4fa46dd0db350071ce8787269;hb=e5b0e3dee551a224de284a5ba550098256fcb268;hp=e69de29bb2d1d6434b8b29ae775ad8c2e48c5391;hpb=6b6a8002929017b6d4217f68fa492a2d728ee1fe;p=spider.git

diff --git a/cmd/show/users.pl b/cmd/show/users.pl
index e69de29b..2e69786b 100644
--- a/cmd/show/users.pl
+++ b/cmd/show/users.pl
@@ -0,0 +1,15 @@
+#
+# show either the current user or a nominated set
+#
+# $Id$
+#
+
+my ($self, $line) = @_;
+my @list = DXChannel->get_all();
+my $chan;
+my @out;
+foreach $chan (@list) {
+  push @out, "Callsign: $chan->{call}";
+}
+
+return (1, @out);