#!/usr/local/bin/perl require("cgi-bin/mylib.pl"); open(FIN, "cgi-bin/IPlist") or die; while() { $last = $_; } chomp($last); close(FIN); if(!($last eq $ENV{REMOTE_ADDR})) { $count=get_count("cgi-bin/MainCount"); open(FOUT, ">>cgi-bin/IPlist"); print(FOUT "$ENV{REMOTE_ADDR}\n"); close(FOUT); } else { open(FIN, "cgi-bin/MainCount"); chomp($count=); close(FIN); } open(FOUT , ">>cgi-bin/HITlist"); chomp($lookup=`nslookup $ENV{REMOTE_ADDR} 2>&1`); @list=split(/\n/,$lookup); if(@list < 4) { $list[3]="IP not found."; } chomp($date=`date`); printf(FOUT "%15s %s %s %s\n",$ENV{REMOTE_ADDR} ,$date, $list[3], $ENV{HTTP_REFERER}); close(FOUT); print <

EOT