Visitor Information

#!/usr/bin/perl # Visitor Information - Process Averages # By Brian Prentice # August 1997 $VisitorFile = "/var/www/html/$ARGV[0]/VisitorInfo/$ARGV[1]"; if (!(-e $VisitorFile)) { exit(1); } open(FILE, "<$VisitorFile"); $firstline = ; if ($firstline !~ "^\n") { close(FILE); exit(1); } print "Content-type: text/html\n\n"; print "\n"; print "Visitor Information\n"; print "\n"; print "

Visitor Information

\n"; print "\n"; while () { ($dayname, $day, $month, $year, $hour, $minute, $visitor) = split "\t"; if (! defined $Year) { $Year = $year; } if (! defined $Month) { $Month = $month; print "\n"; print "\n"; } if (! defined $Day) { $Day = $day; } if (($Day == $day) && ($Month eq $month)) { $DayCount++; } else { print "\n"; $Day = $day; $NoDays++; $DayCount = 1; } if ($Month eq $month) { $MonthCount++; } else { print "\n"; print "\n"; print "

", &ToLongMonth($Month), " ", $Year, "
Day	Visits
", &ToString($Day), "	", &ToString($DayCount), "
Average per day ", int($MonthCount / $NoDays + 0.5), "
Month Total is ", $MonthCount, "

\n"; $Month = $month; $Year = $year; $MonthCount = 1; $NoDays = 0; print "\n"; print "\n"; print "\n"; } } if (defined $Year) { print "\n"; print "\n"; print "\n"; } print "

", &ToLongMonth($Month), " ", $Year, "
Day	Visits
", &ToString($Day), "	", &ToString($DayCount), "
Average per day ", int($MonthCount / ++$NoDays + 0.5), "
Month Total is ", $MonthCount, "

\n"; close(FILE); exit(0); sub ToLongMonth { ($Month) = @_; %longMonth = ( "Jan" => "January", "Feb" => "February", "Mar" => "March", "Apr" => "April", "May" => "May", "Jun" => "June", "Jul" => "July", "Aug" => "August", "Sep" => "September", "Oct" => "October", "Nov" => "November", "Dec" => "December" ); return $longMonth{$Month}; } sub ToString { ($Value) = @_; return ($Value < 10) ? " " . $Value : "" . $Value; }