#!/usr/local/bin/perl

$script = "hyouki.html";

require './lib/jcode.pl';
require './lib/teikei.pl';

&decode;
&count;

$center = ' <div id="center_main"><div class="center_msg"><img src="images2/hyouki/sub_title.gif" width=460 height=126 alt="新表記「K」「Q」「J」とは！？"></div>';

$center .= '<div class="center_msg" id="s1212">
ぱっちGuu的新表記！ぱっちGuuだけの独自新表記「K」「Q」「J」！紙面各ホール情報に表記されたこのマークは、その店の期待度を示すもの。「K」「Q」「J」マークを見逃すな！！！！<br>

<table border=0 id="s1212">
  <tr>
    <td><img src="images2/hyouki/king1.jpg" width=113 height=113 alt="KING"></td>
    <td><img src="images2/hyouki/king2.jpg" width=110 height=39 alt="KING"><br>KING、それは最高の証<br>ぱっちGuu的＜期待度最高称号！</td>
  </tr>
</table>
<table border=0 id="s1212">
  <tr>
    <td width=170 align="right"><img src="images2/hyouki/queen1.jpg" width=119 height=117 alt="QUEEN"></td>
    <td><img src="images2/hyouki/queen2.jpg" width=103 height=40 alt="QUEEN"><br>QUEEN、それは女神の微笑！<br>爆発の予感</td>
  </tr>
</table>
<table border=0 id="s1212">
  <tr>
    <td width=226 align="right"><img src="images2/hyouki/jack1.jpg" width=115 height=113 alt="JACK"></td>
    <td><img src="images2/hyouki/jack2.jpg" width=106 height=39 alt="JACK"><br>JACK、それは若き勇者の叫び！<br>勝利はここから始まる！</td>
  </tr>
</table>
</div>

<div class="center_msg"><hr size=1></div>
</div>
';

#----------------#
# 書込Cookie準備 #
#----------------#
$setcook1 = &setCookie("ID", $COOKIE{ID});

&html;

#----------#
# カウンタ #
#----------#
sub count {
	# カウントファイル
	$log = "count/hyouki.dat";

	# ロックファイル名
	$lockfile = 'count/lock/hyouki.lock';

	&lock;

	#カウントファイル読込み
	open(IN,"$log");
	$in_line = <IN>;
	close(IN);
	
	#カウント１増やす
	$in_line++;
	
	#カウントファイル書込み	
	open(OUT,">$log");
	print OUT $in_line;
	close(OUT);

	&unlock;

}

sub lock {
	local($retry) = 5;
	while (!mkdir($lockfile, 0755)) {
		sleep(1);
	}
}

sub unlock {
	rmdir($lockfile);
}