Pekka Heinämäki, Researcher, Tuorla Observatory, Tel: +358 2 333 8983
Pasi Nurmi, Researcher, Tuorla Observatory, Tel: +358 2 333 8984
Contact information:
Tuorla Observatory
Väisäläntie 20
FI-21500 PIIKKIÖ
Finland
Fax: +358 2 243 3767
Email: firstname.lastname@utu.fi
# to implement your SSI and your server must support SSI to
# implement the counter in this manner.
#
# Set the file name up.
$HcntFile = "../data/$ENV{'DOCUMENT_NAME'}$ENV{'QUERY_STRING'}hits.dat";
#
# Open and read the file.
# $HitCounts is set to 0 if the file doesn't exist.
open (COUNTHAND, "<$HcntFile");
$HitCounts = ;
# Close the file input and open it to truncate output
# Should we worry about locking the file in case another process
# uses it? Probably not since if we take that many hits
# missing a few won't matter and we're too busy to be concerned.
close (COUNTHAND);
open (COUNTHAND, ">$HcntFile");
# Increment $Counter, then write it back out. Put up a message
# with the new value. Close the file and exit.
$HitCounts += 1;
print COUNTHAND $HitCounts;
# flock (COUNTHAND, 8);
close (COUNTHAND);
print "Content-type: text/html", "\n\n"; # MIME header.
print "", "\n";
print "";
print "General Hit Counter", "\n";
print "", "\n";
print "", "\n";
print "
