5.45c - bug confirmed (yeah, I think this is a bug, so could Khârn please move it over there? Thx.)
Relevant code is in ubbmisc.cgi, sub RegSubmit.
Search for:
CHECKCENSORLIST: for (@censored) {
if (m/({)(.*)(})/) {
$_ = ("$2");
}
if ($UserName =~ /$_/i) {
$BadWord = "true";
$CensorWord = $_;
last CHECKCENSORLIST;
}Possible fix (change to):
CHECKCENSORLIST: for (@censored) {
if (m/({)(.*)(})/) {
$_ = ("$2");
$wordonly=1;
}
if ((($UserName =~ /$_/i) && !$wordonly) | | (($UserName =~ /b$_b/i))) {
$BadWord = "true";
$CensorWord = $_;
last CHECKCENSORLIST;
}Comments from other bug swatters?
(edit: there are two pipes in the message above (| |) - be sure to remove the space between them when copying the code!)
Graeme
[This message has been edited by Graeme (edited 05-12-2000).]
