#!/usr/local/bin/perl

$script = "yudo.html";

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

# バックナンバー表示数
$bncount = 20;

&decode;



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

if ($in{'No'} eq "0"){ &all;}
else{ &page;}

$setcook1 = &setCookie("ID", $COOKIE{ID});
&html;



sub page{
&count;
	&DBConnect;

	$nowNo = $in{'No'};
	if ($nowNo eq ""){
		@res = ();
		$sth = $db->prepare("select max(No) from yudo where flag = \"on\"");
		if(!$sth->execute){ &error ("error code : E-01"); }
		$nowNo = $sth->fetchrow;
	}

	$sth = $db->prepare("select No,title,msg from yudo where No = \"$nowNo\" and flag = \"on\"");
	if(!$sth->execute){ &error ("error code : E-01"); }
	while(@res = $sth->fetchrow) {
		foreach(@res){
			jcode::convert(\$_, 'sjis');
			$_ =~ s/"/"/g;
		}
		$No = $res[0];
		$title = $res[1];
		$msg = $res[2];
	}
	&DBDisconnect;




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

  <div class="center_msg"><img src="images2/yudo/yudo-title.jpg" width="460" height="103" alt="遊道 -ゆうどう-"</div>

  <div style="margin-top:15px;margin-bottom:13px;"><span style="color:#00B034;font-size:12px;">第$No回</span> <span style="color:#E8641B;font-size:14px;">$title</span></div>

  <div class="center_msg" id="s1212">$msg</div>


  <div style="margin-top:10px;margin-bottom:13px;"><img src="images2/yudo/profile.gif" width="460" height="26" alt="プロフィール　岡久 泰久　パチンコ産業コンサルタント"></div>

  <div class="center_msg" id="s1212"><a href="$script?No=0&p=$p" id=\"i_link\">バックナンバーはこちらから</a>
</div>
  <div class="center_msg" id="s1212"><br></div>
</div>
EOF
}


#----------------------#
# バックナンバーページ #
#----------------------#
sub all {

	&DBConnect;

	$nowNo = $in{'No'};
	if ($nowNo eq ""){
		@res = ();
		$sth = $db->prepare("select max(No) from yudo where flag = \"on\"");
		if(!$sth->execute){ &error ("error code : E-01"); }
		$nowNo = $sth->fetchrow;
	}

	$sth = $db->prepare("select No,title,msg from yudo where No = \"$nowNo\" and flag = \"on\"");
	if(!$sth->execute){ &error ("error code : E-01"); }
	while(@res = $sth->fetchrow) {
		foreach(@res){
			jcode::convert(\$_, 'sjis');
			$_ =~ s/&quot;/"/g;
		}
		$No = $res[0];
		$title = $res[1];
		$msg = $res[2];
	}
	&DBDisconnect;




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

  <div class="center_msg"><img src="images2/yudo/yudo-title.jpg" width="460" height="103" alt="遊道 -ゆうどう-"></div>
  <div class="backnumber_list" id="s1212"><b>バックナンバー　一覧</b></div>

EOF

	$start = ($p - 1) * $bncount;



	&DBConnect;

	$sth = $db->prepare("select No from yudo where flag = \"on\"");
	$allcount = eval{ $rows = $sth->execute };

	$sth = $db->prepare("select No,title from yudo where flag = \"on\" order by No DESC LIMIT $start,$bncount");
	if(!$sth->execute){ &error ("error code : E-05"); }

	$i = 0;
	while(@res = $sth->fetchrow) {
		foreach(@res){
			jcode::convert(\$_, 'sjis');
			$_ =~ s/&quot;/"/g;
		}
		$i++;
		$No = $res[0];
		$title2 = $res[1];
		$center .= "<div class=\"backnumber_list\"><a href=\"$script?No=$No&p=$p\" id=\"i_link\">第$No回 $title2</a></div>\n";
	}
	&DBDisconnect;


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

	if ($p != 1){
		$back = $p - 1;
		$center .= "<div class=\"center_msg\"><a href=\"$script?No=$nowNo&p=$back\" id=\"i_link\">新しい記事</a></div>";
	}

	if ($p < $user_cnt){
		$next = $p + 1;
		$center .= "<a href=\"$script?No=$nowNo&p=$next\" id=\"i_link\">過去の記事</a>";

	}


	$center .= <<EOF;

  <div class="center_msg" id="s1212"><a href="javascript:history.back();" id="i_link">戻る</a></div>
</div>
EOF



}

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

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