#!/usr/local/bin/perl

$script = "area_tokyo.html";

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


&decode;

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

#------------------#
# ログインチェック #
#------------------#
&DBConnect;
$sth = $db->prepare("select ID from ppass where ID = \"$COOKIE{ID}\"");
if(!$sth->execute){ &error ("接続失敗2"); }
$data = $sth->fetchrow;
if ($data){ $LOGIN_FLAG = $data; }
else{ $LOGIN_FLAG = ""; }
&DBDisconnect;
&count;




$center .= <<EOF;
<div id="center_main">
  <div class="center_msg"><img src="images2/area_top/title_tokyo.jpg" width=460 height=110 alt="東京エリア"></div>

  <table border=0 cellpadding=0 cellspacing=0>
    <tr>
      <td><div class="geki_text_tokyo">本日激ぱっち</div><a href="geki.html?area=tokyo&mode=all&r=ar"><img src="images2/area_top/geki_tokyo.jpg" width=222 height=113 alt="本日激ぱっち" style="margin-right:14px;margin-bottom:14px;"></a></td>
      <td><div class="geki_text_tokyo">ホールイベント情報</div><a href="hall.html?area=tokyo&mode=all&r=ar"><img src="images2/area_top/hall_tokyo.jpg" width=222 height=113 alt="激アツホール情報" style="margin-bottom:14px;"></a></td>
    </tr>
    <tr>
      <td><div class="geki_text_tokyo">イベントリポート</div><a href="event.html?area=tokyo&mode=list&r=ar"><img src="images2/area_top/event_tokyo.jpg" width=222 height=113 alt="イベントリポート" style="margin-right:14px;margin-bottom:14px;"></a></td>
      <td><div class="geki_text_tokyo">PGクイーンファイル</div><a href="pgq.html"><img src="images2/area_top/PGQ_tokyo.jpg" width=222 height=113 alt="PGクイーンファイル" style="margin-bottom:14px;"></a></td>
    </tr>
    <tr>
      <td><div class="geki_text_tokyo">今月のぱっちGuu</div><a href="pacchi.html?area=tokyo&mode=area"><img src="images2/area_top/pacchi_tokyo.jpg" width=222 height=113 alt="今月のぱっちGuu" style="margin-bottom:14px;"></a></td>
      <td></td>
    </tr>
  </table>
  <div class="center_msg"><hr size=1></div>
  <img src="images2/event/QR.gif" width=456 height=104 alt="">
</div>

EOF

&html;


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

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