Started on the dx cluster database stuff

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

diff --git a/cmd/set/debug.pl b/cmd/set/debug.pl
new file mode 100644 (file)
index 0000000..e5c4658
--- /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");