#!/usr/local/bin/perl

$script = "pgq.html";

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

$pgqfile = "$sv_path/private_html/protect/.pc_pgq";

$pgqimages = "images2/pgq/photo/";

&decode;
&count;

$center .= <<EOF;
<div id="center_main">
<div class="center_msg"><img src="images2/pgq/title01.jpg" width=460 height=173 alt="PGクイーンファイル"></div>
<div class="center_msg" id="s1212">レースクイーンとしてサーキットやイベント、写真撮影会など、様々な活動でレースを盛り上げるほか、
モデル・タレントとしてもＴＶや雑誌で幅広く活躍している女神達ＰＧクィーンがホールイベント突撃取材の応援に駆けつけます！
この中の誰かが「あのホール」現れる!? ホールイベント現場の出玉状況をＰＧクィーン・ぱっち取材班が突撃リポート！
ＰＧクィーンが取材にくることを知っているホールは果たして・・・・。
</div>

EOF

open(IN,"$pgqfile") || &error("Open Error : $pgqfile");
@lines = <IN>;
close(IN);

$i = 0;

$center .= "<table border=0 width=460>\n<tr valign=\"top\">\n";
foreach (@lines) {
	@data = split(/,/);

	if ($data[15] eq "on"){

		if ($i > 3){ $center .= "<tr valign=\"top\">\n";$i=0;}
		$center .= "<td width=114>\n";
		$center .= "<div class=\"pgq_p\">\n";

		$center .= "<a href=\"javascript:windowopen($data[0])\;\" id=\"i_link\">";
		if ($data[14] ne ""){
			$center .= "<img src=\"$pgqimages$data[14]\" class=\"pgq_photo\" width=89 height=89>\n";
		}
		$center .= "$data[1]</a>\n";
		$center .= "</div>\n";
		$center .= "</td>\n";
		$i++;

	}
}
$center .= "</table>\n";

$center .= '<div class="center_msg"><hr size=1></div>';
$center .= '<div class="center_msg" align="center"><a href="http://www.stylecorporation.com/" target="_blank"><img src="images2/pgq/style_copy_right.gif" width=147 height=76 alt="Powered by Style Corporation" border=0></a></div>';
$center .= '<div class="center_msg"><hr size=1></div>';

$center .= '<div class="center_msg" align="center"><p><img src="images2/pgq/QR.gif" width=456 height=104 alt="QRコードで携帯からアクセス！"></p></div><br></div>';





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

&html;

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

	# ロックファイル名
	$lockfile = 'count/lock/pgq.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);
}