Sensitive Censor
1.0a
This mod increases the sensitivity of the censor function to detect censored words seperated by symbols (ie !@#$%^&*....) and spaces.
Ex. if "damn" is a censored word, then the censor would pickup d#a#m#n or d a* m^ n or .......
Installation
---------------------
1. Mod the files
2. Upload the modded files to the correct directories
Version History
----------------------
ver 1.0 Initial Release
ver 1.0a Update for Y2 Final Release
astro-pilot
Sources/Subs.pl
my ($tmpa, $tmpb, $tmpc) = @{$censor};
if ($tmpc) {
$string =~ s~(^|\W|_)\Q$tmpa\E(?=$|\W|_)~$1$tmpb~gi;
} else {
$string =~ s~\Q$tmpa\E~$tmpb~gi;
my ($tmpa,$tmpb,$tmpc) = @{$censor};
$pattern = q((?:_| \;|<\;|>\;|&\;|"\;||\;|
|\W)*(?!br />));
$tmpa =~ s/.(?!$)/$&$pattern/gi;
if ($tmpc) {
$string =~ s~(^|\W|_)$tmpa(?=$|\W|_)~$1$tmpb~gi;
} else {
$string =~ s~$tmpa~$tmpb~gi;
Admin/ModList.pl
### END BOARDMOD ANCHOR ###
$sensitive_censor_mod = "Sensitive Censor beta 1.0a_YaBB2|astro-pilot|This mod increases the sensitivity of the censor function to detect censored words seperated by symbols (ie !@#$%^&*....) and spaces.|1.0a|9/30/05";
push (@installed_mods, "$sensitive_censor_mod");