]> dxcluster.net Git - spider.git/blob - cmd/show/debug.pl
See Changes
[spider.git] / cmd / show / debug.pl
1 #
2 # show the debug status
3 #
4 #
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 ' ', sort (dbglist());   # generate space delimited list
13
14 return (1, "debug levels: $set");
15
16