From: 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.net/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')); +}