]> dxcluster.org Git - spider.git/blob - cmd/show/msg_status.pl
5a2e7e07e4934d7e694f01ca014a5a4d436f3913
[spider.git] / cmd / show / msg_status.pl
1 #
2 # show msgs system status
3 #
4 # Copyright (c) 2000 Dirk Koopman G1TLH
5 #
6 # $Id$
7 #
8 my $self = shift;
9 return (0, $self->msg('e5')) if $self->priv < 5;
10
11 my @out;
12
13 push @out, "Work Queue";
14 for (keys %DXMsg::work) {
15         push @out, "$_ : $DXMsg::work{$_}\n";
16 }
17 push @out, "Busy Queue";
18 for (keys %DXMsg::busy) {
19         push @out, "$_ : $DXMsg::busy{$_}\n";
20 }
21 return (0, @out);