X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=cmd%2Fset%2Fdebug.pl;fp=cmd%2Fset%2Fdebug.pl;h=e5c4658b12bec6d237fa836367c442afcae772a8;hb=6b6a8002929017b6d4217f68fa492a2d728ee1fe;hp=0000000000000000000000000000000000000000;hpb=03d1d04e113f38a365f035612552a5e748b324ae;p=spider.git

diff --git a/cmd/set/debug.pl b/cmd/set/debug.pl
new file mode 100644
index 00000000..e5c4658b
--- /dev/null
+++ b/cmd/set/debug.pl
@@ -0,0 +1,15 @@
+#
+# add a debug level
+#
+# $Id$
+#
+
+use DXDebug;
+
+$self = shift;
+return (0) if $self->priv < 9;
+
+dbgadd(split);
+my $set = join ' ', dbglist();
+
+return (1, "Debug Levels now: $set");