IP/ホスト連続投稿チェック機能が上手く行かない。
なんでだろ？？
###+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
## SUB >>> ホスト取得処理
###+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
sub get_HostAgent {
$Host = $ENV{'REMOTE_HOST'};
$Addr = $ENV{'REMOTE_ADDR'};
if ($Host eq '') { $Host = $Addr; }
if ($Host eq $Addr) { $Host = gethostbyaddr(pack('C4',split(/\./,$Host)),2) || $Addr; }
$H_A = "$Host";
}
ホスト取得ルーチンにある変数で、
いろんな掲示板の中のP/ホスト連続投稿チェック機能だけ抜き出して、
もう何十個も試したけれど、上手くいきません。
カスタマイズしてる会員掲示板に、
IP/ホスト連続投稿チェック機能を付けたいのですが上手くいきません。
二重投稿チェックはあるのですが、、
↓↓↓
#--二重投稿チェック--#
if ($r1 eq "$name" && $r4 eq "$street<>$title" && $r5 eq "$comment") {
&lock2;
&error("二重投稿は禁止です");
}
より極めるために、以下を利用したいのです。。
↓↓↓
#--IP/ホスト連続投稿チェック--#
if ($Addr = $ENV{'REMOTE_ADDR'} && $^T - $time < 120) {
&lock2;
&error("連続投稿はできません。<BR>時間をおいてから書き込みして下さい");}
宜しくお願い致します。
どこがおかしいのかサッパリです。
なんとか機能を追加できるようにお願いしますろ
