#!/usr/local/bin/perl

#const

	$countfile  = './count';
	$lockdir    = './lock/';
	$imagedir   = './cimage/';
	$figure     = 4;
	$img_width  = 17;
	$img_height = 29;
	$timeout    = 5;


#main

&FileLock;

open (COUNTFILE, $countfile);
$count = <COUNTFILE>;
close (COUNTFILE);

$count++;

open (COUNTFILE, "> $countfile");
print COUNTFILE $count, "\n";
close (COUNTFILE);

$dcount =  $count % (10 ** $figure);
for ($i = $figure; $i >= 1; $i--) {
	$chipnum = int ($dcount / (10 ** ($i - 1)));
	$dcount   = $dcount % (10 ** ($i - 1));
	print '<IMG SRC="', $imagedir, $chipnum, '.gif" ';
	print 'ALT="', $chipnum, '" ';
	print "WIDTH=$img_width HEIGHT=$img_height>";
}
print "\n";
&FileUnlock;

exit;

sub FileLock {
	while (!symlink(".", $lockdir . 'count.lock')) {
		$timeout--;
		if ($timeout == 0) {
			&TimeOut;
		}
		sleep (1);
	}
}

sub FileUnlock {
	unlink ($lockdir . 'count.lock');
}
 
sub TimeOut {
	&FileUnlock;
	print '<IMG SRC="', $imagedir, 'timeout.gif" ';
	print 'ALT="TIMEOUT" ';
	print "WIDTH=", $img_width*$figure, " HEIGHT=$img_height>\n";
	exit;
}