#!/usr/local/bin/perl
$file = './nama.html'; # ログファイル名を設定する
if ( defined $ENV{'QUERY_STRING'} ) {
$lh = $ENV{'QUERY_STRING'};
if ( $lh =~ m/^[\d\.]+$/ ) {
$ldn = gethostbyaddr(pack('C4',split(/\./,$lh)),2) || ' ? ';
$lh = "( $lh [ $ldn ] )";
}
else {
$lh = "( $lh )";
}
}
$ip = $ENV{'REMOTE_ADDR'};
$dn = $ENV{'REMOTE_HOST'}eq$ENV{'REMOTE_ADDR'}?gethostbyaddr(pack('C4',split(/\./,$ENV{'REMOTE_ADDR'})),2)||' ? ':$ENV{'REMOTE_HOST'};
$ret = "$ip [ $dn ]";
$ret .= " $lh" if $lh;
print "Content-type: text/plain\n\n";
print "$ret\n";
$i = 0;
$date = sprintf( "%02d/%02d %02d:%02d:%02d ", grep( ++$i==1?++$_:1, reverse((localtime time)[0..4]) ) );
$num = 0;
if ( open( FH, "<$file" ) ) {
while ( ) { push( @access, $_ ) unless m/^ 9;
$num = sprintf( "%04d", $num + 1 );
if ( open( FH, ">$file" ) ) {
print FH "NAMA IP\n";
print FH "\n\n";
print FH "$num $date IP = $ret\t$ENV{'HTTP_USER_AGENT'}\n";
print FH @access;
print FH "\n\n";
close( FH );
}