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:
Code
CHECKCENSORLIST: for (@censored) {
		if (m/({)(.*)(})/) {
			$_ = ("$2");
		}
		if ($UserName =~ /$_/i) {
			$BadWord = "true";
			$CensorWord = $_;
			last CHECKCENSORLIST;
		}
Possible fix (change to):
Code
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).]