added who command

diff --git a/Changes b/Changes
index 4b6cefaa8b02cdf19cfa1a48e1a64a20933b95e9..9ea91d1a0fbeb058042f04e6e215f30f00ee1c64 100644 (file)
--- a/Changes
+++ b/Changes
@@ -3,6 +3,7 @@
 2. got rid of the stupid bug that failed to print out the offline message
 but put a "*main::STDOUTmain" for every line of that message instead.
 3. Ported to 5.00503 (well actually just installed it and it just runs). 
 2. got rid of the stupid bug that failed to print out the offline message
 but put a "*main::STDOUTmain" for every line of that message instead.
 3. Ported to 5.00503 (well actually just installed it and it just runs). 

+4. Added who command

 23May99=======================================================================
 1. Got rid of some of the useless error messages on global destruction when
 quiting a program.
 23May99=======================================================================
 1. Got rid of some of the useless error messages on global destruction when
 quiting a program.

diff --git a/cmd/Aliases b/cmd/Aliases
index 3aaddb28318b2a249aba6f4816572e19225d95cc..9c5094e4c6def5efb679840b3229c185198d3b77 100644 (file)
--- a/cmd/Aliases
+++ b/cmd/Aliases
@@ -36,7 +36,7 @@ package CmdAlias;
        ],
        'd' => [
          '^del', 'kill', 'kill',
        ],
        'd' => [
          '^del', 'kill', 'kill',

-         '^del.*/fu', 'kill full', 'kill',
+         '^del\w*/fu', 'kill full', 'kill',

          '^di\w*/a\w*', 'directory all', 'directory',
          '^di\w*/b\w*', 'directory bulletins', 'directory',
          '^di\w*/n\w*', 'directory new', 'directory',
          '^di\w*/a\w*', 'directory all', 'directory',
          '^di\w*/b\w*', 'directory bulletins', 'directory',
          '^di\w*/n\w*', 'directory new', 'directory',


@@ -91,6 +91,7 @@ package CmdAlias;
          '^set/noww', 'unset/wwv', 'unset/wwv',
          '^set/nowx', 'unset/wx', 'unset/wx',
          '^sh$', 'show', 'show',
          '^set/noww', 'unset/wwv', 'unset/wwv',
          '^set/nowx', 'unset/wx', 'unset/wx',
          '^sh$', 'show', 'show',

+         '^sh\w*/bu', 'show/files bulletins', 'show/files',

          '^sh\w*/c/n', 'show/configuration nodes', 'show/configuration',
          '^sh\w*/c$', 'show/configuration', 'show/configuration',
          '^sh\w*/dx/(\d+)-(\d+)', 'show/dx $1-$2', 'show/dx',
          '^sh\w*/c/n', 'show/configuration nodes', 'show/configuration',
          '^sh\w*/c$', 'show/configuration', 'show/configuration',
          '^sh\w*/dx/(\d+)-(\d+)', 'show/dx $1-$2', 'show/dx',

diff --git a/cmd/who.pl b/cmd/who.pl
new file mode 100644 (file)
index 0000000..34e2d0a
--- /dev/null
+++ b/cmd/who.pl
@@ -0,0 +1,24 @@
+#
+# who : is online
+# a complete list of stations connected
+#
+# Copyright (c) 1999 Dirk Koopman G1TLH
+#
+# $Id$
+
+
+my $self = shift;
+my $dxchan;
+my @out;
+
+push @out, "  Callsign Type Started           Name";
+
+foreach $dxchan ( sort {$a->call cmp $b->call} DXChannel::get_all ) {
+    my $call = $dxchan->call();
+       my $t = cldatetime($dxchan->user->lastin);
+       my $sort = $dxchan->is_ak1a() ? "NODE" : "USER";
+       my $name = $dxchan->user->name;
+       push @out, sprintf "%10s $sort $t $name", $call;
+}
+
+return (1, @out)