mirror of
git://scm.dxcluster.org/scm/spider
synced 2024-09-22 00:07:10 +00:00
6b6a800292
added a load of real and dummy commands to be getting on with Started some DOCUMENTATION (shock horror)
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");
|
|
|
|
|