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 #
   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 }