spider/cmd/load/badwords.pl

8 lines
192 B
Perl
Raw Permalink Normal View History

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