#!/usr/bin/perl
###################################################################################
#
# counter4flash.cgi
#
# Version 1.00
#
# T.Yoshioka made
# 2004/12/05 Version 1.00  新規作成
###################################################################################
print "Content-type:text/plain\n\n";

# カウントファイルのopen
	open(FH,"+<count.txt") || open(FH,"+>count.txt");
	#flock(FH,2);    #ロック（無効にしてある;win2000、XPにのみ働くので）

# 前回までのカウント読み込み
	seek(FH,7,0);
	$num=<FH>;
	chop($num);

# カウントアップ
	$num++;

# カウント数上書き
	$num=sprintf("%06d",$num);
	seek(FH,7,0);
	print FH "$num\n";

	#flock(FH,8);　　#アンロック（無効）
	close(FH);

#Flashへの書き出しデータ

print "count=$num";

exit;