;
chomp $hitdata;
($hitcount, $ipAddr) = split (/$SEP2/, $hitdata);
if ($cur_remote_ip ne $ipAddr) {
$hitcount++;
seek (FCOUNT, 0, 0);
truncate (FCOUNT, 0);
print FCOUNT "$hitcount${SEP2}$cur_remote_ip\n";
}
eval 'flock(FCOUNT,8)'; # UN-LOCK file
close (FCOUNT);
## End of main routine!
# Put out error message and exit
sub errormesg {
my ($reason) = @_;
print ("Content-type: text/html\n\n");
print("\nStorymania - Message\n\n");
print("
\n");
print ("$reason\n");
print("
Please use the back button of your browser to continue.\n");
print("
[ Storymania Home Page ]
\n");
print ("\n");
exit;
}