cmd/load/badwords.pl

   1 # reload the badwords file
   2 my $self = shift;
   3 my @out;
   4 return (1, $self->msg('e5')) if $self->priv < 9;
   5 push @out, (BadWords::load());
   6 @out = ($self->msg('ok')) unless @out;
   7 return (1, @out);