mirror of
git://scm.dxcluster.org/scm/spider
synced 2024-09-22 00:07:10 +00:00
17 lines
236 B
Perl
17 lines
236 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");
|
||
|
|
|
||
|
|
|