X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?p=spider.git;a=blobdiff_plain;f=cmd%2Fshow%2Fusers.pl;h=2e69786b4376f2c4fa46dd0db350071ce8787269;hp=e69de29bb2d1d6434b8b29ae775ad8c2e48c5391;hb=20b0104deaeab77fa7ab1444dbcedfcdbf5865f8;hpb=07ea293f3919d2da76220b5fbc55b734008ed44c

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);