#!/usr/local/bin/perl4
#
#########################################################
#
# HMTEST Hits Recording Program
#
# 3/15/96 version
########################################################
############ MAIN #################################
# read in the time
($sec, $min, $hour, $mday, $mon, $year, $wday, $yday,
$isdst) = localtime (time);
# set up for printing
$min = (sprintf ("%02d",$min)); # to get "01", "02", etc.
$sec = (sprintf ("%02d",$sec));
$mon = $mon + 1;
# check for identifiable calling host and referring page
$host = (length($ENV{'REMOTE_HOST'}))
? $ENV{'REMOTE_HOST'} : "unidentified_host";
$refer = (length($ENV{"HTTP_REFERER"}))
? $ENV{"HTTP_REFERER"} : "unidentified_referer";
$brow = (length($ENV{"HTTP_USER_AGENT"}))
? $ENV{"HTTP_USER_AGENT"} : "unidentified_browser";
#----------------- output --------------------
$FileName = "./logs/lee.$mon.$mday"; # Name of the hit file
open (HITME,">> $FileName");
chmod 0664, $FileName; # set permissions
chown 6520, 9, $FileName;
flock (HITME,2);
print HITME "$hour:$min:$sec|$mon/$mday/$year|$host|$refer|$brow\n";
close HITME;
exit 1;
(the previous page)
...Bruce Lee's grave and the grave of his son Brandon Lee.
I moved closer... (the icons below are links)
How you can go there...
return to testbed
this site was created by
bill niemeyer
of
centrimedia
Copyright 1996