X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=cmd%2Funset%2Fbadword.pl;h=d2b7fe3153720c9328d4ada1e9b271fcaa7c2571;hb=3cdd57e7baf63341fdcba6b764f304291ed0dbb2;hp=519604f112822aa9a67b50825d62d43021019204;hpb=417f55d271551683dfe1a49fb754024ba4731363;p=spider.git diff --git a/cmd/unset/badword.pl b/cmd/unset/badword.pl index 519604f1..d2b7fe31 100644 --- a/cmd/unset/badword.pl +++ b/cmd/unset/badword.pl @@ -3,8 +3,12 @@ # # Copyright (c) 1998 - Dirk Koopman G1TLH # -# $Id$ +# # my ($self, $line) = @_; +return (1, $self->msg('e5')) if $self->remotecmd; +# are we permitted? +return (1, $self->msg('e5')) if $self->priv < 6; +$line = join(' ', map {s|[/-]\d+$||; $_} split(/\s+/, $line)); return $BadWords::badword->unset(8, $self->msg('e6'), $self, $line);