mirror of
git://scm.dxcluster.org/scm/spider
synced 2024-09-21 15:57:12 +00:00
16 lines
234 B
Perl
16 lines
234 B
Perl
#
|
|
# 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'));
|
|
}
|