add missing shu.pl file

diff --git a/cmd/shu.pl b/cmd/shu.pl
new file mode 100644 (file)
index 0000000..9ba65b5
--- /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'));
+}