fixed problems with show/channel

[spider.git] / cmd / show / users.pl

diff --git a/cmd/show/users.pl b/cmd/show/users.pl
index e69de29bb2d1d6434b8b29ae775ad8c2e48c5391..2e69786b4376f2c4fa46dd0db350071ce8787269 100644 (file)
--- 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);