#!/usr/bin/perl
	
#############################################################
##  Created  20.February,1999
##　Programmed by Sei.Kawahara
##  kawasei@muc.biglobe.ne.jp
##  http://www2c.biglobe.ne.jp/~kawahara/
##  imgcount.cgi  Ver.990220 修正ver.991017
##  非営利や個人ＨＰでの使用は、改造含めfree。
##  連絡なしの再配布は禁止します。
##  また、ご使用の際の不都合についての当方の責任は負いません。
#############################################################

#ｇｉｆ画像
$gifdir   = "./";	

#カウントファイル
$file="imgcount.dat";

##+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
#フォームデコード
if ($ENV{'REQUEST_METHOD'} eq "POST")
{read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});}
else {$buffer=$ENV{'QUERY_STRING'};}
@pairs=split(/&/, $buffer);
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$form{$name}=$value;
}
$up=$form{'up'};
$cnt =$form{'cnt'};

open(CNT,"$file");
flock(CNT,2);
$count=<CNT>;
flock(CNT,8);
close(CNT);

##+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
#カウントアップ
if ($up eq "1") {
$count++;	
open(CNT,">$file");
flock(CNT,2);
print CNT "$count";
flock(CNT,8);
close(CNT);
}

##+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
#カウントｇｉｆ画像出力
$num=($count/(10**($cnt-1)))%10;
open(IMG,"<$gifdir/$num\.gif");
print "Content-type: image/gif\n\n";
print <IMG>;
close(IMG);

exit;