cmd/show/debug.pl

   1 #
   2 # show the debug status
   3 #
   4 # $Id$
   5 #
   6
   7 use DXDebug;
   8
   9 my $self = shift;
  10 return (0) if ($self->priv < 9); # only console users allowed
  11
  12 my $set = join ' ', dbglist();   # generate space delimited list
  13
  14 return (1, "debug levels: $set");
  15
  16