From: minima <minima>
Date: Tue, 17 Sep 2002 23:21:13 +0000 (+0000)
Subject: add missing shu.pl file
X-Git-Tag: R_1_50~2
X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=86b2012061c37c8f5235bd6488a3a83dff3ea5f1;p=spider.git

add missing shu.pl file
---

diff --git a/cmd/shu.pl b/cmd/shu.pl
new file mode 100644
index 00000000..9ba65b5b
--- /dev/null
+++ b/cmd/shu.pl
@@ -0,0 +1,15 @@
+#
+# Command to force people to type at least 'shut' to shutdown
+#
+# Copyright (c) 2002 Dirk Koopman G1TLH
+#
+# $Id$
+#
+
+my $self = shift;
+
+if ($self->priv >= 5) {
+	return (1, $self->msg('shu'))
+} else {
+	return (1, $self->msg('e1'));
+}