Access Report

#!/usr/local/bin/perl # List for Access Report v2.0 (2001/04/01) # Copyright(C) Kent Web 2001 # webmaster@kent-web.com # http://www.kent-web.com/ $ver = 'Access Report v2.0'; # バージョン情報 #--- [注意事項] ------------------------------------------------# # 1. このスクリプトはフリーソフトです。このスクリプトを使用した # # いかなる損害に対して作者は一切の責任を負いません。 # # 2. 設置に関する質問はサポート掲示板にお願いいたします。 # # 直接メールによる質問は一切お受けいたしておりません。 # #---------------------------------------------------------------# #============# # 基本設定 # #============# # ロックファイル $logfile = './report.log'; # スクリプト名 $script = './replist.cgi'; # ホームページタイトル $title = "旭川"; # リスト一覧からの戻り先 (絶対パスなら http://からのURLで記述） $home = "../index.html"; # bodyタグ $body = ''; # 本文中の文字の大きさ（スタイルシート） $b_size = '10pt'; # タイトル部の文字の大きさ（スタイルシート） $t_size = '18pt'; # 表示文字色 $font = "#008040"; # グラフ画像（絶対パスなら http://からのURLで記述） $graph1 = "./graph1.gif"; # 横軸 $graph2 = "./graph2.gif"; # 縦軸 # リスト最低表示件数（これに満たない情報は非表示） $max_ref = 1; # リンク元 $max_os = 2; # OS情報 $max_brz = 2; # ブラウザ $max_hst = 5; # ホスト名 # 項目部の色指定 $under = "#555555"; # 下地の色 $point = "#F0B30F"; # ポインタ（■）の色 $items = "#FFFFFF"; # 項目文字の色 # パスワード # → ここに英数字でパスワードを記述すると「閲覧」には # このパスワードが必須となります。 $pass = ''; #============# # 設定完了 # #============# if ($pass ne "") { &decode; if ($in{'pass'} ne "" && $pass ne "$in{'pass'}") { &error("パスワードが違います"); } elsif ($in{'pass'} eq "") { &header; print "

パスワードを入力して下さい

\n"; print "\n"; print "\n\n"; exit; } } $count=0; open(IN,"$logfile") || &error("Open Error : $logfile"); $top = ; while () { $count++; ($agent,$os,$host,$ref,$hour) = split(/<>/); if ($agent) { $AGENT{($agent)[0]}++; $i++; } if ($os) { $OS{($os)[0]}++; $j++; } if ($host) { $HOST{($host)[0]}++; $k++; } if ($ref) { $REF{($ref)[0]}++; $l++; } if ($hour ne "") { $HOUR{($hour)[0]}++; $m++; } } close(IN); &header; print <<"EOM";

TOP

Access Report

以下は $title へのアクセス解析です。
解析データは直近 $count件です。

■ リンク元の取得

リンク元の取得情報（$max_ref件以上 / 取得件数：$l件）
EOM print "\n"; print "\n"; $flag=0; foreach (sort { $REF{$b} <=> $REF{$a} } keys %REF) { # 最低表示件数 if ($REF{$_} < $max_ref) { last; } $per = int(($REF{$_}*1000 / $l)+0.5) / 10; $per = sprintf("%.1f", $per); if (!$flag) { $flag=1; $bai = $per; if ($bai > 30) { $bai = 5; } elsif ($bai > 20) { $bai = 7; } elsif ($bai > 10) { $bai = 12; } else { $bai = 20; } } $wid = int($per * $bai); if ($wid < 1) { $wid = 1; } # 文字列長の調整 if (length($_) > 72) { $url = substr($_,0,68) . "..."; } else { $url = $_; } print ""; print ""; print "\n"; } print "
件数リンク元グラフ
$REF{$_} $url $per\%

件数	リンク元	グラフ
$REF{$_}	$url	$per\%

\n"; ## --- ＯＳ情報 print "

\n"; print "■ 訪問者マシンOS\n"; print "
\n"; print "

訪問者のマシンOS情報 ($max_os件以上)
\n"; print "
\n"; print "\n"; foreach (sort { $OS{$b} <=> $OS{$a} } keys %OS) { # 最低表示件数 if ($OS{$_} < $max_os) { last; } $per = int(($OS{$_}*1000 / $j)+0.5) / 10; $per = sprintf("%.1f", $per); $wid = int($per * 3); if ($wid < 1) { $wid = 1; } print ""; print "\n"; } print "
件数ＯＳグラフ
$OS{$_} $_ $per\%

件数	ＯＳ	グラフ
$OS{$_}	$_	$per\%

\n"; ## --- ブラウザ情報 print "

\n"; print "■ ブラウザ\n"; print "
\n"; print "

訪問者のブラウザ情報 ($max_brz件以上)
\n"; print "
\n"; print "\n"; foreach (sort { $AGENT{$b} <=> $AGENT{$a} } keys %AGENT) { # 最低表示件数 if ($AGENT{$_} < $max_brz) { last; } $per = int(($AGENT{$_}*1000 / $i)+0.5) / 10; $per = sprintf("%.1f", $per); $wid = int($per * 3); if ($wid < 1) { $wid = 1; } print ""; print "\n"; } print "
件数ブラウザグラフ
$AGENT{$_} $_ $per\%

件数	ブラウザ	グラフ
$AGENT{$_}	$_	$per\%

\n"; ## --- ホスト名 print "

\n"; print "■ ホスト名\n"; print "
\n"; print "

訪問者のホスト名情報 ($max_hst件以上)
\n"; print "
\n"; print "\n"; foreach (sort { $HOST{$b} <=> $HOST{$a} } keys %HOST) { # 最低表示件数 if ($HOST{$_} < $max_hst) { last; } $per = int(($HOST{$_}*1000 / $k)+0.5) / 10; $per = sprintf("%.1f", $per); $wid = int($per * 15); if ($wid < 1) { $wid = 1; } print ""; print "\n"; } print "
件数ホスト名グラフ
$HOST{$_} $_ $per\%

件数	ホスト名	グラフ
$HOST{$_}	$_	$per\%

\n"; ## --- 時間帯 print "

\n"; print "■ アクセス時間帯\n"; print "
\n"; print "

訪問者のアクセス時間帯
\n"; print "
\n"; #print "\n"; print "\n"; foreach (0 .. 23) { print "\n"; } print "\n"; foreach (0 .. 23) { print ""; } print "
件数時間帯グラフ
$HOUR{$_}
"; if ($HOUR{$_}) { print ""; } print "
時間帯： $_

件数	時間帯	グラフ
	$HOUR{$_} "; if ($HOUR{$_}) { print ""; } print "
時間帯：	$_

\n"; # 著作権表示（削除不可） print "

\n"; print "- Access Report -\n"; print "\n"; print "\n"; exit; #--------------# # エラー処理 # #--------------# sub error { &header; print <<"EOM";

ERROR !

$_[0]

EOM exit; } #------------# # ヘッダー # #------------# sub header { print "Content-type: text/html\n\n"; print <<"EOM"; Access Report $body EOM } #----------------# # デコード処理 # #----------------# sub decode { if ($ENV{'REQUEST_METHOD'} eq "POST") { read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); } else { $buffer = $ENV{'QUERY_STRING'}; } @pairs = split(/&/, $buffer); foreach (@pairs) { ($name, $value) = split(/=/); $value =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $in{$name} = $value; } }