From f939c447ca5ef37073054a73e50b48a63533a9bc Mon Sep 17 00:00:00 2001 From: minima Date: Wed, 1 Nov 2000 23:55:16 +0000 Subject: [PATCH] added sh/msg_status command --- cmd/show/msg_status.pl | 21 +++++++++++++++++++++ 1 file changed, 21 insertions(+) create mode 100644 cmd/show/msg_status.pl diff --git a/cmd/show/msg_status.pl b/cmd/show/msg_status.pl new file mode 100644 index 00000000..5a2e7e07 --- /dev/null +++ b/cmd/show/msg_status.pl @@ -0,0 +1,21 @@ +# +# show msgs system status +# +# Copyright (c) 2000 Dirk Koopman G1TLH +# +# $Id$ +# +my $self = shift; +return (0, $self->msg('e5')) if $self->priv < 5; + +my @out; + +push @out, "Work Queue"; +for (keys %DXMsg::work) { + push @out, "$_ : $DXMsg::work{$_}\n"; +} +push @out, "Busy Queue"; +for (keys %DXMsg::busy) { + push @out, "$_ : $DXMsg::busy{$_}\n"; +} +return (0, @out); -- 2.43.0