#!/usr/local/bin/perl

$script = "pacchi.html";

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

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

&decode;

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




if ($mode eq "area"){ &area; }



&count;

$center .= <<EOF;
<div id="center_main">
<div class="center_msg"><img src="images2/pacchi/title01.jpg" width=458 height=109 alt="今月のぱっちGuu"></div>

  <div class="center_msg" id="s1212">
    ぱっちGuuは、ホール様のイベント情報をお伝えするイベント情報誌です。
    皆様が欲しい情報をぱっちGuuスタッフがホール様に突撃取材し、
    皆様のお役に立てる情報を満載しております。 遊技によく行く方、たまに行く方、ほとんど行かない方とその頻度は様々ですが、やっぱり行ったからには満足感を得たいですよね。 本誌は遊技頻度に関わらず、皆様が気軽に、安心してホールに足を運べる事を念頭に置きながら、より有意義な情報を皆様に提供していきます。
  </div>

  <table border=0 cellpadding=0 cellspacing=0 width=460 class="center_msg">
    <tr>
      <td width=230 height=130 valign="top" align="left"><div class="geki_text" style="margin-bottom:3px; color:#00AC00;">東京エリアはこちらから</div><a href="$script?area=tokyo&mode=area"><img src="images2/pacchi/pacchi_tokyo.gif" width=224 height=113 alt="今月のぱっちGuu 東京エリア" border=0></a></td>
      <td width=230 height=130 valign="top" align="left"><div class="geki_text" style="margin-bottom:3px; color:#247BE2">京浜エリアはこちらから</div><a href="$script?area=keihin&mode=area"><img src="images2/pacchi/pacchi_keihin.gif" width=224 height=113 alt="今月のぱっちGuu 京浜エリア" border=0></a></td>
    </tr>
    <tr>
      <td width=230 height=130 valign="top" align="left"><div class="geki_text" style="margin-bottom:3px; color:#FF0722">大阪・阪神エリアはこちらから</div><a href="$script?area=osaka&mode=area"><img src="images2/pacchi/pacchi_osaka.gif" width=224 height=113 alt="今月のぱっちGuu 大阪・阪神エリア" border=0></a></td>
<!--      
<td width=230 height=130 valign="top" align="left"><div class="geki_text" style="margin-bottom:3px; color:#A26EDF">PG<ピー・ジー>はこちら</div><a href="$script?area=sapporo&mode=area"><img src="images2/pacchi/pacchi_sapporo.gif" width=224 height=113 alt="PG<ピー・ジー>はこちら" border=0></a></td>
-->    

</tr>
</table>

  <div class="center_msg"><hr size=1></div>
  <img src="images2/event/QR.gif" width=456 height=104 alt="">

EOF

&html;


sub area{

	if ($in{'area'} eq "tokyo"){
		$area = "東京";

	}elsif($in{'area'} eq "keihin"){
		$area = "京浜";

	}elsif($in{'area'} eq "osaka"){
		$area = "大阪・阪神";

	}elsif($in{'area'} eq "sapporo"){
		$area = "札幌・道央";
	}

	&DBConnect;

	$sth = $db->prepare("select * from pacchi where area = \"$in{'area'}\"");
	if(!$sth->execute){ &error ("今月のぱっちGuu出力時、エラー<br>エラーコード：PA02"); }
	while(@res = $sth->fetchrow) {
		foreach(@res){
			jcode::convert(\$_, 'sjis');
			$_ =~ s/&quot;/"/g;
		}


$center .= <<EOF;
<div id="center_main">

<img src="images2/pacchi/title_$in{'area'}.jpg" width=458 height=109 alt="" style="margin-bottom:12px;">

<table border=0 cellpadding=0 cellspacing=0 width=460 id="s1212">
  <tr valign="top">
    <td>
      <img src="images2/pacchi/photo/$res[1]" width=$res[2] height=$res[3] alt="$areaエリア最新版！" style="margin:0 8px 8px 0;">

      <table border=0 cellpadding=3 cellspacing=1 bgcolor="#f89a36" id="s1212" width=187>
        <tr bgcolor="#ffffff">
          <td>発行日</td><td>$res[4]</td>
        </tr>
        <tr bgcolor="#ffffff">
          <td>価格</td><td>無料</td>
        </tr>
        <tr bgcolor="#ffffff">
          <td>発行部数</td><td>$res[5]</td>
        </tr>
        <tr bgcolor="#ffffff">
          <td>創刊日</td><td>$res[6]</td>
        </tr>
      </table>
    </td>
    <td>
      $res[7]
    </td>

  </tr>
</table>

<br>

<div class="center_msg"><img src="images2/pacchi/rack_$in{'area'}.gif" width=106 height=23 alt=""></div>

<div class="center_msg" id="s1212">$res[8]</div>



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



<table cellpadding="10" cellspacing="1" border="0" bgcolor="#f89a36" id="s1212" width=460>
  <tr bgcolor="#fff0e0"><td colspan="2" align="center">ぱっちGuuへのご意見・ご感想、お問い合わせはこちらから</td></tr>
  <tr bgcolor="#ffffff">
    <td align="center"><img src="images2/icon_mail.gif" width=12 height=12 alt="メール" style="vertical-align:middle"> <a href="mailto:info\@p-guu.net"><font color="#0b3ec9" id="p_toiawase">info\@p-guu.net</font></a></td>
    <td align="center"><img src="images2/icon_tel.gif" width=12 height=12 alt="電話" style="vertical-align:middle"> 03-5768-1811（代表\）</td>
  </tr>
</table>

EOF

	}
	&DBDisconnect;

&html;
}


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

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