mirror of
git://scm.dxcluster.org/scm/spider
synced 2024-09-21 15:57:12 +00:00
17 lines
235 B
Perl
17 lines
235 B
Perl
#
|
|
# show the debug status
|
|
#
|
|
# $Id$
|
|
#
|
|
|
|
use DXDebug;
|
|
|
|
my $self = shift;
|
|
return (0) if ($self->priv < 9); # only console users allowed
|
|
|
|
my $set = join ' ', dbglist(); # generate space delimited list
|
|
|
|
return (1, "debug levels: $set");
|
|
|
|
|