2 # show msgs system status
4 # Copyright (c) 2000 Dirk Koopman G1TLH
9 return (0, $self->msg('e5')) if $self->priv < 5;
13 push @out, "Work Queue";
14 for (keys %DXMsg::work) {
15 push @out, "$_ : $DXMsg::work{$_}\n";
17 push @out, "Busy Queue";
18 for (keys %DXMsg::busy) {
19 push @out, "$_ : $DXMsg::busy{$_}\n";