#!/usr/bin/perl

# Quick webstats program
# M Adams 02-07-1999
# Modified J Adams 23-11-1999
# File format:  <time>  <IP addr>  <host name>
# tab separated

$out_dir = "/home/aceserve/logs";
open (OUTFILE, ">>$out_dir/.iiplstats");

print OUTFILE scalar localtime,"\t";
print OUTFILE "$ENV{'REMOTE_ADDR'}\t$ENV{'REMOTE_HOST'}\t$ENV{'HTTP_USER_AGENT'}\n";

# to prevent errors in script
print "Content-type: text/html\n\n";