とほほカウンタのアクセスログについて

ルナ [E-Mail] 2000/01/16(日) 22:50:25
とほほカウンタの設置はうまくいったのですが、
------------------------------------------------------------------------
COUNT = [ 1 ]
TIME  = [ 21:24:31 ]
ADDR  = [ 210.153.25.1** ]
HOST  = [  ]
AGENT = [ Mozilla/4.0 (compatible; MSIE 5.0; Windows 98; DigExt) ]
---------------------------------------------------------------------
のように”HOSTの[  ]の中が表示されませんがこれでいいのですか？

ミナ 2000/01/16(日) 23:07:25
プロバイダーによってはHOST名が表示されない所もあるようです。。
ルナさんのお使いのプロバが不明でがそれでよろしいかと思います。

ラウォッチ 2000/01/17(月) 14:21:08
以下がすごく参考になるとおもいます。
運がよければ、HOST名も取得できるでしょう！
http://www.tohoho-web.com/lng/199710/97101301.htm

ルナ [E-Mail] 2000/01/17(月) 21:27:51
一応大丈夫なんですね？でも、↓↓↓
-----------------------------------------------------------$host = $ENV{'REMOTE_HOST'};
$addr = $ENV{'REMOTE_ADDR'};
if ($host eq $addr) { $host = gethostbyaddr(pack('C4',split(/\./,$host)),2) || $addr; }
ホスト名は　$ host です。
-----------------------------------------------------------
を試してみたいのですが、とほほカウンタとは記述がちがいますよね。
-----------------------------------------------------------
open(OUT, ">> $file_access");
print(OUT "COUNT = [ $count ]\n");
print(OUT "TIME  = [ $time_now ]\n");
print(OUT "ADDR  = [ $ENV{'REMOTE_ADDR'} ]\n");
if ($ENV{'REMOTE_HOST'} ne $ENV{'REMOTE_ADDR'}) {
print(OUT "HOST  = [ $ENV{'REMOTE_HOST'} ]\n");
}
print(OUT "AGENT = [ $ENV{'HTTP_USER_AGENT'} ]\n");
# print(OUT "REFER = [ $referer ]\n");
if ($reffile && (!$my_url || ($reffile !~ /$my_url/))) {
print(OUT "FROM  = [ $reffile ]\n");
}
print(OUT "\n");
close(OUT);
-----------------------------------------------------------
この辺ですよね？どうやって書き換えればいいんですか？

とくめいX 2000/01/17(月) 23:53:54
私はこのようにしてます。
kent-webの掲示板スクリプトのサブルーチンを参考にしました。

# アクセスログを記録する
#
$host  = $ENV{'REMOTE_HOST'};
$addr  = $ENV{'REMOTE_ADDR'};

if ($host eq "" || $host eq "$addr") {
        $host = gethostbyaddr(pack("C4", split(/\./, $addr)), 2);
}
if ($host eq "") { $host = $addr; }

open(OUT, ">> $file_access");
print(OUT "COUNT = [ $count ]\n");
print(OUT "TIME  = [ $time_now ]\n");
print(OUT "ADDR  = [ $addr ]\n");
print(OUT "HOST  = [ $host ]\n");

print(OUT "AGENT = [ $ENV{'HTTP_USER_AGENT'} ]\n");
# print(OUT "REFER = [ $referer ]\n");
if ($reffile && (!$my_url || ($reffile !~ /$my_url/))) {
        print(OUT "FROM  = [ $reffile ]\n");
}
print(OUT "\n");
close(OUT);

ルナ [E-Mail] 2000/01/18(火) 21:34:37
[[解決]]
うまくホストを取得できました。
ありがとうございました。
無知な私に助言してくださった皆様本当に
ありがとうございました。