#!/usr/local/bin/perl
#  ssicount.cgi   Written by Yo kubota Dec.22.1997. This script is public domain.

# constants definition
$counter_file = 'counter.txt';        # counter file name
$image = './counter/image/';          # number.gif's directory
$figure = 4;                          # figures
#-----  Set up above to customize this script  ------------;

# read counter_file & count_up
open(COUNT, "+<$counter_file");       # open read & write
flock(COUNT, 2);                      # lock count file
$counter = <COUNT>;
$counter++;
seek COUNT,0,0;                       # seek to the head of count file
print COUNT $counter;
close(COUNT);                         # close & unlock

# send image_tag to browser
@giffile=("0.gif","1.gif","2.gif","3.gif","4.gif","5.gif","6.gif","7.gif","8.gif","9.gif");
$| = 1;
print "Content-type: text/html\n\n";
$i=$figure-length($counter);
for (;$counter=~s/([0-9]*)([0-9])/$1/;)
{
    print "<IMG SRC=\"$image$giffile[$2]\" ALT=\"$2\">";
}
for (;$i>0;$i--)
{
    print "<IMG SRC=\"$image$giffile[0]\" ALT=\"0\">";
}