spider/cmd/load/badwords.pl
minima 8e0eef8021 fix a talk bug for t xxx > yyy
added badword checking
2000-09-02 15:28:14 +00:00

8 lines
192 B
Perl

# 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);