#!/usr/local/bin/perl
#
#	超シンプルカウンタ
#
#	(C)Copyright 2000 けいいちの自家製ソフトのお部屋 All rights reserved. 
#	(C)Copyright 2002 Ｋ’ｓ ＣＧＩ All rights reserved. 
#
#	Program : けいいち
#	e-mail  : keiichi@kumacchi.com
#	HomePage: http://www.kumacchi.com
#
#	Ver.1.3
#
require "gifcat.pl";
#####################################
#	設定が必要な部分:ここから		#
#####################################
# ログファイル名
$log = './cnt.log';

# 前0の桁数
$keta= 6;

# gifイメージが置いてあるディレクトリへのパス
$imgpath = './';
#####################################
#	設定が必要な部分:ここまで		#
#####################################

&log_in;
@log[0]++;
&log_out;

@log[0] = sprintf('%0' . $keta . 'd',@log[0]);

$lng = length(@log[0]);
for($i=0; $i< $lng; $i++){push(@c,$imgpath.substr(@log[0].$lng,$i,1).'.gif');}

print "Content-type: image/gif\n\n";
binmode(STDOUT);
print &gifcat'gifcat(@c);
exit;

sub log_in	#	ログファイル読込
	{
	#ファイルの存在チェック
	if( -e $log )	#有るとき
		{
		if(!open (INPUT,"$log")){exit;}
		@log = <INPUT>;
		close (INPUT);
		if(@log ==()){ exit;}
		}
	else
		{			#ない時作成
		if(!open(LOG,">$log")){exit;}
		close(LOG);
		}
	}


sub log_out	#	ログファイル出力
	{
	if(@log ==()){ exit;}
	if (open(LOG,">$log"))
		{
		print LOG @log;
		close(LOG);
		}
	}