KENT-WEB サポートコーナー 過去ログ [ 0500 ]

---

記事No	： 4409
投稿日	： 2008/09/01(Mon) 10:57:57
タイトル	： Message ENQに禁止ワード
ID情報	： kera
投稿者	： ar
URL	： http://cgi3.synapse.ne.jp/~a-k-i/2h-msgenq/msgenq.cgi

Message ENQに禁止ワードを設定したいのですが、項目がありません。
追加方法をおしえてください。宜しくお願いします

---

記事No	： 4413
投稿日	： 2008/09/01(Mon) 19:16:26
タイトル	： Re: Message ENQに禁止ワード
ID情報	： pachira
投稿者	： pachira
URL	： http://www5e.biglobe.ne.jp/~pachira/

> Message ENQに禁止ワードを設定したいのですが、項目がありません。
> 追加方法をおしえてください。宜しくお願いします

１．
# 禁止ワード
# → 投稿時禁止するワードをコンマで区切る
$no_wd = '';

２．
if ($no_wd) { &no_wd; }

３．
#-------------------------------------------------
# 禁止ワードチェック
#-------------------------------------------------
sub no_wd {
local($flg);
foreach ( split(/,/, $no_wd) ) {
if (index("$in{'comment'}",$_) >= 0) {
$flg = 1; last;
}
}
if ($flg) { &error("禁止ワードが含まれています"); }
}

要は、この3点です。
禁止ワード機能が組み込まれたプログラムを参考にして下さい。

---

記事No	： 4414
投稿日	： 2008/09/01(Mon) 22:05:03
タイトル	： Re^2: Message ENQに禁止ワード
ID情報	： kera
投稿者	： ar
URL	： http://cgi3.synapse.ne.jp/~a-k-i/2h-msgenq/msgenq.cgi

> > Message ENQに禁止ワードを設定したいのですが、項目がありません。
> > 追加方法をおしえてください。宜しくお願いします
>
> １．
> # 禁止ワード
> # → 投稿時禁止するワードをコンマで区切る
> $no_wd = '';
>
> ２．
> if ($no_wd) { &no_wd; }
>
> ３．
> #-------------------------------------------------
> # 禁止ワードチェック
> #-------------------------------------------------
> sub no_wd {
> local($flg);
> foreach ( split(/,/, $no_wd) ) {
> if (index("$in{'comment'}",$_) >= 0) {
> $flg = 1; last;
> }
> }
> if ($flg) { &error("禁止ワードが含まれています"); }
> }
>
> 要は、この3点です。
> 禁止ワード機能が組み込まれたプログラムを参考にして下さい。

***********************************************************
ご返答ありがとうございます
JOYFULを見本にしながらやってみたのですが、うまくいきません
ちなみに、この場所にいれてみました
-----------------------------------------

msgenq.cgiの139あたりから入れました

ーーーーーーーーーーーーーーーーー

# アクセス制限（半角スペースで区切る）
# → 拒否するホスト名又はIPアドレスを記述（アスタリスク可）
# → 記述例 $deny = '**';
$deny = '';

# 禁止ワード
# → 投稿時禁止するワードをコンマで区切る
$no_wd = 'アダルト,セックス,性感,sex,H';

if ($no_wd) { &no_wd; }

# ホスト取得方法
# 0 : gethostbyaddr関数を使わない



　　　187あたりからいれました
------------------------------------
if ($flg) { &error("アクセスを許可されていません"); }
}

#-------------------------------------------------
# 禁止ワードチェック
#-------------------------------------------------
sub no_wd {
local($flg);
foreach ( split(/,/, $no_wd) ) {
if (index("$in{'comment'}",$_) >= 0) {
$flg = 1; last;
}
}
if ($flg) { &error("禁止ワードが含まれています"); }
}

#-------------------------------------------------
# 初期画面
#-------------------------------------------------
sub html {


入れる場所がまちがっているのでしょうか、ご教示お願いします。

---

記事No	： 4420
投稿日	： 2008/09/03(Wed) 09:26:09
タイトル	： Re^3: Message ENQに禁止ワード
ID情報	： pachira
投稿者	： pachira
URL	： http://www5e.biglobe.ne.jp/~pachira/

> > > Message ENQに禁止ワードを設定したいのですが、項目がありません。
> > > 追加方法をおしえてください。宜しくお願いします
> >
> > １．
> > # 禁止ワード
> > # → 投稿時禁止するワードをコンマで区切る
> > $no_wd = '';
> >
> > ２．
> > if ($no_wd) { &no_wd; }
> >
> > ３．
> > #-------------------------------------------------
> > # 禁止ワードチェック
> > #-------------------------------------------------
> > sub no_wd {
> > local($flg);
> > foreach ( split(/,/, $no_wd) ) {
> > if (index("$in{'comment'}",$_) >= 0) {
> > $flg = 1; last;
> > }
> > }
> > if ($flg) { &error("禁止ワードが含まれています"); }
> > }
> >
> > 要は、この3点です。
> > 禁止ワード機能が組み込まれたプログラムを参考にして下さい。
>
> ***********************************************************
> ご返答ありがとうございます
> JOYFULを見本にしながらやってみたのですが、うまくいきません
> ちなみに、この場所にいれてみました
> -----------------------------------------
>
> msgenq.cgiの139あたりから入れました
>
> ーーーーーーーーーーーーーーーーー
>
> # アクセス制限（半角スペースで区切る）
> # → 拒否するホスト名又はIPアドレスを記述（アスタリスク可）
> # → 記述例 $deny = '**';
> $deny = '';
>
> # 禁止ワード
> # → 投稿時禁止するワードをコンマで区切る
> $no_wd = 'アダルト,セックス,性感,sex,H';
>
> if ($no_wd) { &no_wd; }
>
> # ホスト取得方法
> # 0 : gethostbyaddr関数を使わない
>
>
>
> 　　　187あたりからいれました
> ------------------------------------
> if ($flg) { &error("アクセスを許可されていません"); }
> }
>
> #-------------------------------------------------
> # 禁止ワードチェック
> #-------------------------------------------------
> sub no_wd {
> local($flg);
> foreach ( split(/,/, $no_wd) ) {
> if (index("$in{'comment'}",$_) >= 0) {
> $flg = 1; last;
> }
> }
> if ($flg) { &error("禁止ワードが含まれています"); }
> }
>
> #-------------------------------------------------
> # 初期画面
> #-------------------------------------------------
> sub html {
>
>
> 入れる場所がまちがっているのでしょうか、ご教示お願いします。

入れる場所が適切ではないかと。

#-------------------------------------------------
# 投票受理
#-------------------------------------------------
sub regist {
# POST限定
if ($postonly && !$post_flag) { &error("不正なアクセスです"); }

if ($in{'item'} eq "") { &error("項目の選択がありません"); }
if (length($in{'comment'}) > $msg_max*2) {
&error("コメント文が長すぎます。全角$msg_max文字以内で記述して下さい");
}
if ($no_wd) { &no_wd; }#←追加

---

記事No	： 4422
投稿日	： 2008/09/03(Wed) 10:40:35
タイトル	： 出来ました: Message ENQに禁止ワード
ID情報	： kera
投稿者	： ar
URL	： http://cgi3.synapse.ne.jp/~a-k-i/2h-msgenq/msgenq.cgi

ありがとうございました
おかげさまで、迷惑投稿に対処できました

又、なにかのときは、
ご教示お願いいたします

---

[検索ページ]