ą�ź��Ęźą��ł���

Ą�ąŚ��Ąż:ź��ąę��,���ŻĘǷń�ŹÓ���Ę�ą�ź���,��ą�Ó�,��Ę���Ę���óą�/�޸�/ظ�
Ą�����Ąż:żɺǫ́�Źń,�żł�łą����ż��ą���Ę�(�Ҫ�ć�д)

=======================================
Ą�ą�Ó��ż��ą���Ę�Ąż:��ą��ćд���ż��ą���Ę�,ż����ł����ć���Ҫ�Ľ�ą�,Ąż��

��.*��

�ƥ��: ��xxxxxxxxxxxxxxx (ʥ��100��) xxxxxxxxxxxxx��

�ł��Ҫ�ó��,��òҪÓ�����ĆĄ���

����Ó�Ć�ͨ�ĵĄ�Ę,�ĘÓ�(ą�Ó��ż��ą���Ę�),���Ó�ĆĄ��Ҹ�ŁŻ0����

.?��.?��.?(���ńĘ���ôд��,ccc)

(Ę�ôĘ��ż��ą���Ę���? ��Ҳ�֪�ĄŃ�...��ą���,��дҪź��ĴĘÓ��ż�����)

=================================================================================
ą�Ó���6����ź�:�޸�ǰ����ą��Ż.

1.��UT_Language.pmĄ���źÓ:

$lng{'dirty_words'} ="���Ż�ąę���кŹÓ�ąż���ִĘ,�뷵��޸�,�к���";

2.in cfg_general.cgi:

��źÓ:(�Ҹ���ĘĘ�ĵط���źÓ)
###---------------------------
### scud words filter
my $dirty_wordStr = "";
for (@{$cfg{'dirty_words'}}) { $dirty_wordStr .= ',' . $_ ;}
$dirty_wordStr =~ s/^\,//s;

###---------------------------------------

###---------------------------
### scud words filter

"\n",
"These words can't be posted (Separated by comma, eg: word1,word2,word3. Leave empty if none)\n",
" " VALUE='$dirty_wordStr' class=subject>\n",
###----------------------------

3.in cfg_general_x.cgi��

��ĘĘ�ĵط���źÓ:

###---------------------------
### scud words filter
my @dirty_wordsArray = split(/\,/, $cgi->param('dirty_words'));
my $dirty_wordsStr = "";
for my $rn (@dirty_wordsArray) {
$dirty_wordsStr .= ",\'" . $rn . "\'" if length($rn);
}
$dirty_wordsStr =~ s/^,//;
$dirty_wordsStr = "[" . $dirty_wordsStr . "]";

$output .= "\$cfg\{\'dirty_words\'\} = " . $dirty_wordsStr . ";\n";

###---------------------------

4.��post_edit_x.cgi,post_reply_x.cgi,topic_new_x.cgi��:

śź��ą��Ą�Ąֵ�ó��źÓ:(Ąż�� $body or paramError($lng{'errBdyEmpty'}); �ó�ć)
##=============================================
## scud filter dirty words

for (@{$cfg{'dirty_words'}})
{
if($body =~/$_/i) { entryError($lng{'dirty_words'}) ; }
}

for (@{$cfg{'dirty_words'}})
{
if($subject =~/$_/i) { entryError($lng{'dirty_words'}) ; }
}

##=============================================