projects
/
spider.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
fix warnings on $BRANCH
[spider.git]
/
cmd
/
shu.pl
1
#
2
# Command to force people to type at least 'shut' to shutdown
3
#
4
# Copyright (c) 2002 Dirk Koopman G1TLH
5
#
6
# $Id$
7
#
8
9
my $self = shift;
10
11
if ($self->priv >= 5) {
12
return (1, $self->msg('shu'))
13
} else {
14
return (1, $self->msg('e1'));
15
}