testbed

#!/usr/local/bin/perl4 # ######################################################### # # Program To Record Hits on Testbed # 3/19/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/bed.$mon.$mday"; # Name of the hit file open (HITME,">> $FileName"); chmod 0664, HITME; # set permissions flock (HITME,2); print HITME "$hour:$min:$sec|$mon/$mday/$year|$host|$refer|$brow\n"; close HITME; exit 1;

testbed is Centrimedia's own web site... Our pet (project) door to the information super-backyard... So what have we done for you lately... Bruce Lee's Grave - A virtual visual visit to Bruce Lee's grave in Seattle. Change is always coming here. So stay tuned... testbed was created by Centrimedia, a web development company. If you would like more information, you can see our home page at...www.centrimedia.com or you can send an e-mail message to ... contact@centrimedia.com