]> dxcluster.org Git - spider.git/blob - cmd/show/debug.pl
*** empty log message ***
[spider.git] / 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