12/02/28 01:48:21.14
>>52
依頼内容が多すぎだよなぁ。とりあえず最初のほうだけ。
＞１、禁止ワードの設定方法がわかりません。
禁止ワードはkentwebでもいいし他のスクリプトから持ってくればいいんじゃない？
こんな感じで、初期設定のどこかに$errwordを追加する。たとえばこのへん。
# 禁止ワード
# → 投稿時禁止するワードをコンマで区切る
my $errword = 'あいうえお,かきくけこ,さしすせそ';
##################################################################
### 初期設定ここまで ### 初期設定ここまで ### 初期設定ここまで ###
##################################################################
実際の処理はregistの中の#--変数をセット--#の上あたりに追加する。
my $flg;
foreach ( split(/,/, $errword) ) {
if (index("$in{name} $in{title} $in{comment}", $_) >= 0) {
$flg = 1;
last;
}
}
if ($flg) { &error("禁止ワードが含まれています"); }
#--変数をセット--#
＞２、男性、女性の新規投書が有ればSendmailのアドレスで受け取りたい。
＞３、男性、女性返信の再もSendmailのアドレスで受け取りたい。
Sendmailのアドレスって何？$administrator？