Started on the dx cluster database stuff

[spider.git] / cmd / shutdown.pl

diff --git a/cmd/shutdown.pl b/cmd/shutdown.pl
new file mode 100644 (file)
index 0000000..43b6fb7
--- /dev/null
+++ b/cmd/shutdown.pl
@@ -0,0 +1,10 @@
+#
+# the shutdown command
+# 
+# $Id$
+#
+my $self = shift;
+if ($self->priv >= 5) {
+  &main::cease();
+}
+return (0);