#!/usr/local/bin/perl

$script = "event.html";

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

use Time::Local;

# 1ページの表示件数
$pageView = 3;

# NEWアイコン
$newicon = '<img src="images2/event/new.gif" alt="NEW" >';

# NEWアイコン表示する秒数(259200 = 72時間)
$newicon_time = 259200;

&decode;

$page  = $in{'page'};
#----------------#
# 書込Cookie準備 #
#----------------#

#$|=1;
#print "Content-Type: text/html\n\n";

$setcook1 = &setCookie("ID", $COOKIE{ID});
$center .= '<div id="event_body">';
	&count;

if ($mode eq ''){ &sel; }
if ($mode eq 'detail'){ &view; }
if ($mode eq 'list'){ &list; }

#------------#
# エリア選択 #
#------------#
sub sel {

#print "point1<br />";

	# 東京
	&DBConnect;
#	$year = $mon = $day = $max = "";
#	@res = @data = @test = @time = ();
#	$sth = $db->prepare("select * from event_tokyo order by ");
	$sth = $db->prepare("select year, mon, day from event_tokyo order by time desc limit 1");
	if(!$sth->execute){ &error ("接続失敗2"); }
	@res = $sth->fetchrow;
#	while(@res = $sth->fetchrow) {
#		foreach(@res){
#			jcode::convert(\$_, 'sjis');
#		}
#		push(@data,"$res[0]<>$res[1]<>$res[2]<>$res[3]<>");
#	}
#	&DBDisconnect;
#	foreach (@data){
#		@test = split(/<>/ ,$_);
#		$year = $test[1];
#		$mon = $test[2];
#		$mday = $test[3];
#		$unixtime = timelocal(0, 0, 0, $mday, $mon - 1, $year);
#		push(@time, $unixtime);
#	}
#	foreach(@time){
#		if ($_ > $max){ $max = $_; }
#	}
#	($sec,$min,$hour,$mday,$mon,$year,$wday,$dmy) = localtime($max);

	$unixtime = timelocal(0, 0, 0, $res[2], $res[1], $res[0]);
	($sec,$min,$hour,$mday,$mon,$year,$wday,$dmy) = localtime($unixtime);
#	$tokyo_date = sprintf("%04d.%02d.%02d",$year+1900,$mon+1,$mday);
	$tokyo_date = sprintf("%04d.%02d.%02d",$year+1900,$mon,$mday);

#print $tokyo_date;exit;

#print "point2<br />";

	# 京浜
#	&DBConnect;
#	$year = $mon = $day = $max = "";
#	@res = @data = @test = @time = ();
#	$sth = $db->prepare("select * from event_keihin");
	$sth = $db->prepare("select year, mon, day from event_keihin order by time desc limit 1");
	if(!$sth->execute){ &error ("接続失敗2"); }
	@res = $sth->fetchrow;
#	while(@res = $sth->fetchrow) {
#		foreach(@res){
#			jcode::convert(\$_, 'sjis');
#		}
#		push(@data,"$res[0]<>$res[1]<>$res[2]<>$res[3]<>");
#	}
#	&DBDisconnect;
#	foreach (@data){
#		@test = split(/<>/ ,$_);
#		$year = $test[1];
#		$mon = $test[2];
#		$mday = $test[3];
#		$unixtime = timelocal(0, 0, 0, $mday, $mon - 1, $year);
#		push(@time, $unixtime);
#	}
#
#	$max = 0;
#	foreach(@time){
#		if ($_ > $max){ $max = $_; }
#	}
#
#	($sec,$min,$hour,$mday,$mon,$year,$wday,$dmy) = localtime($max);

	$unixtime = timelocal(0, 0, 0, $res[2], $res[1], $res[0]);
	($sec,$min,$hour,$mday,$mon,$year,$wday,$dmy) = localtime($unixtime);
#	$keihin_date = sprintf("%04d.%02d.%02d",$year+1900,$mon+1,$mday);
	$keihin_date = sprintf("%04d.%02d.%02d",$year+1900,$mon,$mday);

#print "point3<br />";

	# 大阪
#	&DBConnect;
#	$year = $mon = $day = $max = "";
#	@res = @data = @test = @time = ();
#	$sth = $db->prepare("select * from event_osaka");
	$sth = $db->prepare("select year, mon, day from event_osaka order by time desc limit 1");
	if(!$sth->execute){ &error ("接続失敗2"); }
	@res = $sth->fetchrow;
#	while(@res = $sth->fetchrow) {
#		foreach(@res){
#			jcode::convert(\$_, 'sjis');
#		}
#		push(@data,"$res[0]<>$res[1]<>$res[2]<>$res[3]<>");
#	}
#	&DBDisconnect;
#	foreach (@data){
#		@test = split(/<>/ ,$_);
#		$year = $test[1];
#		$mon = $test[2];
#		$mday = $test[3];
#		$unixtime = timelocal(0, 0, 0, $mday, $mon - 1, $year);
#		push(@time, $unixtime);
#	}
#
#	$max = 0;
#	foreach(@time){
#		if ($_ > $max){ $max = $_; }
#	}
#
#	($sec,$min,$hour,$mday,$mon,$year,$wday,$dmy) = localtime($max);

	$unixtime = timelocal(0, 0, 0, $res[2], $res[1], $res[0]);
	($sec,$min,$hour,$mday,$mon,$year,$wday,$dmy) = localtime($unixtime);
#	$osaka_date = sprintf("%04d.%02d.%02d",$year+1900,$mon+1,$mday);
	$osaka_date = sprintf("%04d.%02d.%02d",$year+1900,$mon,$mday);

#print "point4<br />";

	# 札幌
#	&DBConnect;
#	$year = $mon = $day = $max = "";
#	@res = @data = @test = @time = ();
#	$sth = $db->prepare("select * from event_sapporo");
	$sth = $db->prepare("select year, mon, day from event_sapporo order by time desc limit 1");
	if(!$sth->execute){ &error ("接続失敗2"); }
	@res = $sth->fetchrow;
#	while(@res = $sth->fetchrow) {
#		foreach(@res){
#			jcode::convert(\$_, 'sjis');
#		}
#		push(@data,"$res[0]<>$res[1]<>$res[2]<>$res[3]<>");
#	}
#	&DBDisconnect;
#	foreach (@data){
#		@test = split(/<>/ ,$_);
#		$year = $test[1];
#		$mon = $test[2];
#		$mday = $test[3];
#		$unixtime = timelocal(0, 0, 0, $mday, $mon - 1, $year);
#		push(@time, $unixtime);
#	}
#
#	$max = 0;
#	foreach(@time){
#		if ($_ > $max){ $max = $_; }
#	}
#
#	($sec,$min,$hour,$mday,$mon,$year,$wday,$dmy) = localtime($max);

	$unixtime = timelocal(0, 0, 0, $res[2], $res[1], $res[0]);
	($sec,$min,$hour,$mday,$mon,$year,$wday,$dmy) = localtime($unixtime);
#	$sapporo_date = sprintf("%04d.%02d.%02d",$year+1900,$mon+1,$mday);
	$sapporo_date = sprintf("%04d.%02d.%02d",$year+1900,$mon,$mday);
	if ($sapporo_date eq '1970.01.01'){$sapporo_date = "";}

#print "point5<br />";
#exit;

	$center .= <<EOF;
<img src="images2/event/title01.jpg" width=458 height=109 alt="イベントリポート">

<div id="s1212" style="margin:10px 0px;">ぱっちGuu誌面にて、取材決定のマークがあるホールにお邪魔し、
ぱっちGuu応援団と現役レースクィーンのPGクィーンが皆様の応援にホールに登場！当日の激出し率はなんと98％!!
とにかく応援団とPGクィーンが現れるホールは興奮な出玉でお出迎え。そしてその興奮を身をもって体感していただきたい最高級のイベントです。</div>



<table border=0 cellpadding=0 cellspacing=0 width=458>
  <tr>
    <td>
      <div class="event_top_tokyo">東京エリアはこちら</div>
      <a href="$script?area=tokyo&mode=list"><img src="images2/event/tokyo01.jpg" width=225 height=147 alt="東京イベントリポート" border=0></a>
      <div id="s1212" style="margin-bottom:10px;">最新記事：$tokyo_date</div>
    </td>
    <td>
      <div class="event_top_keihin">京浜エリアはこちら</div>
      <a href="$script?area=keihin&mode=list"><img src="images2/event/keihin01.jpg" width=225 height=147 alt="京浜イベントリポート" border=0></a>
      <div id="s1212" style="margin-bottom:10px;">最新記事：$keihin_date</div>
    </td>
  </tr>
  <tr>
    <td>
      <div class="event_top_osaka">大阪・阪神エリアはこちら</div>
      <a href="$script?area=osaka&mode=list"><img src="images2/event/osaka01.jpg" width=225 height=147 alt="大阪・阪神イベントリポート" border=0></a>
      <div id="s1212" style="margin-bottom:10px;">最新記事：$osaka_date</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 list {

	# ページ
	if ($in{'page'} eq ""){ $in{'page'} = 1; }
	$page = $in{'page'};
	$page = int($page - 1) * $pageView;


	# エリア別設定
	if ($in{'area'} eq 'tokyo'){
		$imgdir = 'images2/event/photo';
		$areatext = '東京';
		$link = "<a href=\"$script?area=keihin&mode=list\" id=\"event_arealink_keihin\">京浜エリア＞</a><br><a href=\"$script?area=osaka&mode=list\" id=\"event_arealink_osaka\">大阪・阪神エリア＞</a>";
		$cateimg = '<img src="images2/event/tokyo01.jpg" width=225 height=147 alt="東京イベントリポート" border=0>';
	}elsif ($in{'area'} eq 'keihin'){
		$imgdir = 'images2/event/photo2';
		$areatext = '京浜';
		$link = "<a href=\"$script?area=tokyo&mode=list\" id=\"event_arealink_tokyo\">東京エリア＞</a><br><a href=\"$script?area=osaka&mode=list\" id=\"event_arealink_osaka\">大阪・阪神エリア＞</a>";
		$cateimg = '<img src="images2/event/keihin01.jpg" width=225 height=147 alt="京浜イベントリポート" border=0>';
	}elsif ($in{'area'} eq 'osaka'){
		$imgdir = 'images2/event/photo3';
		$areatext = '大阪・阪神';
		$link = "<a href=\"$script?area=tokyo&mode=list\" id=\"event_arealink_tokyo\">東京エリア＞</a><br><a href=\"$script?area=keihin&mode=list\" id=\"event_arealink_keihin\">京浜エリア＞</a>";
		$cateimg = '<img src="images2/event/osaka01.jpg" width=225 height=147 alt="大阪・阪神イベントリポート" border=0>';
	}

	# 日時のフォーマット
	@week = ('日','月','火','水','木','金','土');


	# ページ送り
	&DBConnect;
	@res = @lines = ();
	$sth = $db->prepare("SELECT DISTINCT year*10000+mon*100+day AS GaP FROM event_$in{'area'} ORDER BY GaP DESC,id ASC limit 0, 50");
	if(!$sth->execute){ &error ("接続失敗2"); }
	while(@res = $sth->fetchrow) {
		push(@lines,$res[0]);
	}
	&DBDisconnect;

	$allkiji = $#lines + 1;

	# 総ページ数
	$uc = ($allkiji % $pageView);
	if ($uc == 0){
		$user_cnt = int($allkiji / $pageView);
	}else{
		$user_cnt = int(($allkiji / $pageView) + 1);
	}

	$page_now = $in{'page'};
	$last_page = $user_cnt;


	# 前後に表示する数
	$VNo = 2;

	$page2 = $pageView;


	$pager .= "<div class=\"event_line1\"><table border=0 cellpadding=0 cellspacing=0 width=458 id=\"s1212\"><tr><td>全$user_cnt頁中 / $page_now頁目表\示 ";

	if ($in{'page'} eq "") { $in{'page'} = 1; }

	$start = $in{'page'} - $VNo;
	if ($start < 1) { $start = 1; }
	elsif ($start == 1) { ; }
	elsif ($start > 2) { $pager .= "[ <a href=\"$script?mode=list&area=$in{'area'}\" id=\"i_link\">1</a> ] .."; }
	else { $pager .= "[ <a href=\"$script?mode=list&area=$in{'area'}\" title=\"最初のページ\" id=\"i_link\">1</a> ]"; }

	$end = $in{'page'} + $VNo;
	if ($end >= $last_page) { $end = $last_page; }
	elsif ($end < $last_page - 1) { $last_link = " .. [ <a href=\"$script?page=$last_page&mode=list&area=$in{'area'}\" id=\"i_link\">$last_page</a> ]\n"; }
	else{ $last_link = " [ <a href=\"$script?page=$last_page&mode=list&area=$in{'area'}\" title=\"最後のページ\" id=\"i_link\">$last_page</a> ]\n"; }

	$n = $vp = $fl = 0;
	foreach $vp ($start .. $end) {
		$ffv = ($vp - 1) * $page2;
		if ($vp == $in{'page'}) {
			$n = 1; $page_now = $vp;
			if ($vp == 1){
				$pager .= "[ <b>$vp</b> ] ";
			}elsif($vp == 2){
				$Back_link = "[ <a href=\"$script?page=" .($vp-1). "&mode=list&area=$in{'area'}\" id=\"i_link\">前の$pageView件</a> ";
				if ($end == 3){ $pager .= " <b>$vp</b> "; }
				else{ $pager .= " <b>$vp</b> |"; }
			}elsif($last_page == $vp){
				$Back_link = "[ <a href=\"$script?page=" .($vp-1). "&mode=list&area=$in{'area'}\" id=\"i_link\">前の$pageView件</a> ";
				$pager .= " [ <b>$vp</b> ]";
			}else{
				$Back_link = "[ <a href=\"$script?page=" .($vp-1). "&mode=list&area=$in{'area'}\" id=\"i_link\">前の$pageView件</a> ";
				$pager .= "| <b>$vp</b> ";
			}
		}elsif ($vp == 1) {
			$pager .= "[ <a href=\"$script?mode=list&area=$in{'area'}\" title=\"最初のページ\" id=\"i_link\">1</a> ]";
		}else{
			if ($n) {
				$n = 0;
				$Next_link = " <a href=\"$script?page=$vp&mode=list&area=$in{'area'}\" id=\"i_link\">次の$pageView件</a> ]";
				$next = $vp;
			}
			else {
				$next = $vp;
			}

			if (($start > 1) && ($start == $vp) || ($fl == 0) && !($last_page == $vp)){
				$pager .= " <a href=\"$script?page=$vp&mode=list&area=$in{'area'}\" id=\"i_link\">$next</a> ";
				$fl++;
			}elsif ($last_page == $vp){
				$pager .= " [ <a href=\"$script?page=$vp&mode=list&area=$in{'area'}\" id=\"i_link\">$next</a> ]";
			}else{
				$pager .= "| <a href=\"$script?page=$vp&mode=list&area=$in{'area'}\" id=\"i_link\">$next</a> ";
			}
		}
	}

	$pager .= " $last_link</td>";
	$pager .= "<td align=\"right\">";

	# 次の何件
	if ($last_page >= 2){
		if (($Back_link ne "") && ($Next_link)){ $pager .= "$Back_link | $Next_link "; }
		elsif($Back_link eq ""){ $pager .= "[ $Next_link"; }
		elsif($Next_link eq ""){ $pager .= "$Back_link ]"; }
	}
	$pager .= "</td>";
	$pager .= "</table></div>\n";

	# ページ送りここまで







	# 各エリア紹介文みたいなもの
	$center .= <<EOF;
<script type="text/javascript">
var scrj = 1;
function softScrollBack() {
   if(navigator.appName == "Microsoft Internet Explorer" && document.compatMode == "CSS1Compat") {
      var scdist = document.body.parentNode.scrollTop;
   } else {
      var scdist = document.body.scrollTop;
   }
   if(scrj<50 && scdist) {
      scdist = (scdist>2) ? Math.ceil(scdist*.2) : 1;
      scrj++;
      scrollBy(0,-scdist);
      setTimeout("softScrollBack()",20);
   } else {
      scrollTo(0,0);
      scrj = 1;
   }
}
// -->
</script>
<table border=0 cellpadding=0 cellspacing=0 width=458>
  <tr>
    <td rowspan=2 width=225>$cateimg</td>
    <td valign="top">
      <div id="event_areatext_title_$in{'area'}">イベントリポート<br>$areatextエリアリスト</div>

    </td>
  </tr>
  <tr valign="bottom">
    <td><div class="event_areatext">$link</div></td>
  </tr>
</table>

EOF
#      <div class="event_areatext">ここにテキストが入ります。ここにテキストが入ります。ここにテキストが入ります。ここにテキストが入ります。</div>


	$center .= "<div style=\"margin-top:8px;\">$pager</div>\n";


	# yyyymmdd形式で上位pageview日間取得
	&DBConnect;
	@res = @lines = ();
	$sth = $db->prepare("SELECT DISTINCT year*10000+mon*100+day AS GaP FROM event_$in{'area'} ORDER BY GaP DESC LIMIT $page,$pageView");
	if(!$sth->execute){ &error ("接続失敗2"); }
	while(@res = $sth->fetchrow) {
		push(@lines,$res[0]);
	}
	&DBDisconnect;


	# サムネイル表示スタート。取得したyyyymmdd繰り返し。pageview回数だね。
	foreach(@lines){

		# 年月日分割
		$year_d = substr($_, 0, 4);
		$mon_d = substr($_, 4, 2);
		$day_d = substr($_, 6, 2);

		# 曜日の取得（UNIXTIMEにして、また戻す。）
		$unixtime = timelocal(0, 0, 0, $day_d, $mon_d - 1, $year_d);
		($a,$a,$a,$a,$a,$a,$wday) = localtime($unixtime);

		$newicon_view = "";
		$nowtime = time;
		if (($unixtime+$newicon_time) > $nowtime){
			$newicon_view = $newicon;
		}

		# 日付のバー表示
		$center .= "<div style=\"margin-top:10px;border:0px solid #ff0000;width:458px;height:auto;clear: both;\"><table border=0 cellpadding=0 cellspacing=0 width=458 height=29 background=\"$imgdir/top_bar.gif\"><tr><td align=left><span class=\"event_day\">$year_d $mon_d/$day_d($week[$wday])</span></td></table>\n";


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




		# 上位pageview日間の記事をプレビュー表示。yyyymmdd形式で同じものを取得
		&DBConnect;
		@res = ();
		$loopcount = 0;

		$sth = $db->prepare("SELECT * FROM event_$in{'area'} where year*10000+mon*100+day = \"$_\" order by id asc");
		if(!$sth->execute){ &error ("接続失敗3"); }
		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++;
			}


			$thm_img = "";
			if ($res[36]){
				$thm_img = "<tr><td bgcolor=\"#fff0e0\" height=81 valign=\"bottom\"><a href=\"$script?area=$in{'area'}&mode=detail&q=$res[0]&page=$in{'page'}\"><img src=\"$imgdir/$res[36]\" border=0></a>$newicon_view</td></tr>";
			}else{
				$thm_img = "<tr><td bgcolor=\"#fff0e0\" height=81 valign=\"bottom\"><a href=\"$script?area=$in{'area'}&mode=detail&q=$res[0]&page=$in{'page'}\"><img src=\"images2/event/noimage.jpg\" border=0 width=99 height=75></a>$newicon_view</td></tr>";
			}


			# 文字数を数えて22文字以上は表示しない
			$str = $res[5];
			jcode::convert(\$str, 'sjis');
			for ($i = 0; $i < 44; $i++) {
				$c = substr($str, $i, 1);
				if ($c =~ /[\x80-\xff]/) {
					$c = substr($str, $i++, 2);
				}
			}

			if (length($res[5]) > $i) {
				$res[5] = substr($res[5],0,$i) . "...";
			}


			$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?area=$in{'area'}&mode=detail&q=$res[0]&page=$in{'page'}" id="hall_link"><div style="font-size:12px;">$res[6]</a></div></td></tr>
  $thm_img
  <tr><td bgcolor="#fff7ed" valign="top" height=36><div style="font-size:12px;">$res[5]</div></td></tr>
</table>
</td>
EOF

		}
		&DBDisconnect;

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

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

		$center .= '<div class="event_gototop"><a href="#" onclick="softScrollBack();return false;"><img src="images2/gototop.gif" width=106 height=12 alt="ページのトップへ戻る" border=0></a></div>' . "\n";
	}
	# サムネイルここまで





	# ページ送り表示
	$center .= "<br>$pager";






	$center .= <<EOF;
<div id="s1212" class="event_link_bottom"><a href="$script" id="i_link">イベントリポート</a> ≫ $areatextエリア一覧</div>

EOF


	$center .= "</div>\n";

&html;

}



#------#
# 詳細 #
#------#
sub view {

	if ($in{'area'} eq 'tokyo'){
		$imgdir = 'images2/event/photo';
		$areatext = '東京';
		$cateimg = '<img src="images2/event/tokyo01.jpg" width=225 height=147 alt="東京イベントリポート" border=0>';
	}elsif ($in{'area'} eq 'keihin'){
		$imgdir = 'images2/event/photo2';
		$areatext = '京浜';
		$cateimg = '<img src="images2/event/keihin01.jpg" width=225 height=147 alt="京浜イベントリポート" border=0>';
	}elsif ($in{'area'} eq 'osaka'){
		$imgdir = 'images2/event/photo3';
		$areatext = '大阪・阪神';
		$cateimg = '<img src="images2/event/osaka01.jpg" width=225 height=147 alt="大阪・阪神イベントリポート" border=0>';
	}elsif ($in{'area'} eq 'sapporo'){
		$imgdir = 'images2/event/photo4';
		$areatext = '札幌・道央';
		$cateimg = '<img src="images2/event/sapporo01.jpg" width=225 height=147 alt="札幌・道央イベントリポート" border=0>';
	}


	&DBConnect;
	@res = @lines = ();
	$sth = $db->prepare("select * from event_$in{'area'} where time = $in{'q'}");
	if(!$sth->execute){ &error ("接続失敗2"); }
	while(@res = $sth->fetchrow) {
		foreach(@res){
			jcode::convert(\$_, 'sjis');
		}
		push(@lines,"$res[0]<>$res[1]<>$res[2]<>$res[3]<>$res[4]<>$res[5]<>$res[6]<>$res[7]<>$res[8]<>$res[9]<>$res[10]<>$res[11]<>$res[12]<>$res[13]<>$res[14]<>$res[15]<>$res[16]<>$res[17]<>$res[18]<>$res[19]<>$res[20]<>$res[21]<>$res[22]<>$res[23]<>$res[24]<>$res[25]<>$res[26]<>$res[27]<>$res[28]<>$res[29]<>$res[30]<>$res[31]<>$res[32]<>$res[33]<>$res[34]<>$res[35]<>");
	}
	&DBDisconnect;


	$photo_view1 = $photo_view2 = $photo_view3 = $photo_view4 = "";
	($t,$year,$mon,$day,$week,$eve_tit,$hall_name,$P1,$P1_count,$P2,$P2_count,$P3,$P3_count,$S1,$S1_count,$S2,$S2_count,$S3,$S3_count,$PG_comment,$photo1,$w1,$h1,$photo2,$w2,$h2,$photo3,$w3,$h3,$photo4,$w4,$h4,$vid,$koukan_P,$koukan_S,$PGqueen) = split(/<>/, $lines[0]);

	if ($photo1 ne ""){
		$photo_view1 = "<img src=\"$imgdir/$photo1\" align=\"left\" width=$w1 height=$h1 alt=\"\" class=\"event_photo_l\">";
	}
	if ($photo2 ne ""){
		$photo_view2 = "<img src=\"$imgdir/$photo2\" align=\"left\" width=$w2 height=$h2 alt=\"\" class=\"event_photo_r\">";
	}
	if ($photo3 ne ""){
		$photo_view3 = "<img src=\"$imgdir/$photo3\" align=\"left\" width=$w3 height=$h3 alt=\"\" class=\"event_photo_l\">";
	}
	if ($photo4 ne ""){
		$photo_view4 = "<img src=\"$imgdir/$photo4\" align=\"left\" width=$w4 height=$h4 alt=\"\" class=\"event_photo_r\">";
	}

	if (($P1 == "") & ($P1_count == "") & ($P2 == "") & ($P2_count == "") & ($P3 == "") & ($P3_count == "") & ($S1 == "") & ($S1_count == "") & ($S2 == "") & ($S2_count == "") & ($S3 == "") & ($S3_count == "")){
		$justwait = "只今データー処理中!!しばらくお待ちください!!";
	}else{
		$justwait = "";
	}


		$center .= <<EOF;


<h1 id="event_detail">イベントリポート詳細</h1>


<table border=0 cellpadding=0 cellspacing=0 width=458 height=29 background="$imgdir/top_bar.gif"><tr><td align=left><span class="event_day">$year $mon/$day($week)</span></td><td align=right><div class="event_hall">$hall_name</div></td></table>

EOF

if (($w1 <= 150) && ($w2 <= 150) && ($w3 <= 150)){
	$center .= <<EOF;
<table border=0 cellpadding=0 cellspacing=0 width=458 style="margin-top: 4px;">
  <tr>
    <td width=154 align="left"><img src="$imgdir/$photo1" width=$w1 height=$h1 alt=""></td>
    <td width=154 align="left"><img src="$imgdir/$photo2" width=$w2 height=$h2 alt=""></td>
    <td width=150 align="left"><img src="$imgdir/$photo3" width=$w3 height=$h3 alt=""></td>
  </tr>
</table>
EOF
}else{
	$center .= <<EOF;
<table border=0 cellpadding=0 cellspacing=0 width=458>
  <tr valign="top">
    <td>$photo_view1</td>
    <td>$photo_view2</td>
  </tr>
  <tr valign="top">
    <td>$photo_view3</td>
    <td>$photo_view4</td>
  </tr>
</table>
EOF
}

# イベント名表示
	$center .= <<EOF;
<div class="event_de_title"><img src="$imgdir/event.gif" width=126 height=31 alt="イベント名"></div>
<h2 class="event_title_text">$eve_tit</h2>
EOF

# 内容表示
if ($PG_comment ne ""){
		$center .= <<EOF;
<div class="event_de_title"><img src="$imgdir/naiyou.gif" width=88 height=31 alt="イベント内容"></div>
<div class="event_pgq_text">$PG_comment</div>
EOF
}

# PGQ表示（札幌以外）
if ($in{'area'} ne 'sapporo'){
	if ($PGqueen ne ""){
		$center .= <<EOF;
<div class="event_pgq_title"><img src="$imgdir/PGqueen.gif" width=140 height=31 alt="PGクイーン"></div>
<div class="event_pgq_text">$PGqueen</div>
EOF
	}
}

# 出玉表示（札幌以外）
if ($in{'area'} ne 'sapporo'){
	$center .= <<EOF;
<div class="event_de_title"><img src="$imgdir/dedama.gif" width=88 height=31 alt="出玉"></div>

EOF


	if ($justwait ne ""){
		$center .= "<pre class=\"event_de_text\">$justwait</pre>";
	}else{
		if (($P1 ne "") & ($S1 ne "")){
			$center .= "<table border=0 width=458 cellspacing=0 cellpadding=0>\n";
			$center .= "<tr valign=\"top\"><td>\n";
		}


		if ($P1 ne ""){
			$center .= '<table cellpadding=3 cellspacing=1 border=0 bgcolor="#f89a36" id="s1212" width=225>'."\n";
			$center .= "<tr><td colspan=2 bgcolor=\"#fff0e0\">パチンコ</td></tr>\n";
			$center .= "<tr><td rowspan=2 bgcolor=\"#fff0e0\" width=29>1位</td><td bgcolor=\"#ffffff\" width=196>$P1</td></tr>\n";
			$center .= "<tr><td bgcolor=\"#ffffff\" width=196>$P1_count P</td></tr>\n";

			if ($P2 ne ""){
				$center .= "<tr><td rowspan=2 bgcolor=\"#fff0e0\" width=29>2位</td><td bgcolor=\"#ffffff\" width=196>$P2</td></tr>\n";
				$center .= "<tr><td bgcolor=\"#ffffff\" width=196>$P2_count P</td></tr>\n";
			}
			if ($P3 ne ""){
				$center .= "<tr><td rowspan=2 bgcolor=\"#fff0e0\" width=29>3位</td><td bgcolor=\"#ffffff\" width=196>$P3</td></tr>\n";
				$center .= "<tr><td bgcolor=\"#ffffff\" width=196>$P3_count P</td></tr>\n";
			}
			$center .= "</table>\n";

			if ($koukan_P ne ""){
				$center .= '<table cellpadding=3 cellspacing=1 border=0 bgcolor="#f89a36" id="s1212" width=225 style="margin-top:8px;">';
				$center .= "<tr><td bgcolor=\"#fff0e0\" width=50>交換率</td><td bgcolor=\"#ffffff\" width=175>$koukan_P P</td>";
				$center .= "</table>\n";
			}
		}

		if (($P1 ne "") & ($S1 ne "")){
			$center .= "</td>\n";
			$center .= "<td>\n";
		}


		if ($S1 ne ""){
			$center .= '<table cellpadding=3 cellspacing=1 border=0 bgcolor="#f89a36" id="s1212" width=225>'."\n";
			$center .= "<tr><td colspan=2 bgcolor=\"#fff0e0\">スロット</td></tr>\n";
			$center .= "<tr><td rowspan=2 bgcolor=\"#fff0e0\" width=29>1位</td><td bgcolor=\"#ffffff\" width=196>$S1</td></tr>\n";
			$center .= "<tr><td bgcolor=\"#ffffff\" width=196>$S1_count M</td></tr>\n";

			if ($S2 ne ""){
				$center .= "<tr><td rowspan=2 bgcolor=\"#fff0e0\" width=29>2位</td><td bgcolor=\"#ffffff\" width=196>$S2</td></tr>\n";
				$center .= "<tr><td bgcolor=\"#ffffff\" width=196>$S2_count M</td></tr>\n";
			}
			if ($S3 ne ""){
				$center .= "<tr><td rowspan=2 bgcolor=\"#fff0e0\" width=29>3位</td><td bgcolor=\"#ffffff\" width=196>$S3</td></tr>\n";
				$center .= "<tr><td bgcolor=\"#ffffff\" width=196>$S3_count M</td></tr>\n";
			}
			$center .= "</table>\n";

			if ($koukan_S ne ""){
				$center .= '<table cellpadding=3 cellspacing=1 border=0 bgcolor="#f89a36" id="s1212" width=225 style="margin-top:8px;">';
				$center .= "<tr><td bgcolor=\"#fff0e0\" width=50>交換率</td><td bgcolor=\"#ffffff\" width=175>$koukan_S M</td>";
				$center .= "</table>\n";
			}


		}


		if (($P1 ne "") & ($S1 ne "")){
			$center .= "</td></tr>\n";
			$center .= "</table>\n";
		}
	}
}
		$center .= <<EOF;

<div class="event_line1" style="text-align: right;margin-top:20px;">[ <a href="$script?area=$in{'area'}&page=$in{'page'}&mode=list" id="i_link">戻る</a> ]</div>
<div id="s1212" class="event_link_bottom"><a href="$script" id="i_link">イベントリポート</a> ≫ <a href="$script?area=$in{'area'}&mode=list" id="i_link">$areatextエリア一覧</a> ≫ イベントリポート詳細</div>

</div>
<!-- ここまで -->
EOF

	&html;

}

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

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