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);