| 記事No | ： 5526 |
| 投稿日 | ： 2009/03/01(Sun) 23:41:22 |
| タイトル | ： Web Forum スパム対策 |
| ID情報 | ： seppa10 |
| 投稿者 | ： せっぱ |
| URL | ： http://www.iroirogoromo.jp/cgi/qa/wforum.cgi |
いつもお世話になっております。
Web Forum の参照先（URL入力）を削除方法を教えて下さい。
宜しくお願い致します。
| 記事No | ： 5532 |
| 投稿日 | ： 2009/03/02(Mon) 20:09:21 |
| タイトル | ： Re: Web Forum スパム対策 |
| ID情報 | ： Fuyuki |
| 投稿者 | ： BAL |
| URL | ： http://f43.aaa.livedoor.jp/~sumure/ |
> いつもお世話になっております。
>
> Web Forum の参照先（URL入力）を削除方法を教えて下さい。
>
> 宜しくお願い致します。
●init.cgi
以下の箇所になります。
#-------------------------------------------------
# 投稿フォーム部
#-------------------------------------------------
-- 途中省略 --
# プレビューのチェック
if ($cpv eq "on") { $checked = "checked"; }
print "<br><textarea name=\"message\" rows=\"10\" cols=\"62\">$res_msg</textarea>";
print "</td></tr><tr><td><b>参照先</b></td>";
print "<td><input type=\"text\" name=\"url\" size=\"58\" value=\"$curl\"></td></tr>\n";
アドレス入力欄を削除しても外部投稿フォームを使用してスパムは投稿されますので以下の追加も同時に行ってください。
#-------------------------------------------------
# 入力チェック
#-------------------------------------------------
sub chk_form {
local($err);
# POST限定
if ($postonly && !$post_flag) { &error("不正なアクセスです"); }
# 他サイトからのアクセスを排除
if ($baseUrl) {
$baseUrl =~ s/(\W)/\\$1/g;
local($ref) = $ENV{'HTTP_REFERER'};
$ref =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("H2", $1)/eg;
if ($ref && $ref !~ /$baseUrl/i) { &error("不正なアクセスです"); }
}
# チェック
if ($no_wd) { &no_wd; }
if ($jp_wd) { &jp_wd; }
if ($urlnum > 0) { &urlnum; }
if ($in{'name'} eq "" || $in{'name'} =~ /^(\x81\x40|\s)+$/){
$err .= "名前の入力モレです<br>";
}
if ($in{'message'} eq "" || $in{'message'} =~ /^(\x81\x40|\s|<br>)+$/) {
$err .= "コメントの入力モレです<br>";
}
if ($in_email && $in{'email'} eq "") {
$err .= "E-Mailは入力必須です<br>";
}
if ($in{'email'} && $in{'email'} !~ /^[\w\.\-]+\@[\w\.\-]+\.[a-zA-Z]{2,5}$/) {
$err .= "E-Mailの入力が不正です<br>";
}
if ($in{'sub'} eq "" || $in{'sub'} =~ /^(\x81\x40|\s)+$/) {
$err .= "題名の入力モレです<br>";
}
if ($in{'url'} eq "http://") {
$in{'url'} = "";
} elsif ($in{'url'} && $in{'url'} !~ m|^https?://|i) {
$err .= "URL情報がhttp(s)から始まっていません<br>";
}
if ($in{'url'}) { &error("不正なアクセスです"); } ## ★追加
if ($err) { &error($err); }
}
| 記事No | ： 5538 |
| 投稿日 | ： 2009/03/03(Tue) 13:50:01 |
| タイトル | ： Re^2: Web Forum スパム対策 |
| ID情報 | ： seppa10 |
| 投稿者 | ： せっぱ |
| URL | ： http://www.iroirogoromo.jp/cgi/qa/wforum.cgi |
お陰さまで修正する事が出来ました。
本当にありがとうございました。