#!/usr/local/bin/perl

$script = "hall.html";

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

# 今月のぱっちGuuデータファイル
$PACCHI_FILE = "$sv_path/private_html/protect/pc/.pacchi";

&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;




#----------------#
# ホール情報分岐 #
#----------------#
if ($in{'area'} eq "tokyo"){

	$hallfile = "hall_tokyo";
	$imagedir = "./images/hall/tokyo";
	$mini_imagedir = "./images/hall/tokyo/mini";
	$bgcolor = '#00BC6A';
	if ($in{'mode'} eq "all"){&all;}
	if ($in{'mode'} eq "shop"){&shop;}

}elsif ($in{'area'} eq "keihin"){

	$hallfile = "hall_keihin";
	$imagedir = "./images/hall/keihin";
	$mini_imagedir = "./images/hall/keihin/mini";
	$bgcolor = '#0081BC';
	if ($in{'mode'} eq "all"){&all;}
	if ($in{'mode'} eq "shop"){&shop;}
}elsif ($in{'area'} eq "osaka"){

	$hallfile = "hall_osaka";
	$imagedir = "./images/hall/osaka";
	$mini_imagedir = "./images/hall/osaka/mini";
	$bgcolor = '#FF2623';
	if ($in{'mode'} eq "all"){&all;}
	if ($in{'mode'} eq "shop"){&shop;}
}elsif ($in{'area'} eq "sapporo"){

	$hallfile = "hall_sapporo";
	$imagedir = "./images/hall/sapporo";
	$mini_imagedir = "./images/hall/sapporo/mini";
	$bgcolor = '#A26EDF';
	if ($in{'mode'} eq "all"){&all;}
	if ($in{'mode'} eq "shop"){&shop;}
}else{

&count;

$center .= <<EOF;

<div id="center_main">
<div class="center_msg"><img src="images2/hall/title02.jpg" width=460 height=110 alt="ホール情報"></div>
<div class="center_msg" id="s1212">ぱっちGuu取材班が、選りすぐりのホールイベントに突撃取材を決行！！！ご希望のエリアを選択して下さい。※取材日は誌面内で随時掲載中！！設置場所に関しては<a href="pacchi.html" id=\"hall_link\">コチラ</a>から。</div>


<table border=0 cellpadding=0 cellspacing=0 class="center_msg">
  <tr>
    <td>
      <div class="geki_text" style="margin-bottom:3px; color:#00AC00;">東京エリアはこちらから</div>
      <a href="$script?area=tokyo&mode=all&r=me"><img src="images2/hall/hall_button_tokyo.gif" width=222 height=111 alt="ホール情報東京エリア！" border=0></a>
    </td>
    <td>
      <div style="margin-left:4px;">
        <div class="geki_text" style="margin-bottom:3px; color:#247BE2">京浜エリアはこちらから</div>
        <a href="$script?area=keihin&mode=all&r=me"><img src="images2/hall/hall_button_keihin.gif" width=222 height=111 alt="ホール情報京浜エリア！" border=0></a>
      </div>
    </td>
  </tr>
</table>

<table border=0 cellpadding=0 cellspacing=0 class="center_msg">
  <tr>
    <td>
      <div class="geki_text" style="margin-bottom:3px; color:#FF0722">大阪・阪神エリアはこちらから</div>
      <a href="$script?area=osaka&mode=all&r=me"><img src="images2/hall/hall_button_osaka.gif" width=222 height=111 alt="ホール情報大阪・阪神エリア！" border=0></a>
    </td>

<!--
    <td>
      <div style="margin-left:4px;">
        <div class="geki_text" style="margin-bottom:3px; color:#A26EDF">札幌・道央エリアはこちらから</div>
        <a href="$script?area=sapporo&mode=all&r=me"><img src="images2/hall/hall_button_sapporo.gif" width=222 height=111 alt="激アツホール情報札幌・道央エリア！" border=0></a>
      </div>
    </td>
  </tr>

-->

</table>

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

<div class="center_msg"><img src="images2/geki/QR_geki.gif" width=456 height=104 alt="携帯でアクセス！"></div>

</div>
EOF

}



&html;

#----------#
# 全件表示 #
#----------#
sub all {

if ($in{'area'} eq "tokyo"){
	$obi = '
<div class="center_msg"><table border=0 cellpadding=4 cellspacing=0 bgcolor="#00BC6A" width=460><tr><td align="left"><font color="#ffffff">東京エリア</font></td><td align="right"></td></tr></table></div>
';
}elsif ($in{'area'} eq "keihin"){
	$obi = '
<div class="center_msg"><table border=0 cellpadding=4 cellspacing=0 bgcolor="#0081BC" width=460><tr><td align="left"><font color="#ffffff">京浜エリア</font></td><td align="right"></td></tr></table></div>
';
}elsif ($in{'area'} eq "osaka"){
	$obi = '
<div class="center_msg"><table border=0 cellpadding=4 cellspacing=0 bgcolor="#FF2623" width=460><tr><td align="left"><font color="#ffffff">大阪・阪神エリア</font></td><td align="right"></td></tr></table></div>
';
}

$center .= <<EOF;
<div id="center_main">
<div class="center_msg"><img src="images2/hall/title02.jpg" width=460 height=110 alt="激アツホール情報"></div>
<div class="center_msg" id="s1212">ぱっちGuu取材班が、選りすぐりのホールイベントに突撃取材を決行！！そんな熱いホールがズラリと勢揃い！ご希望のエリアを選択して下さい。※取材日は誌面内で随時掲載中！！設置場所に関しては<a href="pacchi.html?area=$in{'area'}&mode=area" id=\"hall_link\">コチラ</a>から。</div>
$obi
EOF

#<!--	$center .= "<table border=0 cellpadding=0 cellspacing=0  id=\"s1212\" width=420 bgcolor=\"#ffffff\">\n"; -->

	$center .= '<table border=0 cellpadding=0 cellspacing=0 width=458>';


	&DBConnect;
	$sth = $db->prepare("select ID, hall_name, view_flag, address2, write_time, photo3 from $hallfile where view_flag = 1 order by view_No ASC");
	if(!$sth->execute){ &error ("接続失敗2"); }
	while(@res = $sth->fetchrow) {
		foreach(@res){
			jcode::convert(\$_, 'sjis');
		}

		# 1列3個表示。
		if ($loopcount == 0){
			$tr = '<tr valign="top" align="left" height=81 valign=\"bottom\">';
			$tdwidth = 154;
			$loopcount++;
		}elsif($loopcount == 2){
			$tr = '';
			$tdwidth = 150;
			$loopcount = 0;
		}else{
			$tdwidth = 154;
			$tr = '';
			$loopcount++;
		}




		# 本日激アイコン表示判定
		$write_time = $res[4];
		($geki_sec,$geki_min,$geki_hour,$geki_mday,$geki_mon,$geki_year,$geki_wday,$geki_dmy) = localtime($write_time);
		($gsec,$gmin,$ghour,$gmday,$gmon,$gyear,$gwday,$gdmy) = localtime(time);
		$gmon++;
		$geki_mon++;
		$geki_icon = "";
		if (($geki_mday == $gmday) && ($res[4] ne "") && ($geki_mon == $gmon)){
#		if ($geki_mday == $gmday){
			$geki_icon = '<img src="images2/hall/geki_icon.gif" width=44 height=17 alt="" style="vertical-align:middle" border=0>';
		}

		# NEW 60日表示（60日 = 5184000秒）
		$new_time = $res[0];
		$nowtime = time;

		$new_icon = "";
		if (($new_time + 5184000) > $nowtime){
			$new_icon = '<img src="images2/hall/new_icon.gif" width=42 height=17 alt="" style="vertical-align:middle" border=0>';
		}

		# 画像
		$thm_img = "";
		if ($res[5]){
			$thm_img = "<tr><td bgcolor=\"#ffffff\" height=148 valign=\"middle\" align=\"center\"><a href=\"$script?mode=shop&SN=$res[0]&ref=all&area=$in{'area'}&r=$in{'r'}\"><img src=\"$mini_imagedir/$res[5]\" border=0></a></td></tr>";
		}else{
			$thm_img = "<tr><td bgcolor=\"#ffffff\" height=148 valign=\"middle\" align=\"center\"><a href=\"$script?mode=shop&SN=$res[0]&ref=all&area=$in{'area'}&r=$in{'r'}\"><img src=\"images2/event/noimage.jpg\" border=0 width=99 height=75></a></td></tr>";
		}

		# 簡易住所
		$address2 = "";
		if ($res[3]){
			$address2 = "<span style=\"font-size:10px;\">($res[3])</span>";
		}

		# 表示
		$center .= <<EOF;
$tr
<td width=$tdwidth align="left">
<table cellpadding=3 cellspacing=1 border=0 bgcolor="#f89a36" width=150 id="s1212" style=\"margin-top:4px;\">
  <tr><td bgcolor="#fff0e0" valign="top" height=36><a href="$script?mode=shop&SN=$res[0]&ref=all&area=$in{'area'}&r=$in{'r'}" id="hall_link">$res[1]</a> $address2</td></tr>
  $thm_img
  <tr><td bgcolor="#fff7ed" valign="top" height=23>$new_icon$geki_icon</td></tr>
</table>
</td>
EOF

	}
	&DBDisconnect;

	if ($loopcount == 2){
		$center .= "<td width=150></td>\n";
	}
	$center .= "</table>\n";

	$center .= "<div class=\"center_msg\" style=\"margin-top:10px;\"><a href=\"$script\" id=\"i_link\">エリア選択へ戻る</a></div><p>\n</div>";

}

#----------------#
#  店舗表示処理  #
#----------------#
sub shop{

if ($in{'area'} eq "tokyo"){
	$area_jp = "東京";
	$event_mei = "最新取材イベント";
}elsif ($in{'area'} eq "keihin"){
	$area_jp = "京浜";
	$event_mei = "最新取材イベント";
}elsif ($in{'area'} eq "osaka"){
	$area_jp = "大阪・阪神";
	$event_mei = "最新取材イベント";
}elsif ($in{'area'} eq "sapporo"){
	$area_jp = "札幌・道央";
	$event_mei = "ぱっち的おすすめ日イベント";
}

if ($in{'r'} eq "ar"){
	$ref = "<a href=\"area_$in{'area'}.html\" id=\"i_link\">$area_jpエリア</a> > <a href=\"hall.html?area=$in{'area'}&mode=all&r=$in{'r'}\" id=\"i_link\">ホールイベント情報</a> > 店舗詳細";
}elsif($in{'r'} eq "me"){
	$ref = "<a href=\"hall.html\" id=\"i_link\">ホールイベント情報</a> > <a href=\"hall.html?area=$in{'area'}&mode=all&r=$in{'r'}\" id=\"i_link\">$area_jpエリア一覧</a> > 店舗詳細";
}

$center .= <<EOF;
<div id="center_main">
<div id="s1212" class="hall_navi_link">$ref</div>
EOF

	&DBConnect;
	$sth = $db->prepare("select * from $hallfile where ID = $in{'SN'}");
	if(!$sth->execute){ &error ("接続失敗 詳細"); }
	while(@res = $sth->fetchrow) {
		foreach(@res){
			jcode::convert(\$_, 'sjis');
		}


		$No = $res[0];
		$s_name = $res[1];
		$address = $res[2];
		$opentime = $res[3];
		$holiday = $res[4];
		$parking = $res[5];
		$pachi = $res[6];
		$slot = $res[7];
		$access = $res[8];
		$photo1 = $res[9];
		$photo2 = $res[10];
		$event_title = $res[18];
		$event_msg = $res[19];


		$write_time = $res[15];
		$geki_msg = $res[16];

		($geki_sec,$geki_min,$geki_hour,$geki_mday,$geki_mon,$geki_year,$geki_wday,$geki_dmy) = localtime($write_time);
		($sec,$min,$hour,$mday,$mon,$year,$wday,$dmy) = localtime(time);
		$mon++;
		$geki_mon++;


		if ($pachi > 0){$pachi = "パチンコ$pachi台 ";}else{ $pachi = "";}
		if ($slot  > 0){$slot  = "スロット$slot台";}else{ $slot = "";}



		if ($in{'SN'} eq $No){

			$center .= "<div class=\"center_msg\"><table border=0 cellpadding=4 cellspacing=0 bgcolor=\"$bgcolor\" width=460><tr><td align=\"left\"><font color=\"#ffffff\">$s_name</font></td><td align=\"right\"></td></tr></table></div>\n";

			if ( $LOGIN_FLAG ){
				# ログインしていて本日激ぱっちがある場合は表示
				if (($geki_mday == $mday) && ($res[15] ne "") && ($geki_mon == $mon)){
#				if ($geki_mday == $mday){
					$center .= <<EOF;

<div class="center_msg">
  <table border=0 cellpadding=0 cellspacing=0 background="images2/hall/hgekibox06.gif" id="s1212">
    <tr>
      <td colspan=3><img src="images2/hall/hgekibox01.gif" width=460 height=43 alt=""></td>
    </tr>
    <tr>
      <td width=30 height=25><img src="images2/hall/hgekibox02.gif" width=30 height=25 alt=""></td>
      <td width=400></td>
      <td width=30 height=25><img src="images2/hall/hgekibox03.gif" width=30 height=25 alt=""></td>
    </tr>
    <tr>
      <td width=30></td>
      <td width=400>$geki_msg</td>
      <td width=30></td>
    </tr>
    <tr>
      <td width=30 height=25><img src="images2/hall/hgekibox04.gif" width=30 height=26 alt=""></td>
      <td width=400></td>
      <td width=30 height=25><img src="images2/hall/hgekibox05.gif" width=30 height=26 alt=""></td>
    </tr>
    <tr>
      <td colspan=3><img src="images2/hall/hgekibox07.gif" width=460 height=1 alt=""></td>
    </tr>
  </table>
</div>


EOF

				}
			}else{
				# 本日激ぱっちがある場合は表示（ログインしていない）
				if ($geki_mday == $mday){
					$center .= "<div class=\"center_msg\" id=\"s1212\" align=\"center\"><a href=\"joinPC.html\"><img src=\"images2/hall/hgekibox_nologin.gif\"></a></div>";
				}
			}

			if ($photo1){
				$center .= "<div class=\"center_msg\"><img src=\"$imagedir/$photo1\"></div>\n";
			}

			if (($event_title ne "") && ($event_msg ne "")){
				# イベント情報、会員限定
				# ログインしている場合
				if ( $LOGIN_FLAG ){
					$center .= "  <table cellpadding=3 cellspacing=1 border=0 bgcolor=\"#f89a36\" width=460 id=\"s1212\" class=\"center_msg\">\n";
					$center .= "  <tr valign=\"top\" align=\"left\"><td bgcolor=\"#fff0e0\">$event_mei</td></tr>\n";
					$center .= "  <tr valign=\"top\" align=\"left\"><td bgcolor=\"#ffffff\"><div id=\"Hevent_title\">$event_title</div><div id=\"s1212\">$event_msg</div><div id=\"Hget\"><a href=\"pacchi.html?area=$in{'area'}&mode=area\" id=\"i_link\">詳しくは誌面をGET！！</a></div></td></tr>\n";
					$center .= "  </table>\n";
				}else{
				# ログインしていない場合
					$center .= "  <table cellpadding=3 cellspacing=1 border=0 bgcolor=\"#f89a36\" width=460 id=\"s1212\" class=\"center_msg\">\n";
					$center .= "  <tr valign=\"top\" align=\"left\"><td bgcolor=\"#fff0e0\">$event_mei</td></tr>\n";
					$center .= "  <tr valign=\"top\" align=\"left\"><td bgcolor=\"#ffffff\"><div id=\"Hevent_title\">$event_title</div><div id=\"s1212\"><a href=\"joinPC.html\" id=\"i_link\">もっと見る</a>☆（もっと見たい方は<a href=\"joinPC.html\" id=\"i_link\">会員登録</a>してね☆）</div><div id=\"Hget\"><a href=\"pacchi.html?area=$in{'area'}&mode=area\" id=\"i_link\">詳しくは誌面をGET！！</a></div></td></tr>\n";
					$center .= "  </table>\n";
				}
			}

			$center .= "  <table cellpadding=3 cellspacing=1 border=0 bgcolor=\"#f89a36\" width=460 id=\"s1212\" class=\"center_msg\">\n";
			$center .= "  <tr valign=\"top\" align=\"left\"><td bgcolor=\"#fff0e0\" width=60>住所</td><td bgcolor=\"#ffffff\">$address</td></tr>\n";
			$center .= "  <tr valign=\"top\" align=\"left\"><td bgcolor=\"#fff0e0\" width=60>営業時間</td><td bgcolor=\"#ffffff\">$opentime</td></tr>\n";
			$center .= "  <tr valign=\"top\" align=\"left\"><td bgcolor=\"#fff0e0\" width=60>定休日</td><td bgcolor=\"#ffffff\">$holiday</td></tr>\n";

			if ($parking ne ""){
				$center .= "  <tr valign=\"top\" align=\"left\"><td bgcolor=\"#fff0e0\" width=60>駐車場</td><td bgcolor=\"#ffffff\">$parking</td></tr>\n";
			}

			$center .= "  <tr valign=\"top\" align=\"left\"><td bgcolor=\"#fff0e0\" width=60>設置台数</td><td bgcolor=\"#ffffff\">$pachi$slot</td></tr>\n";

			# 自動リンク
			&auto_link($access);
			$center .= "  <tr valign=\"top\" align=\"left\"><td bgcolor=\"#fff0e0\" width=60>アクセス</td><td bgcolor=\"#ffffff\">$access</td></tr>\n";
			$center .= "  </table>\n";

			if ($photo2){
				$center .= "<div class=\"center_msg\"><img src=\"$imagedir/$photo2\"></div>\n";
			}
		}
	}
	&DBDisconnect;

$center .= '<div class="center_msg"><hr size=1 color="#F9A243"></div>';
$center .= "<div class=\"center_msg\"><a href=\"$script\" id=\"i_link\">エリア選択へ戻る</a>　<a href=\"$script?area=$in{'area'}&mode=all\" id=\"i_link\">一覧へ戻る</a></div><p>\n</div>";

}


#--------------#
#  自動リンク  #
#--------------#
sub auto_link {
	$_[0] =~ s/([^=^\"]|^)(https?\:[\w\.\~\-\/\?\&\=\@\;\#\:\%]+)/$1<a href=\"$2\" target=\"_blank\">$2<\/a>/g;
}


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

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