]> www.dxcluster.org Git - spider.git/blob - cmd/show/debug.pl
11c3a84dc25f46adc644296fe58d2e6609a1e795
[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 ' ', dbglist();   # generate space delimited list
13
14 return (1, "debug levels: $set");
15
16