#!/usr/bin/perl

##################################
# Programed By ikechan
#       Since 2000/11/17
#            http://admjp.com/j/
##################################


$file = "/home/hoge/data";

($tmp,$ank) = split(/\?/,$ENV{'REQUEST_URI'},2);

if($ank ne 'yes' && $ank ne 'no')
	{ exit; }  

&file_lock;
if(open(UD,"$file/$ank.cnt"))
	{
	$num = <UD>;
	close(UD);
	}

$num++;

if(open(UD,">$file/$ank.cnt"))
	{
	print UD $num;
	close(UD);
	}
&file_unlock;
print "<!-- Vote Ver 0.01 -->";
exit;
			
#ファイルロック
sub file_lock
	{
	local($loop_cnt) = 0;

	while(!(symlink("$$",'$file/vote.lock')))
		{
		sleep(1);
		$loop_cnt++;

		if($loop_cnt > 100)
			{ unlink('$file/vote.lock'); }
		}
	}


# ファイルロック解除
sub file_unlock
	{ unlink('$file/vote.lock'); }