| ■No9246に返信(ぬこさんの記事)
> > >$host = $ENV{'REMOTE_HOST'};
> >$Ip = gethostbyaddr(pack("C4", split(/\./, $addr)), 2);
> > としたけれど駄目でした、の間違いです。
$addr = $ENV{'REMOTE_ADDR'};
$addr = gethostbyaddr(pack("C4", split(/\./, $addr)), 2);
にしても取得できない場合はサーバが取得していないので取得できません。
> 連続投稿規制の為にIPを取得しているはずなんですが、それを書き出しできないでしょうか？
> 希望としては、管理画面のコメントログ管理で、コメント無しで投票した方のIP（リモホ）を表示するようにしたいです。
456行目 if($com && $ComOn){ → if($ComOn){
にして、みてください。コメントがなくても管理画面で表示されます。
287行目の if($p_co eq $vote){ の前に
if(!$com){next;}
といれれば、コメント表示画面でそのコメントは表示されなくなると思います。
といれれば
|
