#!/usr/bin/perl

#=================================================
#	GRACY Analyzer		 		Version 2.10
#							Date : 2005/11/02
#	Programmed by Hirohisa Nagai
#		nagai@gracy.co.jp
#		Gracy Technology Inc.
#			http://www.gracy.co.jp/
#=================================================

# NTパス用
$0 =~ /^(.*[\\])/;
chdir($1);

require 'grana_ini.cgi';

#++++++++++++++++++++++++++++++++++++++++ 以下の変更禁止 +++
if($ENV{'REQUEST_METHOD'} eq 'POST') {
	read(STDIN,$in,$ENV{'CONTENT_LENGTH'});
}
else {
	$in = $ENV{'QUERY_STRING'};
}

@formdata = split(/&/,$in);

foreach(@formdata) {
	($name,$value) = split(/=/, $_);
	$value =~ tr/+/ /;
	$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
	$value =~ s/</&lt;/g;
	$value =~ s/>/&gt;/g;
	$value =~ s/\n//g;
	$FORM{$name} = $value;
}

# データ保存ディレクトリの設定
#$data_dir = "./usr/" . $IN{'id'} . '/';

#フォームのmodeの値によって、処理分岐
if($FORM{'mode'} eq 'day_list') {
	if(!&cookie_read) { &msg('エラー！！', 'パスワードの認証ができませんでした。'); }
	&daily_list;
}
elsif($FORM{'mode'} eq 'all') {
	if(!&cookie_read) { &msg('エラー！！', 'パスワードの認証ができませんでした。'); }
	&analyze_view;
}
elsif($FORM{'mode'} eq 'csv_dl') {
	if(!&cookie_read) { &msg('エラー！！', 'パスワードの認証ができませんでした。'); }
	&csv_download;
}
elsif($FORM{'mode'} eq 'login') {
	&login;
}
else {
#	&analyze_view;
	&login_form;
}

#=================解析結果表示====================
sub analyze_view {
	# カウントファイルのオープン
	if(!open(IN,"$cnt_file")) { &error_gif; }
	$cnt_data = <IN>;
	close(IN);

	($date, $month, $fyear, $total, $today, $tomon) = split(/\,/, $cnt_data);
	chomp($tomon);

	# 月別アクセス数ファイルのオープン
	if(!open(IN,"$mon_file")) { &error_gif; }
	@MONTH = <IN>;
	close(IN);

	if(!opendir(DIR, $log_dir)) { &error_gif; }
	@logfiles = grep /\d{8}/, readdir(DIR);
	closedir(DIR);

	foreach(@logfiles) {
		$logfile = $log_dir . $_;
		if(!open(LOG, "$logfile")) { &error_gif; }
		@LOG = <LOG>;
		close(LOG);

		foreach(@LOG) {
			push(@DATA, $_);
		}
	}

	&log_analysis;

	&html_header;
	&count_html;
	&time_zone;
	&monthly;
	&day_week;
	&browser;
	&os;
	&referer;
	&keyword;
	&host;
	&html_footer;
}

#++++++++++++++++++++++++++++++++++++ 日別アクセス数表示 +++
sub daily_list {
	# 日別アクセス数ファイルのオープン
	if(!open(IN,"$day_file")) { &msg('エラー！！', '日別データファイルの読み込みに失敗しました。'); }
	@DAILY = <IN>;
	close(IN);

	$i = 0;
	foreach(@DAILY) {
		($year,$month,$day,$day_cnt) = split(/\,/,$_);
		chomp($day_cnt);
		$day_log[$i] = $day_cnt;
		$i++;
	}
	@sortdata = sort { $b <=> $a } @day_log;
	$daymax = $sortdata[0];
	$datums = $daymax / 150;

	&html_header;

	print <<EOH;
<tr height="20">
<td height="20"><br>
</td>
</tr>
<tr>
<td>
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr height="23">
<td width="8" height="23"><img src="images/title_bg_left.gif" width="8" height="23"></td>
<td height="23" background="images/title_bg.gif"><span class="fontbase1">日別アクセス数（過去365日間の統計）</span></td>
<td height="23" width="8"><img src="images/title_bg_right.gif" width="8" height="23"></td>
</tr>
</table>
</td>
</tr>
<tr height="20">
<td height="20"><br>
</td>
</tr>
<tr>
<td style="padding-left:30px">
<table cellpadding="0" cellspacing="0">
EOH

	if(@DAILY == 0) { print "<tr><td><span class=\"fontbase2\">データがありません。</span></td></tr>\n"; }
	else {
		@DAILY = reverse @DAILY;
		foreach(@DAILY) {
			($year, $month, $day, $day_cnt) = split(/\,/, $_);
			$bar = $day_cnt;
			$bar = $bar / $datums;
			$bar = int($bar);

			if ($bar == 0) { $bar = 1; }
			$border++;
			if ($border % 2 != 0) { $bgcolor = "bgcolor=#EEEEEE"; } else { $bgcolor = "bgcolor=#CCCCCC"; }

			print <<EOF;
<tr height="18"><td width="25"><img src="images/blank.gif" width="1" height="1"></td>
<td $bgcolor width="5"><img src="images/blank.gif" width="1" height="1"></td>
<td $bgcolor class="fontbase2">$year年$month月$day日</td>
<td $bgcolor width="5"><img src="images/blank.gif" width="1" height="1"></td>
<td valign="middle"><img src="images/bar.gif" width="$bar" height="10" align="absmiddle"><img src="images/bar_right.gif" width="1" height="10" align="absmiddle"><span class="fontbase2"> $day_cnt</span></td>
</tr>
EOF
		}
	}

	print <<EOH;
</table>
</td>
</tr>
<tr>
<td height="40"><br>
</td>
</tr>
<tr>
<td align="center">
<a href="analyzer.cgi?mode=csv_dl"><img src="images/csv_dl.gif" width="173" height="28" border="0"></a>
</td>
</tr>
EOH

	&html_footer;
}

#==========時間帯別アクセス数解析結果表示=========
sub time_zone {
	print <<EOH;
<tr height="20">
<td height="20"><br>
</td>
</tr>
<tr>
<td>
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr height="23">
<td width="8" height="23"><img src="images/title_bg_left.gif" width="8" height="23"></td>
<td height="23" background="images/title_bg.gif"><span class="fontbase1">時間帯別アクセス数（過去$log_limit日間の統計）</span></td>
<td height="23" width="8"><img src="images/title_bg_right.gif" width="8" height="23"></td>
</tr>
</table>
</td>
</tr>
<tr height="20">
<td height="20"><br>
</td>
</tr>
<tr>
<td style="padding-left:30px">
<table cellpadding="0" cellspacing="0">
EOH

	foreach $hour (sort { $hour{$b} <=> $hour{$a} } keys %hour) { $hourmax = $hour{$hour}; last; }
	$datums = $hourmax / 150;

	foreach $hour (0 .. 23) {
		$hour = sprintf("%02d",$hour);
		$bar = $hour{$hour};
		$bar = $bar / $datums;
		$bar = int($bar);

		if ($bar == 0) { $bar = 1; }
		$border++;
		if($border % 2 != 0) { $bgcolor = 'bgcolor="#EEEEEE"'; } else { $bgcolor = 'bgcolor="#CCCCCC"'; }

		print <<EOF;
<tr height="18"><td width="25"><img src="images/blank.gif" width="1" height="1"></td>
<td $bgcolor width="5"><img src="images/blank.gif" width="1" height="1"></td>
<td $bgcolor class="fontbase2">$hour</td>
<td $bgcolor width="5"><img src="images/blank.gif" width="1" height="1"></td>
<td valign="middle"><img src="images/bar.gif" width="$bar" height="10" align="absmiddle"><img src="images/bar_right.gif" width="1" height="10" align="absmiddle"><span class="fontbase2"> $hour{$hour}</span></td>
</tr>
EOF

#		print '<td align="center" valign="bottom" width="20" height="150">';
#		if($bar == 0) { print "<img src=\"$gif1\" width=\"1\" height=\"1\"><br><span class=\"fontbase2\">$hour{$hour}</span></td>\n"; }
#		else {
#			print "<span class=\"fontbase2\">$hour{$hour}</span><br>";
#			print "<img src=\"$data_dir/images/bar_t_top.gif\" width=\"10\" height=\"1\"><br>";
#			print "<img src=\"$data_dir/images/bar_t.gif\" width=\"10\" height=\"$bar\"></td>\n";
#		}
	}

	print "</table>\n</td>\n</tr>\n";

#	print "</tr>\n<tr>";
#
#	foreach $hour (0 .. 23) {
#		print "<td align=\"center\" bgcolor=\"#CCCCCC\"><span class=\"fontbase2\">$hour</span></td>\n";
#	}
#
#	print "</tr>\n</table>\n</td>\n</tr>\n";
}

#============月別アクセス数解析結果表示===========
sub monthly {
	print <<EOH;
<tr>
<td height="40"><br>
</td>
</tr>
<tr>
<td>
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr height="23">
<td width="8" height="23"><img src="images/title_bg_left.gif" width="8" height="23"></td>
<td height="23" background="images/title_bg.gif"><span class="fontbase1">月別アクセス数（過去12ヶ月間の統計）</span></td>
<td height="23" width="8"><img src="images/title_bg_right.gif" width="8" height="23"></td>
</tr>
</table>
</td>
</tr>
<tr height="20">
<td height="20"><br>
</td>
</tr>
<tr>
<td style="padding-left:30px">
<table cellpadding="0" cellspacing="0">
EOH

	if(@MONTH < 1) {
		print <<EOH;
<tr><td><span class="fontbase2">データがありません。</span></td></tr>
</table>
</td>
</tr>
EOH
		return 1;
	}

	foreach(@MONTH) {
		($year,$month_name,$month_cnt) = split(/\,/,$_);
		chomp($month_cnt);
		push(@month_list, $month_cnt);
	}

	@sortdata = sort { $b <=> $a } @month_list;
	$monthmax = $sortdata[0];
	$datums = $monthmax / 150;

	foreach (@MONTH) {
		($year,$month_name,$month_cnt) = split(/\,/, $_);
	
		$bar = $month_cnt;
		$bar = $bar / $datums;
		$bar = int($bar);
	
		if ($bar == 0) { $bar = 1; }
		$border++;
		if($border % 2 != 0) { $bgcolor = 'bgcolor="#EEEEEE"'; } else { $bgcolor = 'bgcolor="#CCCCCC"'; }

		print <<EOF;
<tr height="18"><td width="25"><img src="images/blank.gif" width="1" height="1"></td>
<td $bgcolor width="5"><img src="images/blank.gif" width="1" height="1"></td>
<td $bgcolor class="fontbase2">$year年$month_name月</td>
<td $bgcolor width="5"><img src="images/blank.gif" width="1" height="1"></td>
<td valign="middle"><img src="images/bar.gif" width="$bar" height="10" align="absmiddle"><img src="images/bar_right.gif" width="1" height="10" align="absmiddle"><span class="fontbase2"> $month_cnt</span></td>
</tr>
EOF
	}

	print "</table>\n</td>\n</tr>\n";
}

#===========曜日別アクセス数解析結果表示==========
sub day_week {
	@WEEK = ('Sunday','Monday','Tuesday','Wednesday','Thursday','Friday','Saturday');

	print <<EOH;
<tr>
<td height="40"><br>
</td>
</tr>
<tr>
<td>
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr height="23">
<td width="8" height="23"><img src="images/title_bg_left.gif" width="8" height="23"></td>
<td height="23" background="images/title_bg.gif"><span class="fontbase1">曜日別アクセス数（過去$log_limit日間の統計）</span></td>
<td height="23" width="8"><img src="images/title_bg_right.gif" width="8" height="23"></td>
</tr>
</table>
</td>
</tr>
<tr height="20">
<td height="20"><br>
</td>
</tr>
<tr>
<td style="padding-left:30px">
<table cellpadding="0" cellspacing="0">
EOH

	foreach $wday (sort { $whatday{$b} <=> $whatday{$a} } keys %whatday) { $wdaymax = $whatday{$wday}; last; }
	$datums = $wdaymax / 100;

	$num = 0;
	foreach $wday (0 .. 6) {
		$bar = $whatday{$wday} / $datums;
		$bar = int($bar);

		$num++;
		# セルBGカラー
		if($num % 2 != 0) { $bgcolor = 'bgcolor="#EEEEEE"'; }
		else { $bgcolor = 'bgcolor="#CCCCCC"'; }

		print <<EOH;
<tr height="18"><td width="25"><img src="images/blank.gif" width="1" height="1"></td>
<td $bgcolor width="5"><img src="images/blank.gif" width="1" height="1"></td>
<td $bgcolor class="fontbase2">$WEEK[$wday]</td>
<td $bgcolor width="5"><img src="images/blank.gif" width="1" height="1"></td>
EOH

		if($bar == 0) { print "<td valign=\"middle\"><img src=\"images/blank.gif\" width=\"1\" height=\"10\"></td></tr>"; }
		else {
			print <<EOH;
<td valign="middle"><img src="images/bar.gif" width="$bar" height="10" align="absmiddle"><img src="images/bar_right.gif" width="1" height="10" align="absmiddle"><span class="fontbase2"> $whatday{$wday}</span></td></tr>
EOH
		}
	}

	print "</table>\n</td>\n</tr>\n";
}

#===============BROWSERの解析結果表示=============
sub browser {
	print <<EOH;
<tr>
<td height="40"><br>
</td>
</tr>
<tr>
<td>
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr height="23">
<td width="8" height="23"><img src="images/title_bg_left.gif" width="8" height="23"></td>
<td height="23" background="images/title_bg.gif"><span class="fontbase1">ブラウザ（過去$log_limit日間の統計）</span></td>
<td height="23" width="8"><img src="images/title_bg_right.gif" width="8" height="23"></td>
</tr>
</table>
</td>
</tr>
<tr height="20">
<td height="20"><br>
</td>
</tr>
<tr>
<td style="padding-left:30px">
<table cellpadding="0" cellspacing="0">
EOH

	if($w == 0) { print "<tr><td><span class=\"values_num\">データがありません。</span></td></tr>\n"; }
	else {
		$before = '';
		$num = $flg = 0;

		@SORTDATA = sort { $agent{$b} <=> $agent{$a} } keys %agent;
		foreach $agent (@SORTDATA) {
			$num++;
			if($num > $max) {
				print "<tr><td colspan=\"5\" height=\"25\"><span class=\"fontbase2\">以下省略</span></td></tr>\n";
				last;
			}

			$bar = $agent{$agent};

			if($flg == 0) { $flg = 1; $datums = $bar / 150; $bar = 150; }
			else { $bar = $bar / $datums; }
			$bar = int($bar);

			if($bar == 0) { $bar = 1; }

			# セルBGカラー
			if($num % 2 != 0) { $bgcolor = 'bgcolor="#EEEEEE"'; }
			else { $bgcolor = 'bgcolor="#CCCCCC"'; }

			if(length($agent) > 45) { $agname = substr($agent,0,42) . "..."; } else { $agname = $agent; }

			if($before eq '') { $number = 1; }
			elsif($before == $agent{$agent}) { $number = ""; }
			else { $number = $num; }

			$before = $agent{$agent};
			print <<EOH;
<tr height="18"><td width="25"><span class="fontbase2">$number</span></td>
<td $bgcolor width="5"><img src="images/blank.gif" width="1" height="1"></td>
<td $bgcolor class="fontbase2" title="$agent">$agname</td>
<td $bgcolor width="5"><img src="images/blank.gif" width="1" height="1"></td>
<td valign="middle"><img src="images/bar.gif" width="$bar" height="10" align="absmiddle"><img src="images/bar_right.gif" width="1" height="10" align="absmiddle"><span class="fontbase2"> $agent{$agent}</span></td></tr>
EOH
		}
	}

	print "</table>\n</td>\n</tr>\n";
}

#=================OSの解析結果表示================
sub os {
	print <<EOH;
<tr>
<td height="40"><br>
</td>
</tr>
<tr>
<td>
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr height="23">
<td width="8" height="23"><img src="images/title_bg_left.gif" width="8" height="23"></td>
<td height="23" background="images/title_bg.gif"><span class="fontbase1">OS（過去$log_limit日間の統計）</span></td>
<td height="23" width="8"><img src="images/title_bg_right.gif" width="8" height="23"></td>
</tr>
</table>
</td>
</tr>
<tr height="20">
<td height="20"><br>
</td>
</tr>
<tr>
<td style="padding-left:30px">
<table cellpadding="0" cellspacing="0">
EOH

	if($v == 0) { print "<tr><td><span class=\"fontbase2\">データがありません。</span></td></tr>\n"; }
	else {
		$before = '';
		$num = $flg = 0;

		@SORTDATA = sort { $os{$b} <=> $os{$a} } keys %os;
		foreach $os (@SORTDATA) {
			$num++;
			if($num > $max) {
				print "<tr><td colspan=\"5\" height=\"25\"><span class=\"fontbase2\">以下省略</span></td></tr>\n";
				last;
			}

			$bar = $os{$os};

			if($flg == 0) { $flg = 1; $datums = $bar / 150; $bar = 150; }
			else { $bar = $bar / $datums; }
			$bar = int($bar);

			if($bar == 0) { $bar = 1; }

			# セルBGカラー
			if($num % 2 != 0) { $bgcolor = 'bgcolor="#EEEEEE"'; }
			else { $bgcolor = 'bgcolor="#CCCCCC"'; }

			if($before eq '') { $number = 1; }
			elsif($before == $os{$os}) { $number = ""; }
			else { $number = $num; }

			$before = $os{$os};
			print <<EOH;
<tr height="18"><td width="25"><span class="fontbase2">$number</span></td>
<td $bgcolor width="5"><img src="images/blank.gif" width="1" height="1"></td>
<td $bgcolor class="fontbase2">$os</td>
<td $bgcolor width="5"><img src="images/blank.gif" width="1" height="1"></td>
<td valign="middle"><img src="images/bar.gif" width="$bar" height="10" align="absmiddle"><img src="images/bar_right.gif" width="1" height="10" align="absmiddle"><span class="fontbase2"> $os{$os}</span></td></tr>
EOH
		}
	}

	print "</table>\n</td>\n</tr>\n";
}

#===============REFERERの解析結果表示=============
sub referer {
	print <<EOH;
<tr>
<td height="40"><br>
</td>
</tr>
<tr>
<td>
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr height="23">
<td width="8" height="23"><img src="images/title_bg_left.gif" width="8" height="23"></td>
<td height="23" background="images/title_bg.gif"><span class="fontbase1">リンク元（過去$log_limit日間の統計）</span></td>
<td height="23" width="8"><img src="images/title_bg_right.gif" width="8" height="23"></td>
</tr>
</table>
</td>
</tr>
<tr height="20">
<td height="20"><br>
</td>
</tr>
<tr>
<td style="padding-left:30px">
<table cellpadding="0" cellspacing="0">
EOH

	if($u == 0) { print "<tr><td><span class=\"fontbase2\">データがありません。</span></td></tr>\n"; }
	else {
		$before = '';
		$num = $flg = 0;

		@SORTDATA = sort { $ref{$b} <=> $ref{$a} } keys %ref;
		foreach $ref (@SORTDATA) {
			$num++;
			if($num > $max) {
				print "<tr><td colspan=\"5\" height=\"25\"><span class=\"fontbase2\">以下省略</span></td></tr>\n";
				last;
			}
			$bar = $ref{$ref};
			if($flg == 0) { $flg = 1; $datums = $bar / 150; $bar = 150; }
			else { $bar = $bar / $datums; }
			$bar = int($bar);
			if($bar == 0) { $bar = 1; }

			# セルBGカラー
			if($num % 2 != 0) { $bgcolor = 'bgcolor="#EEEEEE"'; }
			else { $bgcolor = 'bgcolor="#CCCCCC"'; }

			if(length($ref) > 45) { $url = substr($ref,0,42) . "..."; } else { $url = $ref; }
#			$url =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;

			if($before eq '') { $number = 1; }
			if($before == $ref{$ref}) { $number = ""; }
			else { $number = $num; }

			$before = $ref{$ref};
			print <<EOH;
<tr height="18"><td width="25"><span class="fontbase2">$number</span></td>
<td $bgcolor width="5"><img src="images/blank.gif" width="1" height="1"></td>
<td $bgcolor><a href="$ref" class="fontbase2" target="_blank">$url</a></td>
<td $bgcolor width="5"><img src="images/blank.gif" width="1" height="1"></td>
<td valign="middle"><img src="images/bar.gif" width="$bar" height="10" align="absmiddle"><img src="images/bar_right.gif" width="1" height="10" align="absmiddle"><span class="fontbase2"> $ref{$ref}</span></td></tr>
EOH
		}
	}

	print "</table>\n</td>\n</tr>\n";
}

#===============KEYWORDの解析結果表示=============
sub keyword {
	print <<EOH;
<tr>
<td height="40"><br>
</td>
</tr>
<tr>
<td>
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr height="23">
<td width="8" height="23"><img src="images/title_bg_left.gif" width="8" height="23"></td>
<td height="23" background="images/title_bg.gif"><span class="fontbase1">検索キーワード（過去$log_limit日間の統計）</span></td>
<td height="23" width="8"><img src="images/title_bg_right.gif" width="8" height="23"></td>
</tr>
</table>
</td>
</tr>
<tr height="20">
<td height="20"><br>
</td>
</tr>
<tr>
<td style="padding-left:30px">
<table cellpadding="0" cellspacing="0">
EOH

	if($t == 0) { print "<tr><td><span class=\"fontbase2\">データがありません。</span></td></tr>\n"; }
	else {
		$before = '';
		$num = $flg = 0;

		@SORTDATA = sort { $keyword{$b} <=> $keyword{$a} } keys %keyword;
		foreach $key (@SORTDATA) {
			$num++;
			if($num > $max) {
				print "<tr><td colspan=\"5\" height=\"25\"><span class=\"fontbase2\">以下省略</span></td></tr>\n";
				last;
			}
			$bar = $keyword{$key};
			if($flg == 0) { $flg = 1; $datums = $bar / 150; $bar = 150; }
			else { $bar = $bar / $datums; }
			$bar = int($bar);
			if($bar == 0) { $bar = 1; }

			# セルBGカラー
			if($num % 2 != 0) { $bgcolor = 'bgcolor="#EEEEEE"'; }
			else { $bgcolor = 'bgcolor="#CCCCCC"'; }

			if($before eq '') { $number = 1; }
			if($before == $keyword{$key}) { $number = ""; }
			else { $number = $num; }

			$before = $keyword{$key};
			print <<EOH;
<tr height="18"><td width="25"><span class="fontbase2">$number</span></td>
<td $bgcolor width="5"><img src="images/blank.gif" width="1" height="1"></td>
<td $bgcolor><span class="fontbase2" target="_blank">$key</span></td>
<td $bgcolor width="5"><img src="images/blank.gif" width="1" height="1"></td>
<td valign="middle"><img src="images/bar.gif" width="$bar" height="10" align="absmiddle"><img src="images/bar_right.gif" width="1" height="10" align="absmiddle"><span class="fontbase2"> $keyword{$key}</span></td></tr>
EOH
		}
	}

	print "</table>\n</td>\n</tr>\n";
}

#================HOSTの解析結果表示===============
sub host {
	print <<EOH;
<tr>
<td height="40"><br>
</td>
</tr>
<tr>
<td>
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr height="23">
<td width="8" height="23"><img src="images/title_bg_left.gif" width="8" height="23"></td>
<td height="23" background="images/title_bg.gif"><span class="fontbase1">ホスト（過去$log_limit日間の統計）</span></td>
<td height="23" width="8"><img src="images/title_bg_right.gif" width="8" height="23"></td>
</tr>
</table>
</td>
</tr>
<tr height="20">
<td height="20"><br>
</td>
</tr>
<tr>
<td style="padding-left:30px">
<table cellpadding="0" cellspacing="0">
EOH

	if($x == 0) { print "<tr><td><span class=\"fontbase2\">データがありません。</span></td></tr>\n"; }
	else {
		$before = '';
		$num = $flg = 0;

		@SORTDATA = sort { $host{$b} <=> $host{$a} } keys %host;
		foreach $host (@SORTDATA) {
			$num++;
			if($num > $max) {
				print "<tr><td colspan=\"5\" height=\"25\"><span class=\"fontbase2\">以下省略</span></td></tr>\n";
				last;
			}

			$bar = $host{$host};
			if($flg == 0) { $flg = 1; $datums = $bar / 150; $bar = 150; }
			else { $bar = $bar / $datums; }
			$bar = int($bar);
			if($bar == 0) { $bar = 1; }

			# セルBGカラー
			if($num % 2 != 0) { $bgcolor = 'bgcolor="#EEEEEE"'; }
			else { $bgcolor = 'bgcolor="#CCCCCC"'; }

			if($before eq '') { $number = 1; }
			elsif ($before == $host{$host}) { $number = ""; }
			else { $number = $num; }

			$before = $host{$host};
			print <<EOH;
<tr height="18"><td width="25"><span class="fontbase2">$number</span></td>
<td $bgcolor width="5"><img src="images/blank.gif" width="1" height="1"></td>
<td $bgcolor><span class="fontbase2" target="_blank">$host</span></td>
<td $bgcolor width="5"><img src="images/blank.gif" width="1" height="1"></td>
<td valign="middle"><img src="images/bar.gif" width="$bar" height="10" align="absmiddle"><img src="images/bar_right.gif" width="1" height="10" align="absmiddle"><span class="fontbase2"> $host{$host}</span></td></tr>
EOH
		}
	}

	print "</table>\n</td>\n</tr>\n";
}

#==============ログデータの解析・集計=============
sub log_analysis {
	foreach(@DATA) {
		chomp($_);
		($HOUR, $WDAY, $HOST, $USER_AGENT, $OS, $REFERER, $KEYWORD) = split(/\,/, $_, 7);

		$total_cnt++;
		if($HOUR ne '') { $hour{$HOUR}++; $z++; }
		if($WDAY ne '') { $whatday{$WDAY}++; $y++; }
		if($HOST ne '') { $host{$HOST}++; $x++; }
		if($USER_AGENT ne '') { $agent{$USER_AGENT}++; $w++; }
		if($OS ne '') { $os{$OS}++; $v++; }
		if($REFERER ne '') { $ref{$REFERER}++; $u++; }
		if($KEYWORD ne '') { $keyword{$KEYWORD}++; $t++; }
	}
}

#+++++++++++++++++++++++++++++++++++++++ CSVダウンロード +++
sub csv_download {
	# 日別アクセス数ファイルのオープン
	if(!open(IN,"$day_file")) { &msg('エラー！！', '日別データファイルの読み込みに失敗しました。'); }
	@DAILY = <IN>;
	close(IN);

	$csvname = "daily_cnt.csv";

	print "Content-Type: application/octet-stream\n";
	print "Content-Disposition: attachment; filename=$csvname\n\n";

	foreach(@DAILY) {
		print "$_";
	}

	exit;
}

#==================HTMLのヘッダー=================
sub html_header {
	print "Content-type: text/html\n";
	print "$cookie_set\n";
	print <<EOF;
<html>

<head>
<meta http-equiv="content-type" content="text/html;charset=Shift_JIS">
<title>Access Analyzer</title>
<style media="screen" type="text/css"><!--
.fontbase  { color: #353535; font-weight: bold; font-size: 12px; font-family: Tahoma; letter-spacing: 2px }
.fontbase1 { color: #686868; font-weight: bold; font-size: 12px; font-family: Tahoma; letter-spacing: 2px }
.fontbase2 { color: #353535; font-size: 11px; font-family: Tahoma; letter-spacing: 1px }
--></style>
<csscriptdict>
<script type="text/javascript"><!--
function newImage(arg) {
	if (document.images) {
		rslt = new Image();
		rslt.src = arg;
		return rslt;
	}
}
userAgent = window.navigator.userAgent;
browserVers = parseInt(userAgent.charAt(userAgent.indexOf("/")+1),10);
mustInitImg = true;
function initImgID() {di = document.images; if (mustInitImg && di) { for (var i=0; i<di.length; i++) { if (!di[i].id) di[i].id=di[i].name; } mustInitImg = false;}}
function findElement(n,ly) {
	d = document;
	if (browserVers < 4)		return d[n];
	if ((browserVers >= 6) && (d.getElementById)) {initImgID; return(d.getElementById(n))}; 
	var cd = ly ? ly.document : d;
	var elem = cd[n];
	if (!elem) {
		for (var i=0;i<cd.layers.length;i++) {
			elem = findElement(n,cd.layers[i]);
			if (elem) return elem;
		}
	}
	return elem;
}
function changeImages() {
	d = document;
	if (d.images) {
		var img;
		for (var i=0; i<changeImages.arguments.length; i+=2) {
			img = null;
			if (d.layers) {img = findElement(changeImages.arguments[i],0);}
			else {img = d.images[changeImages.arguments[i]];}
			if (img) {img.src = changeImages.arguments[i+1];}
		}
	}
}

// --></script>
</csscriptdict>
<csactiondict>
<script type="text/javascript"><!--
var preloadFlag = false;
function preloadImages() {
	if (document.images) {
		over_menu_all_out = newImage(/*URL*/'images/menu_all_over.gif');
		over_menu_daily_out = newImage(/*URL*/'images/menu_daily_over.gif');
		preloadFlag = true;
	}
}

// --></script>
</csactiondict>
</head>

<body onload="preloadImages();" bgcolor="#ffffff" leftmargin="0" marginwidth="0" topmargin="0" marginheight="0" background="images/bg.gif">
<div align="center">
<table width="600" height="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td bgcolor="white" valign="top">
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr height="40">
<td bgcolor="silver" height="40" valign="bottom" align="right">
<table width="100%" border="0" cellspacing="0" cellpadding="0" height="100%">
<tr>
<td width="150"><img src="images/ana_title.gif" alt="" height="41" width="150"></td>
<td background="images/head_bg.gif"><img src="images/head_bg.gif" alt="" height="41" width="40"></td>
<td width="58" background="images/head_bg.gif"><a onmouseover="changeImages( /*CMP*/'menu_all_out',/*URL*/'images/menu_all_over.gif');return true" onmouseout="changeImages( /*CMP*/'menu_all_out',/*URL*/'images/menu_all_out.gif');return true" href="analyzer.cgi?mode=all"><img src="images/menu_all_out.gif" alt="" name="menu_all_out" height="20" width="58" border="0"></a></td>
<td width="90" background="images/head_bg.gif"><a onmouseover="changeImages( /*CMP*/'menu_daily_out',/*URL*/'images/menu_daily_over.gif');return true" onmouseout="changeImages( /*CMP*/'menu_daily_out',/*URL*/'images/menu_daily_out.gif');return true" href="analyzer.cgi?mode=day_list"><img src="images/menu_daily_out.gif" alt="" name="menu_daily_out" height="20" width="90" border="0"></a></td>
<td width="10" background="images/head_bg.gif"><img src="images/head_bg.gif" alt="" height="41" width="10"></td>
</tr>
</table>
</td>
</tr>
<tr height="4">
<td height="4"><img src="images/blank.gif" width="1" height="1"></td>
</tr>
EOF
}

#++++++++++++++++++++++++++++++++++++++++++ ログイン画面 +++
sub login_form {
	print "Content-type: text/html\n\n";
	print <<EOF;
<html lang="ja">

<head>
<meta http-equiv="content-type" content="text/html;charset=Shift_JIS">
<title>Access Analyzer</title>
<style media="screen" type="text/css"><!--
.fontbase  { color: #353535; font-weight: bold; font-size: 12px; font-family: Tahoma; letter-spacing: 2px }
.fontbase1 { color: #686868; font-weight: bold; font-size: 12px; font-family: Tahoma; letter-spacing: 2px }
.fontbase2 { color: #686868; font-size: 12px; letter-spacing: 2px }
.input_pass  { color: #696969; background-color: #f5f5f5; border: solid 1px #c0c0c0 }
--></style>
</head>

<body bgcolor="#ffffff" leftmargin="0" marginwidth="0" topmargin="0" marginheight="0" background="images/bg.gif">
<div align="center">
<table width="600" height="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td bgcolor="white" valign="top">
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr height="40">
<td bgcolor="silver" height="40" valign="bottom" align="right">
<table width="100%" border="0" cellspacing="0" cellpadding="0" height="100%">
<tr>
<td width="150"><img src="images/ana_title.gif" alt="" height="41" width="150"></td>
<td background="images/head_bg.gif"><img src="images/head_bg.gif" alt="" height="41" width="40"></td>
</tr>
</table>
</td>
</tr>
<tr height="4">
<td height="4"><img src="images/blank.gif" width="1" height="1"></td>
</tr>
<tr height="50">
<td align="center" height="50"><span class="fontbase2">パスワードを入力してログインしてください。</span></td>
</tr>
<tr height="20">
<td height="20"><br>
</td>
</tr>
<tr>
<td align="center">
<form action="analyzer.cgi" method="post">
<input type="hidden" name="mode" value="login">
<input class="input_pass" type="password" name="password" size="15"><br>
<br>
<input type="image" src="images/btn_ok.gif" alt="OK">
</form>
</td>
</tr>
</table>
</td>
</tr>
</table>
</div>
</body>

</html>
EOF
	exit;
}

#++++++++++++++++++++++++++++++++++++++++++ ログイン処理 +++
sub login {
	if(!&authorize("$FORM{'password'}")) { &msg('エラー！！', 'パスワードの認証ができませんでした。', 0); }
	&cookie_set;
	&analyze_view;
}

#++++++++++++++++++++++++++++++++++++++++++++++++++ 認証 +++
sub authorize {
	my ($input_pass) = @_;

	if($input_pass eq $password) {
		return 1;
	}
	return 0;
}


#++++++++++++++++++++++++++++++++++++++++++++ Set Cookie +++
sub cookie_set {
	$cookie_set = "Set-Cookie: admin_info=$FORM{'password'}\n";
}

#+++++++++++++++++++++++++++++++++++++++++++ Read Cookie +++
sub cookie_read {
	if($ENV{'HTTP_COOKIE'} ne '') {
		foreach(split(/; /, $ENV{'HTTP_COOKIE'})) {
			($key, $value) = split(/=/, $_);
			$cookie{$key} .= "\0" if (defined($cookie{$key}));
			$cookie{$key} .= $value;
			if($cookie{'admin_info'} ne '') {
				if(&authorize("$cookie{'admin_info'}")) {
					return 1;
				}
			}
		}
	}
	return 0;
}

#=================アクセス数表示部================
sub count_html {
	print <<EOF;
<tr>
<td>
<table cellspacing="2" width="100%">
<tr>
<td width="70" align="right"><span class="fontbase">Total:</span></td>
<td><span class="fontbase">$total</span></td>
<td width="80" align="right"><span class="fontbase">Today:</span></td>
<td width="120"><span class="fontbase">$today</span></td>
<td width="100" align="right"><span class="fontbase">This Month:</span></td>
<td width="120"><span class="fontbase">$tomon</span></td>
</tr>
</table>
</td>
</tr>
EOF
}

#==================HTMLのヘッダー=================
sub html_footer {
	print <<EOF;
<tr>
<td height="40"><br>
</td>
</tr>
</table>
</div>
</body>

</html>
EOF
	exit;
}

#++++++++++++++++++++++++++++++++++++ 各種メッセージ表示 +++
sub msg {
	my ($title, $msg) = @_;

	print "Content-type: text/html\n\n";
	print <<EOH;
<html lang="ja">

<head>
<meta http-equiv="content-type" content="text/html;charset=Shift_JIS">
<title>GRACY Analyzer</title>
<style media="screen" type="text/css"><!--
.fontbase  { color: #353535; font-weight: bold; font-size: 12px; font-fam#ly: Tah#ma; letter-spacing: 2px }
.fontbase1 { color: #686868; font-weight: bold; font-size: 12px; font-family: Tahoma; letter-spacing: 2px }
.fontbase2 { color: #353535; font-size: 11px; font-family: Tahoma; letter-spacing: 1px }
--></style>
<csactions>
<csaction name="15115070" class="Go Last Page" type="onevent"></csaction>
</csactions>
<csscriptdict>
<script type="text/javascript"><!--
function CSClickReturn () {
	var bAgent = window.navigator.userAgent; 
	var bAppName = window.navigator.appName;
	if ((bAppName.indexOf("Explorer") >= 0) && (bAgent.indexOf("Mozilla/3") >= 0) && (bAgent.indexOf("Mac") >= 0))
		return true; // dont follow link
	else return false; // dont follow link
}
CSStopExecution=false;
function CSAction(array) {return CSAction2(CSAct, array);}
function CSAction2(fct, array) { 
	var result;
	for (var i=0;i<array.length;i++) {
		if(CSStopExecution) return false; 
		var aa = fct[array[i]];
		if (aa == null) return false;
		var ta = new Array;
		for(var j=1;j<aa.length;j++) {
			if((aa[j]!=null)&&(typeof(aa[j])=="object")&&(aa[j].length==2)){
				if(aa[j][0]=="VAR"){ta[j]=CSStateArray[aa[j][1]];}
				else{if(aa[j][0]=="ACT"){ta[j]=CSAction(new Array(new String(aa[j][1])));}
				else ta[j]=aa[j];}
			} else ta[j]=aa[j];
		}			
		result=aa[0](ta);
	}
	return result;
}
CSAct = new Object;
function CSGoBack1() { history.back() }

// --></script>
</csscriptdict>
<csactiondict>
<script type="text/javascript"><!--
CSAct[/*CMP*/ '15115070'] = new Array(CSGoBack1);

// --></script>
</csactiondict>
</head>

<body bgcolor="#ffffff" leftmargin="0" marginwidth="0" topmargin="0" marginheight="0" background="images/bg.gif">
<div align="center">
<table width="600" height="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td bgcolor="white" valign="top">
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr height="40">
<td bgcolor="silver" height="40" valign="bottom" align="right">
<table width="100%" border="0" cellspacing="0" cellpadding="0" height="100%">
<tr>
<td width="150"><img src="images/ana_title.gif" alt="" height="41" width="150"></td>
<td background="images/head_bg.gif"><img src="images/head_bg.gif" alt="" height="41" width="40"></td>
</tr>
</table>
</td>
</tr>
<tr height="4">
<td height="4"><img src="images/blank.gif" width="1" height="1"></td>
</tr>
<tr>
<td align="center"><br>
<span class="fontbase1">$title</span><br>
<br>
<span class="fontbase2">$msg</span><br>
<br>
<a onclick="CSAction(new Array(/*CMP*/'15115070'));return CSClickReturn();" href="#" csclick="15115070"><img src="images/back_btn.gif" alt="BACK" height="28" width="88" border="0"></a></td>
</tr>
</table>
</td>
</tr>
</table>
</div>
</body>

</html>
EOH
	exit;
}