Started on the dx cluster database stuff

[spider.git] / cmd / unset / debug.pl

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