ひ***
1999/07/29(木) 04:21:59
>サーバーのperlのパージョンが上がってから
Perlのバージョンが上がったからではありません。
HTTPdの設定を変えたからです。
...まぁそれはいいんですが。
http://www.tohoho-web.com/wwwperl2.htm#gethostbyaddr
を参考にして、３２７行目の
if ($ENV{'REMOTE_HOST'} ne $ENV{'REMOTE_ADDR'}) {
print(OUT "HOST = [ $ENV{'REMOTE_HOST'} ]\n");
}
を以下のように書き換えてみてください。
$host = gethostbyaddr(pack("C4", split(/\./, $ENV{'REMOTE_ADDR'})), 2);
print(OUT "HOST = [ $host ]\n");
デフォルトでは、$host は使われていませんが、
あなたが改造をして $host を使っていたら、変数名を任意で変えて下さい。