projects
/
spider.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
bb8879b
)
added sh/msg_status command
author
minima
<minima>
Wed, 1 Nov 2000 23:55:16 +0000
(23:55 +0000)
committer
minima
<minima>
Wed, 1 Nov 2000 23:55:16 +0000
(23:55 +0000)
cmd/show/msg_status.pl
[new file with mode: 0644]
patch
|
blob
diff --git a/cmd/show/msg_status.pl
b/cmd/show/msg_status.pl
new file mode 100644
(file)
index 0000000..
5a2e7e0
--- /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);