#!/usr/bin/perl ############################################# # LOG Recorder for UNIX (c)www.rescue.ne.jp # ############################################# #$log_dir = './logview/acs_cnt/log/'; $log_dir = './log/'; # ($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 +365,$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 || $ref =~ /^bookmark/i) { $ref = ""; } #------------------------------------------------------ $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 =~ /X11/i) { $OS = "X11"; } 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"; } #------------------------------------------------------ #open (LOG, '>>./log/waowao.txt'); # print LOG "$HOUR\t$HTTP_REFERER\t$REMOTE_HOST\t$HTTP_USER_AGENT\t$OS\n"; #close (LOG); 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; } #print "Content-type: text/html\n\n"; #print < # #mF # # # #
#
#
#$log++
#$HOUR\t$HTTP_REFERER\t$REMOTE_HOST\t$HTTP_USER_AGENT\t$OS\n
# # #EOGH exit;