|
#!/usr/bin/perl print "Content-type:text/html\n\n"; $filenamet = "tracker.txt"; open(myfile,"$filenamet"); @getrec = <myfile>; close(myfilet); $cnt = @getrec; $q = $ENV{'QUERY_STRING'}; if (!$getrec[0] or $q eq "restart") { open(myfile,">$filenamet"); } else { open(myfile,">>$filenamet"); } @t = localtime(time); print myfile $ENV{'REMOTE_ADDR'},",",$t[3]+1,"\n"; close(myfile); print $cnt; |