#!/usr/bin/perl
#       ↑あなたが加入しているプロバイダの｢perl｣言語が使用できる
#         パスを指定します。一般的に｢#!/usr/local/bin/perl｣で大丈夫

#===============================Slote Counter Version 98.1==============================
#ログファイル
$datafile = 'slcnt.txt';
#==========================初期設定が必要なのはここまでです。===========================
$buffer = $ENV{'QUERY_STRING'};
@pairs = split(/&/,$buffer);
foreach $pair (@pairs) {
	($name, $value) = split(/=/, $pair);
	$FORM{$name} = $value;
}
#データファイルを読み込む
open(DT,"$datafile") || die "Can't create tmp file.\n";
$cnt = <DT>;
close(DT);
$count = $cnt + 1;
$count = "000000$count";
$len = length($count);
$c = substr($count,$len - $FORM{'c'},1);
$img = "$c\.gif";
if ($FORM{'c'} == 1) {
	$cnt++;
	#perlのプロセス番号のテンポラリーを作成
	$tmp_dummy = "$$\.tmp";
	open(TMP,">$tmp_dummy") || die "Can't create tmp file.\n";
	close(TMP);
	#パーミッションを変更
	chmod 0666,$tmp_dummy;
	#テンポラリーファイルへデータを書込む
	open(TMP,">$tmp_dummy") || die "Can't open tmp file.\n";
	print TMP "$cnt\n";
	close(TMP);
	#リネームしてロックを解除
	rename($tmp_dummy,$datafile);
}
#画像を返す
print "Content-type: image/jpeg\n\n";
open(IMG, "$img") || die "Can't open: $dir/$img";
print $_ while (<IMG>);
close(IMG);
exit;