#------------#
#  基本設定  #
#------------#

．．．．．中略．．．．．

#	------- 追加改造開始 ------
# LAN 内のプライベートセグメントアドレス(192.168.1.0)を設定して、
# LAN 内からのアクセス(192.168.1.*)に対して、gethostbyaddr関数が実行されないようにします。
# わかない場合は、LAN 内のクライアント機のプライベートアドレスを設定して下さい。
$PrivateSegAddr = '192.168.1.0';
#	------- 追加改造終了 ------

．．．．．中略．．．．．

#------------#
#  設定完了  #
#------------#

．．．．．中略．．．．．

#----------------#
#  ホスト名取得  #
#----------------#
sub get_host {
	$host = $ENV{'REMOTE_HOST'};
	$addr = $ENV{'REMOTE_ADDR'};
#	------- 追加改造開始 ------
	# LAN 内からのアクセスに対して、gethostbyaddr関数が実行されないようにします。
	if (pack("C3", split(/\./, $addr)) eq pack("C3", split(/\./, $PrivateSegAddr))) {
		$host = $addr;
	} elsif ($host eq "" || $host eq $addr) {
#	------- 追加改造終了 ------
# 変更	if ($host eq "" || $host eq $addr) {
		$host = gethostbyaddr(pack("C4", split(/\./, $addr)), 2) || $addr;
	}
}