It says the error is between lines 828 and 915, so here are lines 820 - 930
sub set_vars_misc {
local(*FILE);
$CurrentTab = qq%$vars_wordlets_cp{misc_settings}%;
&CPHeader; &CPFooter;
#validate
my @ValidateArray = ("BBStatus", "BBClosedMessage", "MemberMinimum", "AdminTitle", "ModeratorTitle", "MemberTitle", "Member1Title", "Member2Title", "Member3Title", "Member4Title", "Member5Title", "Member1Posts", "Member2Posts", "Member3Posts", "Member4Posts", "Member5Posts", "JrMemberTitle", "JrMemberPosts", "NewbieTitle", "NewbieStarNum", "JrMemberStarNum", "MemberStarNum", "Member1StarNum", "Member2StarNum", "Member3StarNum", "Member4StarNum", "Member5StarNum", "ModeratorStarNum", "AdminStarNum", "NewbieStarURL", "JrMemberStarURL", "MemberStarURL", "Member1StarURL", "Member2StarURL", "Member3StarURL", "Member4StarURL", "Member5StarURL", "ModeratorStarURL", "AdminStarURL", "Censor", "EditOption", "IP", "EnglishSubjectCheck", "edit_public_names", "FloodCheck", "use_cache", "FloodCheckSpan", "EditWording");tle", "Censor", "EditOption", "IP", "EnglishSubjectCheck", "edit_public_names", "FloodCheck", "use_cache", "FloodCheckSpan", "EditWording");
&Validate(@ValidateArray);
# set/clean the vars ------------
my $FloodCheckSpan = &SmallClean($in{FloodCheckSpan});
my $censorwords = &SmallClean($in{censorwords});
my $BBClosedMessage = &SmallClean($in{BBClosedMessage});
my $AdminTitle = &LimitReturns($in{AdminTitle});
my $ModeratorTitle = &LimitReturns($in{ModeratorTitle});
my $MemberTitle = &LimitReturns($in{MemberTitle});
my $JrMemberTitle = &LimitReturns($in{JrMemberTitle});
my $NewbieTitle = &LimitReturns($in{NewbieTitle});
my $JrMemberPosts = &LimitReturns($in{JrMemberPosts});
my $Member1Title = &LimitReturns($in{Member1Title});
my $Member2Title = &LimitReturns($in{Member2Title});
my $Member3Title = &LimitReturns($in{Member3Title});
my $Member4Title = &LimitReturns($in{Member4Title});
my $Member5Title = &LimitReturns($in{Member5Title});
my $Member1Posts = &LimitReturns($in{Member1Posts});
my $Member2Posts = &LimitReturns($in{Member2Posts});
my $Member3Posts = &LimitReturns($in{Member3Posts});
my $Member4Posts = &LimitReturns($in{Member4Posts});
my $Member5Posts = &LimitReturns($in{Member5Posts});
my $NewbieStarNum = &LimitReturns($in{NewbieStarNum});
my $JrMemberPosts = &LimitReturns($in{JrMemberPosts});
my $JrMemberStarNum = &LimitReturns($in{JrMemberStarNum});
my $MemberStarNum = &LimitReturns($in{MemberStarNum});
my $Member1StarNum = &LimitReturns($in{Member1StarNum});
my $Member2StarNum = &LimitReturns($in{Member2StarNum});
my $Member3StarNum = &LimitReturns($in{Member3StarNum});
my $Member4StarNum = &LimitReturns($in{Member4StarNum});
my $Member5StarNum = &LimitReturns($in{Member5StarNum});
my $ModeratorStarNum = &LimitReturns($in{ModeratorStarNum});
my $AdminStarNum = &LimitReturns($in{AdminStarNum});
my $NewbieStarURL = &LimitReturns($in{NewbieStarURL});
my $JrMemberPosts = &LimitReturns($in{JrMemberPosts});
my $JrMemberStarURL = &LimitReturns($in{JrMemberStarURL});
my $MemberStarURL = &LimitReturns($in{MemberStarURL});
my $Member1StarURL = &LimitReturns($in{Member1StarURL});
my $Member2StarURL = &LimitReturns($in{Member2StarURL});
my $Member3StarURL = &LimitReturns($in{Member3StarURL});
my $Member4StarURL = &LimitReturns($in{Member4StarURL});
my $Member5StarURL = &LimitReturns($in{Member5StarURL});
my $ModeratorStarURL = &LimitReturns($in{ModeratorStarURL});
my $AdminStarURL = &LimitReturns($in{AdminStarURL});
$MemberTitle = &SmallClean($MemberTitle);
$JrMemberTitle = &SmallClean($JrMemberTitle);
$AdminTitle = &SmallClean($AdminTitle);
$ModeratorTitle = &SmallClean($ModeratorTitle);
$NewbieTitle = &SmallClean($NewbieTitle);
$JrMemberPosts = &SmallClean($JrMemberPosts);
$Member1Title = &SmallClean($Member1Title);
$Member2Title = &SmallClean($Member2Title);
$Member3Title = &SmallClean($Member3Title);
$Member4Title = &SmallClean($Member4Title);
$Member5Title = &SmallClean($Member5Title);
$Member1Posts = &SmallClean($Member1Posts);
$Member2Posts = &SmallClean($Member2Posts);
$Member3Posts = &SmallClean($Member3Posts);
$Member4Posts = &SmallClean($Member4Posts);
$Member5Posts = &SmallClean($Member5Posts);
$NewbieStarNum = &SmallClean($NewbieStarNum);
$JrMemberStarNum = &SmallClean($JrMemberStarNum);
$MemberStarNum = &SmallClean($MemberStarNum);
$Member1StarNum = &SmallClean($Member1StarNum);
$Member2StarNum = &SmallClean($Member2StarNum);
$Member3StarNum = &SmallClean($Member3StarNum);
$Member4StarNum = &SmallClean($Member4StarNum);
$Member5StarNum = &SmallClean($Member5StarNum);
$ModeratorStarNum = &SmallClean($ModeratorStarNum);
$AdminStarNum = &SmallClean($AdminStarNum);
$NewbieStarURL = &SmallClean($NewbieStarURL);
$JrMemberStarURL = &SmallClean($JrMemberStarURL);
$MemberStarURL = &SmallClean($MemberStarURL);
$Member1StarURL = &SmallClean($Member1StarURL);
$Member2StarURL = &SmallClean($Member2StarURL);
$Member3StarURL = &SmallClean($Member3StarURL);
$Member4StarURL = &SmallClean($Member4StarURL);
$Member5StarURL = &SmallClean($Member5StarURL);
$ModeratorStarURL = &SmallClean($ModeratorStarURL);
$AdminStarURL = &SmallClean($AdminStarURL);
$BBClosedMessage = &LimitReturns($BBClosedMessage);
$censorwords = &LimitReturns($censorwords);
#check censor words for parentheses!
if ($censorwords =~ m/(,|(|)|]|[)/) {
&StandardHTML("ERROR
We cannot process this request because you have a censor word list that includes at least one illegal character. You may not use any of the following characters in your censor word list:
, ( ) [ ]");
}
# write to file!
open (FILE, ">$vars_config{VariablesPath}/vars_misc.cgi") or die("Unable to open vars_misc.cgi file for writing.");
&lock;
print FILE qq!%vars_misc = (n!;
print FILE qq!ReplyQuote => "$in{ReplyQuote}",n!;
print FILE qq!BBStatus => "$in{BBStatus}",n!;
print FILE qq!BBClosedMessage => q~$BBClosedMessage~,n!;
print FILE qq!censorwords => q~$censorwords~,n!;
print FILE qq!MemberMinimum => "$in{MemberMinimum}",n!;
print FILE qq!AdminTitle => q~$AdminTitle~,n!;
print FILE qq!ModeratorTitle => q~$ModeratorTitle~,n!;
print FILE qq!MemberTitle => q~$MemberTitle~,n!;
print FILE qq!JrMemberTitle => q~$JrMemberTitle~,n!;
Hope this help u solve the problem!
