#!/usr/local/bin/perl ####################################################### # LOG Recorder v2.01 for Web Analyzer (c)rescue.ne.jp # ####################################################### # 加算するカウント数(記録したカウント数にこの数字を加算して表示します) $add = 1105; # log.cgiから見たログフォルダの場所(path) $log_dir = './log/'; # log.cgiから見た累計カウントを記録するファイル(path) $log_file = './log/count.dat'; # SSI記述したHTMLから見たimages/ディレクトリの位置を設定(URL) $graphics = './cgibin/analyze/images/'; #------------------------------------------------------ ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time - 48*60*60); $delete_log = $log_dir . sprintf("%04d%02d%02d",$year +1900,$mon +1,$mday); if (-e $delete_log) { unlink($delete_log); } ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time); $log = $log_dir . sprintf("%04d%02d%02d",$year +1900,$mon +1,$mday); $HOUR = sprintf("%02d",$hour); #------------------------------------------------------ $HTTP_REFERER = $ENV{'HTTP_REFERER'}; $HTTP_REFERER =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; if ($HTTP_REFERER =~ /^file:/i || $HTTP_REFERER =~ /^bookmark/i) { $HTTP_REFERER = ""; } #------------------------------------------------------ $REMOTE_HOST = $ENV{'REMOTE_HOST'}; $REMOTE_ADDR = $ENV{'REMOTE_ADDR'}; if ($REMOTE_HOST eq '') { $REMOTE_HOST = $REMOTE_ADDR; } if ($REMOTE_HOST eq $REMOTE_ADDR) { $REMOTE_HOST = gethostbyaddr(pack('C4',split(/\./,$REMOTE_HOST)),2) || $REMOTE_ADDR; } if ($REMOTE_HOST =~ /(.*)\.(\d+)$/) { ; } elsif ($REMOTE_HOST =~ /(.*)\.(.*)\.(.*)\.(.*)$/) { $REMOTE_HOST = "\*\.$2\.$3\.$4"; } elsif ($REMOTE_HOST =~ /(.*)\.(.*)\.(.*)$/) { $REMOTE_HOST = "\*\.$2\.$3"; } #------------------------------------------------------ $HTTP_USER_AGENT = $ENV{'HTTP_USER_AGENT'}; $HTTP_USER_AGENT =~ s//>/g; if ($HTTP_USER_AGENT =~ /Win(.*)(95|98|NT)/i) { $OS = $2; $OS =~ y/a-z/A-Z/; $OS = "Windows $OS"; } elsif ($HTTP_USER_AGENT =~ /Macintosh/i) { $OS = "Macintosh"; } elsif ($HTTP_USER_AGENT =~ /Mac_PowerPC/i) { $OS = "Mac_PowerPC"; } elsif ($HTTP_USER_AGENT =~ /X11/i) { $OS = "X11"; } elsif ($HTTP_USER_AGENT =~ /Linux/i) { $OS = "Linux"; } elsif ($HTTP_USER_AGENT =~ /SunOS/i) { $OS = "SunOS"; } elsif ($HTTP_USER_AGENT =~ /FreeBSD/i) { $OS = "FreeBSD"; } elsif ($HTTP_USER_AGENT =~ /WebTV/i) { $OS = "WebTV"; } elsif ($HTTP_USER_AGENT =~ /AIX/i) { $OS = "AIX"; } elsif ($HTTP_USER_AGENT =~ /OSF1/i) { $OS = "OSF1"; } elsif ($HTTP_USER_AGENT =~ /NEWS-OS/i) { $OS = "NEWS-OS"; } elsif ($HTTP_USER_AGENT =~ /IRIX/i) { $OS = "IRIX"; } elsif ($HTTP_USER_AGENT =~ /HP-UX/i) { $OS = "HP-UX"; } elsif ($HTTP_USER_AGENT =~ /BSD\/OS/i) { $OS = "BSD/OS"; } else {$OS = "Etc."; } if ($HTTP_USER_AGENT =~ /(.+)\/(\d)\..*compatible\; MSIE (\d)\./) { $HTTP_USER_AGENT ="MSIE/$3 of $1/$2 compatible"; } elsif ($HTTP_USER_AGENT =~ /Mozilla\/(\d)\./) { $HTTP_USER_AGENT ="Mozilla/$1"; } if (open(LOG,">> $log")) { print LOG "$HOUR\t$HTTP_REFERER\t$REMOTE_HOST\t$HTTP_USER_AGENT\t$OS\n"; close(LOG); chmod 0666,$log; } if (open(LOG,">> $log_file")) { print LOG "\n"; close(LOG); } #------------------------------------------------------ print "Content-type: text/plain\n\n"; $count = -s $log_file; $count += $add; print $count; exit;
#!/usr/local/bin/perl ########################################################### # LOG Count Viewer v2.01 for Web Analyzer (c)rescue.ne.jp # # (Today) # ########################################################### # today.cgiから見たログフォルダの場所(path) $log_dir = './log/'; # SSI記述したHTMLから見たimages/ディレクトリの位置を設定(URL) $graphics = './cgibin/analyze/images/'; #------------------------------------------------------ print "Content-type: text/plain\n\n"; ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time); $log = sprintf("%04d%02d%02d",$year +1900,$mon +1,$mday); $log = "$log_dir$log"; if (!open(LOG,$log)) { print "$_[0]"; exit; } @lines =
; close(LOG); $count = @lines; print $count; exit;
#!/usr/local/bin/perl ########################################################### # LOG Count Viewer v2.01 for Web Analyzer (c)rescue.ne.jp # # (Yesterday) # ########################################################### # today.cgiから見たログフォルダの場所(path) $log_dir = './log/'; # SSI記述したHTMLから見たimages/ディレクトリの位置を設定(URL) $graphics = './cgibin/analyze/images/'; #------------------------------------------------------ print "Content-type: text/plain\n\n"; ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time - 24*60*60); $log = sprintf("%04d%02d%02d",$year +1900,$mon +1,$mday); $log = "$log_dir$log"; if (!open(LOG,$log)) { print "$_[0]"; exit; } @lines =
; close(LOG); $count = @lines; print $count; exit;
site updated 4.Dec.2004
->information & products
recommended browser InternetExplorer5 or late
