#!/usr/bin/perl

#use CGI::Carp qw(fatalsToBrowser);
# =========================================================================
#	[ PA.CGI ] 作成者:株式会社ニーズ 日付:2004/03/01
#	 Description : ページアナライザー
#	 Copyright (C) NEEZ Co.,Ltd. 2002 All Rights Reserved.
# ------------------------------------------------------------------------
#	※当ＣＧＩプログラムの著作権は株式会社ニーズに帰属します
#	　著作者に無断で改変・配布・譲渡する事は原則として禁止致します
# =========================================================================

	# ログを重複して保存 (0..する/1..しない)
	$jfk = 1;

# =========================================================================

	require '../lib/toms.pl';
	require '../lib/config.pl';

	# 情報取得
	$REF = $ENV{'HTTP_REFERER'};
	if ($RET eq ""){ $RET = 'noreffer'; }
	$HOST = gethostbyaddr(pack("C4", split(/\./,$ENV{'REMOTE_ADDR'})), 2);

	# インデックスなら削除
	$REF =~ s/index\.html$//;

	# 日付獲得
	@DT = localtime(time);
	$NOW = sprintf("%04d%02d%02d%02d%02d%02d",$DT[5]+1900,$DT[4]+1,$DT[3],$DT[2],$DT[1],$DT[0]);

	# ログファイル
	$file = 'log/'.substr($NOW,0,8).'.dat';

	# 重複検査
	$SET = 0;
	if ($jfk == 1){
		open IN,$file;
		@LOG = <IN>;
		close IN;
		$K = "$REF<>$HOST";
		if (grep /$K/,@LOG){ $SET = 1; }
	}

	# ログ保存
	if ($SET == 0){
		open OUT,">>$file";
		print OUT "$NOW<>$REF<>$HOST\n";
		close OUT;
	}

	# 代替画像を出力
	print "Content-type: image/gif\n\n";
	open IMAGE,"clr.gif";
	binmode(IMAGE);
	@gif = <IMAGE>;
	close IMAGE;
	binmode(STDOUT);
	print @gif;
	exit;