#!/usr/local/bin/perl
#
#  Increment a counter for WWW
#
#  To use this script, embed into a HTML page as:
#
#  This page has been accessed <img src=counter.cgi alt="many"> times.
#

require 'libcnt.pl';

#  Parameters for this script

$pageName = "far";
$counterfile = "counters/cntfar.txt";

&DefineDigitBitmap;	#  Set up the array of X-Bitmap digits
&BumpCounterValue;	#  Increment the numeric value in the counter file
&GenBitmap;		#  Generate an X-Bitmap with the updated counter value
&LogHit;		#  Log this hit
&BumpCounterValueD;	#  Increment the numeric value in the counter file
&LogHitD;		#  Log this hit