#!/usr/local/bin/perl
#####################################################
# LOG Viewer v2.00 for Web Analyzer (c)rescue.ne.jp #
#####################################################
# [History]
# 11/FEB/1999 v1.02 隔罫線が正しく表示されないバグの修正
# 11/MAY/1999 v1.04 ＯＳ記録のデータ更新
# 17/JUL/1999 v1.05 log.plのバグ修正
# 06/NOV/1999 v2.00 カウンター機能の追加
# analyze.cgiから見たログフォルダの場所(path)
$log_dir = './log/';
# 各解析項目の最大表示数
$max = 30;
# analyze.cgiから見たグラフ用画像の場所(URL)
$gif = './images/bar.gif'; #色付
$gif2 = './images/blank.gif'; #背景と同じ色
#------------------------------------------------------
$buffer = $ENV{'QUERY_STRING'};
if ($buffer =~ /Yesterday/i) {
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time - 24*60*60);
}
elsif ($buffer =~ /Today/i) {
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
}
else {
&error('Web Analyzer',"Yesterday
\nToday");
}
@wday_array = ('SUN','MON','TUE','WED','THU','FRI','SAT');
$date = sprintf("%01d\/%01d(%s)",$mon +1,$mday,$wday_array[$wday]);
$log = sprintf("%04d%02d%02d",$year +1900,$mon +1,$mday);
#------------------------------------------------------
$log = "$log_dir$log";
open(LOG,$log) || &error('Log Not Found','');
@lines = ;
close(LOG);
foreach $data (@lines) {
chop($data);
($HOUR,$HTTP_REFERER,$REMOTE_HOST,$HTTP_USER_AGENT,$OS) = split(/\t/,$data);
$i++;
if ($HOUR ne '') { $hour{$HOUR}++; $j++; }
if ($HTTP_REFERER ne '') { $ref{$HTTP_REFERER}++; $k++; }
if ($REMOTE_HOST ne '') { $host{$REMOTE_HOST}++; $l++; }
if ($HTTP_USER_AGENT ne '') { $agent{$HTTP_USER_AGENT}++; $m++; }
if ($OS ne '') { $os{$OS}++; $n++; }
}
#------------------------------------------------------
$count = -s $log_file;
#------------------------------------------------------
print "Content-type: text/html\n\n";
print <<"EOF";
LOG Analyzer
LOG Analyzer
$i at $date
HOUR
EOF
foreach $hour (sort { $hour{$b} <=> $hour{$a} } keys %hour) { $hourmax = $hour{$hour}; last; }
$magnification = $hourmax / 100;
$f = 0;
foreach $hour (0 .. 23) {
$hour = sprintf("%02d",$hour);
if ($j != 0) { $bar = $hour{$hour}; }
print "\n";
$bar = $bar / $magnification;
$bar = int($bar);
if ($bar == 0) { print "![](\"$gif2\") | \n"; }
else {
$blank = 100 - $bar;
if ($blank != 0 ) { print "
"; }
print "$hour{$hour}
";
print "![](\"$gif\")
\n";
next;
}
}
print <<"EOF";
EOF
foreach $hour (0 .. 23) {
if ($hour < 12) { $bgcolor = "bgcolor=#eeddff"; } else { $bgcolor = "bgcolor=#ffeedd"; }
print "| $hour | \n";
}
print <<"EOF";
HTTP_REFERER
EOF
if ($k == 0) { print "| None |
\n"; }
else {
$before = '';
$num = $border = $f = 0;
foreach $ref (sort { $ref{$b} <=> $ref{$a} } keys %ref) {
$num++;
if ($num > $max) { print ".
.
. |
\n"; last; }
$bar = $ref{$ref};
if ($f == 0) { $f = 1; $magnification = $bar / 100; $bar = 100; }
else { $bar = $bar / $magnification; }
$bar = int($bar);
if ($bar == 0) { $bar = 1; }
$border++;
if ($border % 2 != 0) { $bgcolor = "bgcolor=#ffeedd"; } else { $bgcolor = ""; }
if (length($ref) > 70) { $url = substr($ref,0,67) . "..."; } 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 "\n";
print "| $number | \n";
print "$url | \n";
print " $ref{$ref} | \n";
print "
\n";
}
}
print <<"EOF";
REMOTE_HOST
EOF
if ($l == 0) { print "| None |
\n"; }
else {
$before = '';
$num = $border = $f = 0;
foreach $host (sort { $host{$b} <=> $host{$a} } keys %host) {
$num++;
if ($num > $max) { print ".
.
. |
\n"; last; }
$bar = $host{$host};
if ($f == 0) { $f = 1; $magnification = $bar / 100; $bar = 100; }
else { $bar = $bar / $magnification; }
$bar = int($bar);
if ($bar == 0) { $bar = 1; }
$border++;
if ($border % 2 != 0) { $bgcolor = "bgcolor=#ffeedd"; } else { $bgcolor = ""; }
if ($before eq '') { $number = "1"; }
if ($before == $host{$host}) { $number = ""; }
else { $number = $num; }
$before = $host{$host};
print "\n";
print "| $number | \n";
print "$host | \n";
print " $host{$host} | \n";
print "
\n";
}
}
print <<"EOF";
HTTP_USER_AGENT
EOF
if ($m == 0) { print "| None |
\n"; }
else {
$before = '';
$num = $border = $f = 0;
foreach $agent (sort { $agent{$b} <=> $agent{$a} } keys %agent) {
$num++;
if ($num > $max) { print ".
.
. |
\n"; last; }
$bar = $agent{$agent};
if ($f == 0) { $f = 1; $magnification = $bar / 100; $bar = 100; }
else { $bar = $bar / $magnification; }
$bar = int($bar);
if ($bar == 0) { $bar = 1; }
$border++;
if ($border % 2 != 0) { $bgcolor = "bgcolor=#ffeedd"; } else { $bgcolor = ""; }
if ($before eq '') { $number = "1"; }
elsif ($before == $agent{$agent}) { $number = ""; }
else { $number = $num; }
$before = $agent{$agent};
print "\n";
print "| $number | \n";
print "$agent | \n";
print " $agent{$agent} | \n";
print "
\n";
}
}
print <<"EOF";
OS
EOF
if ($n == 0) { print "| None |
\n"; }
else {
$before = '';
$num = $border = $f = 0;
foreach $os (sort { $os{$b} <=> $os{$a} } keys %os) {
$num++;
if ($num > $max) { print ".
.
. |
\n"; last; }
$bar = $os{$os};
if ($f == 0) { $f = 1; $magnification = $bar / 100; $bar = 100; }
else { $bar = $bar / $magnification; }
$bar = int($bar);
if ($bar == 0) { $bar = 1; }
$border++;
if ($border % 2 != 0) { $bgcolor = "bgcolor=#ffeedd"; } else { $bgcolor = ""; }
if ($before eq '') { $number = "1"; }
if ($before == $os{$os}) { $number = ""; }
else { $number = $num; }
$before = $os{$os};
print "\n";
print "| $number | \n";
print "$os | \n";
print " $os{$os} | \n";
print "
\n";
}
}
print <<"EOF";
EOF
exit;
sub error {
print "Content-type: text/html\n\n";
print <<"EOF";
$title
$body
$_[0]
$_[1]