Website Hits Logger

#!/usr/bin/perl $date=`/bin/date +"%T (%Z) %D"`; chomp $date; $date_hits=`/bin/date \+\"\%m\-\%d\-\%y\"`; chomp $date_hits; $mailprog="/usr/bin/sendmail"; $log_file="/home/wilab/public_html/hits/hits.shtml"; $data_file="/home/wilab/public_html/hits/data/$date_hits.dat"; if(!-f "$log_file") { open(FILE, ">$log_file"); print FILE < Website Hits Logger

Website Hits Logger
This system was created on: 01:36:47 (CST) 04/03/02

EOT close(FILE); $newfile=1; } open (FILE,"$data_file"); $NUMB=; $NUMB++; close (FILE); open (FILE,">$data_file"); print FILE "$NUMB"; close (FILE); open (FILE,"$log_file"); @LINES=; close(FILE); if ($ENV{REMOTE_USER} eq "") { $ENV{REMOTE_USER} = "Not Available"; } open (LOG,">$log_file"); for (my $i=0; $i <= $#LINES;$i++) { if ($LINES[$i] =~ //) { print LOG <

Date:	$date
Requested Page:	$ENV{'REQUEST_URI'}
IP Address:	$ENV{'REMOTE_ADDR'}
Browser/OS:	$ENV{'HTTP_USER_AGENT'}
From:	EOT if ($ENV{'HTTP_REFERER'} eq "") { print LOG <$ENV{'HTTP_REFERER'} EOT } print LOG <
Who:	$ENV{REMOTE_USER}

EOT } else { print LOG $LINES[$i]; } } close (LOG);