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

---

記事No	： 4943
投稿日	： 2008/11/22(Sat) 13:12:30
タイトル	： joyful　迷惑投稿　参照URL削除
ID情報	： kera
投稿者	： ar
URL	： http://cgi3.synapse.ne.jp/~a-k-i/k-basyo-joyful/joyful.cgi

迷惑投稿対策として彼らの目的はエロサイトのURLを載せることですので
参照URLを入れる箇所を削除したのですが
なぜか参照URLが入れた状態で投稿されてきます（ハウスマークが出る）
ちなみに削除したところは
560番の下記です。
<td nowrap><b>参照URL</b></td>
<td><input type="text" size="50" name="url" value="$curl"></td>
</tr>

URLを入れる箇所を削除したのに、
何故URLが入れられてしまうのでしょうか（ハウスマークが出る）
ご教示宜しくお願いいたします

---

記事No	： 4944
投稿日	： 2008/11/22(Sat) 13:28:15
タイトル	： Re: joyful　迷惑投稿　参照URL削除
ID情報	： pachira
投稿者	： pachira
URL	： http://www5e.biglobe.ne.jp/~pachira/

> 迷惑投稿対策として彼らの目的はエロサイトのURLを載せることですので
> 参照URLを入れる箇所を削除したのですが
> なぜか参照URLが入れた状態で投稿されてきます（ハウスマークが出る）
> ちなみに削除したところは
> 560番の下記です。
> <td nowrap><b>参照URL</b></td>
> <td><input type="text" size="50" name="url" value="$curl"></td>
> </tr>
>
> URLを入れる箇所を削除したのに、
> 何故URLが入れられてしまうのでしょうか（ハウスマークが出る）
> ご教示宜しくお願いいたします

恐らく、自動書き込みソフトか、それなりのスキルを持った人間の仕業でしょう。
（規定のフォームなんて使わない）
で、以下の2箇所を削除か無効にして下さい。

154行目
if ($url{$_}) {
print "<a href=\"$url{$_}\" target=\"_blank\">$img_home</a> ";
}

201行目
if ($url{$res}) {
print "<a href=\"$url{$res}\" target=\"_blank\">$img_home</a>";
}

---

記事No	： 4945
投稿日	： 2008/11/22(Sat) 13:42:54
タイトル	： Re^2: joyful　迷惑投稿　参照URL削除
ID情報	： kera
投稿者	： ar
URL	： http://cgi3.synapse.ne.jp/~a-k-i/k-basyo-joyful/joyful.cgi

> > 迷惑投稿対策として彼らの目的はエロサイトのURLを載せることですので
> > 参照URLを入れる箇所を削除したのですが
> > なぜか参照URLが入れた状態で投稿されてきます（ハウスマークが出る）
> > ちなみに削除したところは
> > 560番の下記です。
> > <td nowrap><b>参照URL</b></td>
> > <td><input type="text" size="50" name="url" value="$curl"></td>
> > </tr>
> >
> > URLを入れる箇所を削除したのに、
> > 何故URLが入れられてしまうのでしょうか（ハウスマークが出る）
> > ご教示宜しくお願いいたします
>
> 恐らく、自動書き込みソフトか、それなりのスキルを持った人間の仕業でしょう。
> （規定のフォームなんて使わない）
> で、以下の2箇所を削除か無効にして下さい。
>
> 154行目と201行目
> if ($url{$res}) {
> print "<a href=\"$url{$res}\" target=\"_blank\">$img_home</a>";
> }

ご連絡ありがとうございます
お教えいただいたjoyful.cgiの上記を削除したところ
表示がおかしくなってしまいました
再度ご教示願います。
下記のように削除してあります
# 表示
foreach (@view) {
# 親記事
print "<p><table width=\"90%\" cellpadding=\"5\" cellspacing=\"1\" border=\"1\">\n";
print "<tr><td bgcolor=\"$tbl_color\">\n";
print "<b style=\"color:$subcol\">$sub{$_}</b> ";
print "投稿者：<b>$nam{$_}</b> 投稿日：$dat{$_} ";
print "<span style=\"color:$subcol\">No.$_</span> ";

print "<a href=\"$url{$_}\" target=\"_blank\">$img_home</a> ";
}
print "&nbsp;&nbsp;<input type=\"submit\" name=\"res:$_\" value=\"返信\"><br>\n";
print "<div style=\"margin-left:22px; margin-top:6px\">";

# 画像
if ($ext{$_} =~ /\.(jpg|gif|png)$/) {

# 画像-左
if ($imgpoint == 1) {
print "<a href=\"$imgurl/$ext{$_}\" target=\"_blank\">";
print "<img src=\"$imgurl/$ext{$_}\" width=\"$imw{$_}\" height=\"$imh{$_}\" align=\"left\" hspace=\"5\" alt=\"\" border=\"0\"></a>";
print "<span style=\"color:$col{$_}\">$com{$_}</span><br clear=\"all\">\n";

# 画像-下
} elsif ($imgpoint == 2) {
print "<span style=\"color:$col{$_}\">$com{$_}</span><br>";
print "<a href=\"$imgurl/$ext{$_}\" target=\"_blank\">";
print "<img src=\"$imgurl/$ext{$_}\" width=\"$imw{$_}\" height=\"$imh{$_}\" alt=\"\" border=\"0\"></a>\n";
}

# 画像以外
} elsif ($ext{$_}) {
# サイズ
local($size) = -s "$imgdir/$ext{$_}";
$size = int ( $size / 1024 + 0.5 ) . 'KB';

print "<span style=\"color:$col{$_}\">$com{$_}</span><br><br>";
print "添付：<a href=\"$imgurl/$ext{$_}\" target=\"_blank\">$ext{$_}</a>\n";
print "($size)\n";

# 添付なし
} else {
print "<span style=\"color:$col{$_}\">$com{$_}</span>";
}
print "</div>\n";

# レス記事
if (defined($res{$_})) {
print "<div style=\"margin-left:22px; margin-top:5px;\"><hr size=\"1\">\n";

foreach $res ( split(/,/, $res{$_}) ) {

print "<b style=\"color:$subcol\">$sub{$res}</b> - <b>$nam{$res}</b> ";
print "$dat{$res} <span style=\"color:$subcol\">No.$res</span> ";
if ($url{$res}) {

print "<br>";

# 画像
if ($ext{$res} =~ /\.(jpg|gif|png)$/) {

---

記事No	： 4946
投稿日	： 2008/11/22(Sat) 14:03:55
タイトル	： Re^3: joyful　迷惑投稿　参照URL削除
ID情報	： pachira
投稿者	： pachira
URL	： http://www5e.biglobe.ne.jp/~pachira/

> ご連絡ありがとうございます
> お教えいただいたjoyful.cgiの上記を削除したところ
> 表示がおかしくなってしまいました
> 再度ご教示願います。
> 下記のように削除してあります
> # 表示
> foreach (@view) {
> # 親記事
> print "<p><table width=\"90%\" cellpadding=\"5\" cellspacing=\"1\" border=\"1\">\n";
> print "<tr><td bgcolor=\"$tbl_color\">\n";
> print "<b style=\"color:$subcol\">$sub{$_}</b> ";
> print "投稿者：<b>$nam{$_}</b> 投稿日：$dat{$_} ";
> print "<span style=\"color:$subcol\">No.$_</span> ";
>
> print "<a href=\"$url{$_}\" target=\"_blank\">$img_home</a> ";
> }
> print "&nbsp;&nbsp;<input type=\"submit\" name=\"res:$_\" value=\"返信\"><br>\n";
> print "<div style=\"margin-left:22px; margin-top:6px\">";
>
> # 画像
> if ($ext{$_} =~ /\.(jpg|gif|png)$/) {
>
> # 画像-左
> if ($imgpoint == 1) {
> print "<a href=\"$imgurl/$ext{$_}\" target=\"_blank\">";
> print "<img src=\"$imgurl/$ext{$_}\" width=\"$imw{$_}\" height=\"$imh{$_}\" align=\"left\" hspace=\"5\" alt=\"\" border=\"0\"></a>";
> print "<span style=\"color:$col{$_}\">$com{$_}</span><br clear=\"all\">\n";
>
> # 画像-下
> } elsif ($imgpoint == 2) {
> print "<span style=\"color:$col{$_}\">$com{$_}</span><br>";
> print "<a href=\"$imgurl/$ext{$_}\" target=\"_blank\">";
> print "<img src=\"$imgurl/$ext{$_}\" width=\"$imw{$_}\" height=\"$imh{$_}\" alt=\"\" border=\"0\"></a>\n";
> }
>
> # 画像以外
> } elsif ($ext{$_}) {
> # サイズ
> local($size) = -s "$imgdir/$ext{$_}";
> $size = int ( $size / 1024 + 0.5 ) . 'KB';
>
> print "<span style=\"color:$col{$_}\">$com{$_}</span><br><br>";
> print "添付：<a href=\"$imgurl/$ext{$_}\" target=\"_blank\">$ext{$_}</a>\n";
> print "($size)\n";
>
> # 添付なし
> } else {
> print "<span style=\"color:$col{$_}\">$com{$_}</span>";
> }
> print "</div>\n";
>
> # レス記事
> if (defined($res{$_})) {
> print "<div style=\"margin-left:22px; margin-top:5px;\"><hr size=\"1\">\n";
>
> foreach $res ( split(/,/, $res{$_}) ) {
>
> print "<b style=\"color:$subcol\">$sub{$res}</b> - <b>$nam{$res}</b> ";
> print "$dat{$res} <span style=\"color:$subcol\">No.$res</span> ";
> if ($url{$res}) {
>
> print "<br>";
>
> # 画像
> if ($ext{$res} =~ /\.(jpg|gif|png)$/) {

言った事がぜんぜん出来てないです。
もう一度、お読み下さい。（直後に微修正かけてるのはご容赦を）
http://www.kent-web.com/support/bbs/?list=log&no=4944

---

記事No	： 4947
投稿日	： 2008/11/22(Sat) 14:27:13
タイトル	： Re^4: joyful　迷惑投稿　参照URL削除
ID情報	： Fuyuki
投稿者	： BAL
URL	： http://f43.aaa.livedoor.jp/~sumure/

迷惑投稿を拒否するという目的からするとこの方法が向いているかもしれませんね＾＾

●regist.cgi

#-------------------------------------------------
# 投稿記事受付
#-------------------------------------------------
sub regist {
local($top,$ango,$f,$match,$tail,$W,$H,@lines,@new,@tmp);

# フォーム入力チェック
&form_check;
if ($in{'url'}) { &error("不正な投稿です"); } ## ★追加
# 投稿キーチェック

---

記事No	： 4949
投稿日	： 2008/11/22(Sat) 14:50:28
タイトル	： BALさん再度ご連を: joyful　迷惑投稿
ID情報	： kera
投稿者	： ar
URL	： http://cgi3.synapse.ne.jp/~a-k-i/k-basyo-joyful/joyful.cgi

> 迷惑投稿を拒否するという目的からするとこの方法が向いているかもしれませんね＾＾
>
> ●regist.cgi
>
> #-------------------------------------------------
> # 投稿記事受付
> #-------------------------------------------------
> sub regist {
> local($top,$ango,$f,$match,$tail,$W,$H,@lines,@new,@tmp);
>
> # フォーム入力チェック
> &form_check;
> if ($in{'url'}) { &error("不正な投稿です"); } ## ★追加
> # 投稿キーチェック

BAL様
お教えいただいた手法はどんなふうに
撃退こうかがあるのかおしえてください。
参照URLの所にもコメントのところにも
URLドレスを入れると拒否するということでしょうか
それでしたら最適なのですが

---

記事No	： 4950
投稿日	： 2008/11/22(Sat) 14:59:49
タイトル	： Re: BALさん再度ご連を: joyful　迷惑投稿
ID情報	： Fuyuki
投稿者	： BAL
URL	： http://f43.aaa.livedoor.jp/~sumure/

> > 迷惑投稿を拒否するという目的からするとこの方法が向いているかもしれませんね＾＾
> >
> > ●regist.cgi
> >
> > #-------------------------------------------------
> > # 投稿記事受付
> > #-------------------------------------------------
> > sub regist {
> > local($top,$ango,$f,$match,$tail,$W,$H,@lines,@new,@tmp);
> >
> > # フォーム入力チェック
> > &form_check;
> > if ($in{'url'}) { &error("不正な投稿です"); } ## ★追加
> > # 投稿キーチェック
>
> BAL様
> お教えいただいた手法はどんなふうに
> 撃退こうかがあるのかおしえてください。

投稿フォームのURL欄を削除してもURLが投稿できるのは外部投稿フォームを使用しているからです。
外部投稿フォームにURLを入れて投稿した場合は、その投稿自体が不正投稿として拒否されるわけです。

---

記事No	： 4951
投稿日	： 2008/11/22(Sat) 15:08:12
タイトル	： Re^2: BALさん再度ご連を: joyful　迷惑投稿
ID情報	： kera
投稿者	： ar
URL	： http://cgi3.synapse.ne.jp/~a-k-i/k-basyo-joyful/joyful.cgi

> > > 迷惑投稿を拒否するという目的からするとこの方法が向いているかもしれませんね＾＾
> > >
> > > ●regist.cgi
> > >
> > > #-------------------------------------------------
> > > # 投稿記事受付
> > > #-------------------------------------------------
> > > sub regist {
> > > local($top,$ango,$f,$match,$tail,$W,$H,@lines,@new,@tmp);
> > >
> > > # フォーム入力チェック
> > > &form_check;
> > > if ($in{'url'}) { &error("不正な投稿です"); } ## ★追加
> > > # 投稿キーチェック
> >
> > BAL様
> > お教えいただいた手法はどんなふうに
> > 撃退こうかがあるのかおしえてください。
>
> 投稿フォームのURL欄を削除してもURLが投稿できるのは外部投稿フォームを使用しているからです。
> 外部投稿フォームにURLを入れて投稿した場合は、その投稿自体が不正投稿として拒否されるわけです。
>
>
----------------------
BALさんありがとうございます
ということは、参照URLの所にもコメントのところにも
URLドレスを入れると拒否するということですね
ありがとうございます
こちらも会わせてセッティングさせてもらいます。

---

記事No	： 4952
投稿日	： 2008/11/22(Sat) 15:38:25
タイトル	： Re^3: BALさん再度ご連を: joyful　迷惑投稿
ID情報	： Fuyuki
投稿者	： BAL
URL	： http://f43.aaa.livedoor.jp/~sumure/

> ということは、参照URLの所にもコメントのところにも
> URLドレスを入れると拒否するということですね


コメント欄のアドレスも拒否する場合は以下の追加修正が必要です。

●init.cgi

# URL個数チェック
# → 投稿コメント中に含まれるURL個数の最大値
$urlnum = 0;


●regist.cgi

#-------------------------------------------------
# 投稿記事受付
#-------------------------------------------------
sub regist {
local($top,$ango,$f,$match,$tail,$W,$H,@lines,@new,@tmp);

# フォーム入力チェック
&form_check;
if ($in{'url'}) { &error("不正な投稿です"); } ## ★追加
# 投稿キーチェック
if ($regist_key) {
require $regkeypl;

if ($in{'regikey'} !~ /^\d{4}$/) {
&error("投稿キーが入力不備です。<p>投稿フォームに戻って再読込み後、指定の数字を入力してください");
}

# 投稿キーチェック
# -1 : キー不一致
# 0 : 制限時間オーバー
# 1 : キー一致
local($chk) = &registkey_chk($in{'regikey'}, $in{'str_crypt'});
if ($chk == 0) {
&error("投稿キーが制限時間を超過しました。<p>投稿フォームに戻って再読込み後、指定の数字を再入力してください");
} elsif ($chk == -1) {
&error("投稿キーが不正です。<p>投稿フォームに戻って再読込み後、指定の数字を入力してください");
}
}

# チェック
if ($no_wd) { &no_wd; }
if ($jp_wd) { &jp_wd; }
if ($urlnum >= 0) { &urlnum; } ## ★修正

---

記事No	： 4953
投稿日	： 2008/11/22(Sat) 16:02:27
タイトル	： Re^4: BALさんありがとうございました
ID情報	： kera
投稿者	： ar
URL	： http://cgi3.synapse.ne.jp/~a-k-i/k-basyo-joyful/joyful.cgi

> > ということは、参照URLの所にもコメントのところにも
> > URLドレスを入れると拒否するということですね
>
>
> コメント欄のアドレスも拒否する場合は以下の追加修正が必要です。
>
> ●init.cgi
>
> # URL個数チェック
> # → 投稿コメント中に含まれるURL個数の最大値
> $urlnum = 0;
>
>
> ●regist.cgi
>
> #-------------------------------------------------
> # 投稿記事受付
> #-------------------------------------------------
> sub regist {
> local($top,$ango,$f,$match,$tail,$W,$H,@lines,@new,@tmp);
>
> # フォーム入力チェック
> &form_check;
> if ($in{'url'}) { &error("不正な投稿です"); } ## ★追加
> # 投稿キーチェック
> if ($regist_key) {
> require $regkeypl;
>
> if ($in{'regikey'} !~ /^\d{4}$/) {
> &error("投稿キーが入力不備です。<p>投稿フォームに戻って再読込み後、指定の数字を入力してください");
> }
>
> # 投稿キーチェック
> # -1 : キー不一致
> # 0 : 制限時間オーバー
> # 1 : キー一致
> local($chk) = &registkey_chk($in{'regikey'}, $in{'str_crypt'});
> if ($chk == 0) {
> &error("投稿キーが制限時間を超過しました。<p>投稿フォームに戻って再読込み後、指定の数字を再入力してください");
> } elsif ($chk == -1) {
> &error("投稿キーが不正です。<p>投稿フォームに戻って再読込み後、指定の数字を入力してください");
> }
> }
>
> # チェック
> if ($no_wd) { &no_wd; }
> if ($jp_wd) { &jp_wd; }
> if ($urlnum >= 0) { &urlnum; } ## ★修正
>
-------------------------

BALさん
分かりやすく説明いただきありがとうございます
これで、様子をみます
これからも、宜しくお願いいたします。

---

記事No	： 4948
投稿日	： 2008/11/22(Sat) 14:49:24
タイトル	： pachiraさんありがとうございま joyful　迷惑投稿
ID情報	： kera
投稿者	： ar
URL	： http://cgi3.synapse.ne.jp/~a-k-i/k-basyo-joyful/joyful.cgi

> > ご連絡ありがとうございます
> > お教えいただいたjoyful.cgiの上記を削除したところ
> > 表示がおかしくなってしまいました
> > 再度ご教示願います。
> > 下記のように削除してあります
> > # 表示
> > foreach (@view) {
> > # 親記事
> > print "<p><table width=\"90%\" cellpadding=\"5\" cellspacing=\"1\" border=\"1\">\n";
> > print "<tr><td bgcolor=\"$tbl_color\">\n";
> > print "<b style=\"color:$subcol\">$sub{$_}</b> ";
> > print "投稿者：<b>$nam{$_}</b> 投稿日：$dat{$_} ";
> > print "<span style=\"color:$subcol\">No.$_</span> ";
> >
> > print "<a href=\"$url{$_}\" target=\"_blank\">$img_home</a> ";
> > }
> > print "&nbsp;&nbsp;<input type=\"submit\" name=\"res:$_\" value=\"返信\"><br>\n";
> > print "<div style=\"margin-left:22px; margin-top:6px\">";
> >
> > # 画像
> > if ($ext{$_} =~ /\.(jpg|gif|png)$/) {
> >
> > # 画像-左
> > if ($imgpoint == 1) {
> > print "<a href=\"$imgurl/$ext{$_}\" target=\"_blank\">";
> > print "<img src=\"$imgurl/$ext{$_}\" width=\"$imw{$_}\" height=\"$imh{$_}\" align=\"left\" hspace=\"5\" alt=\"\" border=\"0\"></a>";
> > print "<span style=\"color:$col{$_}\">$com{$_}</span><br clear=\"all\">\n";
> >
> > # 画像-下
> > } elsif ($imgpoint == 2) {
> > print "<span style=\"color:$col{$_}\">$com{$_}</span><br>";
> > print "<a href=\"$imgurl/$ext{$_}\" target=\"_blank\">";
> > print "<img src=\"$imgurl/$ext{$_}\" width=\"$imw{$_}\" height=\"$imh{$_}\" alt=\"\" border=\"0\"></a>\n";
> > }
> >
> > # 画像以外
> > } elsif ($ext{$_}) {
> > # サイズ
> > local($size) = -s "$imgdir/$ext{$_}";
> > $size = int ( $size / 1024 + 0.5 ) . 'KB';
> >
> > print "<span style=\"color:$col{$_}\">$com{$_}</span><br><br>";
> > print "添付：<a href=\"$imgurl/$ext{$_}\" target=\"_blank\">$ext{$_}</a>\n";
> > print "($size)\n";
> >
> > # 添付なし
> > } else {
> > print "<span style=\"color:$col{$_}\">$com{$_}</span>";
> > }
> > print "</div>\n";
> >
> > # レス記事
> > if (defined($res{$_})) {
> > print "<div style=\"margin-left:22px; margin-top:5px;\"><hr size=\"1\">\n";
> >
> > foreach $res ( split(/,/, $res{$_}) ) {
> >
> > print "<b style=\"color:$subcol\">$sub{$res}</b> - <b>$nam{$res}</b> ";
> > print "$dat{$res} <span style=\"color:$subcol\">No.$res</span> ";
> > if ($url{$res}) {
> >
> > print "<br>";
> >
> > # 画像
> > if ($ext{$res} =~ /\.(jpg|gif|png)$/) {
>
> 言った事がぜんぜん出来てないです。
> もう一度、お読み下さい。（直後に微修正かけてるのはご容赦を）
> http://www.kent-web.com/support/bbs/?list=log&no=4944
----------------------
pachira様
セッティングできました
後は迷惑投稿の様子伺いです
ありがとうございました。

---

[検索ページ]