mirror of
git://scm.dxcluster.org/scm/spider
synced 2024-09-21 15:57:12 +00:00
8e0eef8021
added badword checking
8 lines
192 B
Perl
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);
|