#!/usr/bin/perl

#┌─────────────────────────────────
#│ [ YY-BOARD ]
#│ read.cgi - 2007/09/17
#│ Copyright (c) KentWeb
#│ webmaster@kent-web.com
#│ http://www.kent-web.com/
#└─────────────────────────────────

# 外部ファイル取込
require './init.cgi';
require $jcode;

# メイン処理
&decode;
&axsCheck;
&read_log;

#-------------------------------------------------
#  記事個別閲覧
#-------------------------------------------------
sub read_log {
	# 記事を展開
	local($data,@tree);
	open(IN,"$logfile") || &error("Open Error: $logfile");
	my $top = <IN>;
	while (<IN>) {
		my ($no,$reno,$dat,$nam,$eml,$sub,$com,$url,$hos,$pw,$col,$ico) = split(/<>/);

		if ($in{'no'} == $no) { $data = $_; }
		if ($in{'no'} == $no || $in{'no'} == $reno || ($in{'top'} && ($in{'top'} == $no || $in{'top'} == $reno))) {
			push(@tree,$_);
		}
	}
	close(IN);

	if (!$data) { &error("不明なアクセスです"); }

	# ヘッダを出力
	if ($ImageView == 1) { &header('ImageUp'); }
	else { &header; }

	# タイトル部
	print qq|<div align="center">\n|;
	if ($banner1 ne "<!-- 上部 -->") { print "$banner1<p>\n"; }
	if ($t_img eq '') {
		print qq|<b style="color:$tCol; font-size:$tSize;">$title</b>\n|;
	} else {
		print qq|<img src="$t_img" width="$t_w" height="$t_h" alt="$title">\n|;
	}

	print <<EOM;
<hr width="90%">
[<a href="$bbscgi?list=$in{'list'}&page=$in{'page'}">リストに戻る</a>]
[<a href="$homepage" target="_top">ホームに戻る</a>]
EOM

	if (!$in{'list'}) { $in{'list'} = 'thread'; }
	if ($in{'list'} ne "thread") {
		print qq|[<a href="$bbscgi?mode=form&list=$in{'list'}">新規投稿</a>]\n|;
	}

	foreach ( 'thread', 'tree', 'topic' ) {
		next if ($in{'list'} eq $_);

		print qq|[<a href="$bbscgi?list=$_">$list_type{$_}</a>]\n|;
	}

	print <<EOM;
[<a href="$bbscgi?mode=howto&list=$in{'list'}">留意事項</a>]
[<a href="$bbscgi?mode=find&list=$in{'list'}">ワード検索</a>]
EOM

	# 過去ログのリンク部を表示
	if ($pastkey) {
		print qq|[<a href="$bbscgi?mode=past&list=$in{'list'}">過去ログ</a>]\n|;
	}

	print <<EOM;
[<a href="$admincgi">管理用</a>]
<hr width="90%"></div>
EOM

	# 記事一括のとき
	if ($mode eq "all") { &all_list; }

	# 閲覧記事
	my ($no,$reno,$dat,$nam,$eml,$sub,$com,$url,$hos,$pw,$col,$ico) = split(/<>/, $data);

	# 整形
	if ($eml) { $eml = qq|&nbsp;&lt;<a href="mailto:$eml">$eml</a>&gt;|; }
	if ($url) { $url = qq|<a href="$url" target="_blank">$url</a>|; }

	print <<EOM;
<blockquote>
<table>
<tr>
  <td>タイトル</td><td>： <b style="color:$subcol">$sub</b></td>
</tr>
<tr>
  <td>投稿日</td><td>： $dat</td>
</tr>
<tr>
  <td>投稿者</td><td>： <b>$nam</b> $eml</td>
</tr>
<tr>
  <td>参照先</td><td>： $url</td>
</tr>
</table>
<p>
EOM

	# 記事
	if ($iconMode) {
		print qq|<table><tr><td><img src="$imgurl/$ico"></td>\n|;
		print qq|<td width="8"></td>\n|;
		print qq|<td style="color:$col">$com</td></tr></table>\n|;
	} else {
		print qq|<div style="margin-left:22px; margin-top:6px">\n|;
		print qq|<span style="color:$col">$com</span>\n|;
	}

	print <<EOM;
<hr>
<b>- 関連ツリー</b>
<p>
EOM

	# 関連ツリー
	my $i = 0;
	local($oya,$resub);
	foreach (@tree) {
		$i++;
		my ($no,$reno,$dat,$nam,$eml,$sub,$com,$url,$hos,$pw,$col,$ico) = split(/<>/);

		if ($reno && $i == @tree) {
			print "&nbsp" x 5;
			print "└ ";
		} elsif ($reno && $i > 1) {
			print "&nbsp" x 5;
			print "├ ";
		}

		my $param;
		if ($reno) {
			$param = "&top=$reno";
		} else {
			$oya = $no;
			$resub = $sub;
		}

		# 親
		if (!$reno) {
			print qq|<a href="$readcgi?mode=all&list=tree&no=$no" title="ツリーを一括表\示">▼</a> |;
		}
		print qq|<a href="$readcgi?list=tree&no=$no$param">$sub</a> - <b>$nam</b> $dat <span style="color:$subcol">No.$no</span><br>\n|;
	}

	&reply_form;
}

#-------------------------------------------------
#  記事一括閲覧
#-------------------------------------------------
sub all_list {
	print <<EOM;
<blockquote>
EOM

	# 関連ツリー
	my $i = 0;
	local($oya,$resub,$list);
	foreach (@tree) {
		$i++;
		my ($no,$reno,$dat,$nam,$eml,$sub,$com,$url,$hos,$pw,$col,$ico) = split(/<>/);

		if ($reno && $i == @tree) { print "&nbsp;└ "; }
		elsif ($reno && $i > 1) { print "&nbsp;├ "; }

		my $param;
		if ($reno) {
			$param = "&top=$reno";
			$oya = $reno;
		} else {
			$oya = $no;
			$resub = $sub;
		}

		# ツリー表示
		print qq|<a href="$readcgi?mode=all&list=$in{'list'}&no=$oya#$no">$sub</a> - <b>$nam</b> $dat <span style="color:$subcol">No.$no</span><br>\n|;

		# e-mailリンク
		if ($eml) { $nam = "<a href=\"mailto:$eml\">$nam</a>"; }

		# 親記事
		$list .= qq|<p><a name="$no"></a>\n|;
		$list .= qq|<table width="90%" cellpadding="5" cellspacing="0" border="1" align="center">\n|;
		$list .= qq|<tr><td bgcolor="$tblcol" valign="top">\n|;
		$list .= qq|<b style="color:$subcol">$sub</b> |;
		$list .= qq|投稿者：<b>$nam</b> 投稿日：$dat |;
		$list .= qq|<span style="color:$subcol">No.$no</span> |;
		if ($url) {
			$list .= qq|<a href="$url" target="_blank"><img src="$imgurl/$home_gif" width="$home_w" height="$home_h" alt="home" border="0" align="top"></a>|;
		}
		$list .= qq|<br>\n|;

		if ($iconMode) {
			$list .= qq|<table><tr><td><img src="$imgurl/$ico"></td>\n|;
			$list .= qq|<td width="8"></td>\n|;
			$list .= qq|<td style="color:$col">$com</td></tr></table>\n|;
		} else {
			$list .= qq|<div style="margin-left:22px; margin-top:6px">\n|;
			$list .= qq|<span style="color:$col">$com</span></div>\n|;
		}

		$list .= qq|</td></tr></table></p>\n|;
	}

	print $list;

	&reply_form;
}

#-------------------------------------------------
#  返信専用フォーム
#-------------------------------------------------
sub reply_form {
	print <<EOM;
<p>
<hr>
<b>- 返信フォーム</b>
<p>
EOM

	# クッキー取得
	local($cnam,$ceml,$curl,$cpwd,$cico,$ccol) = &get_cookie;
	if (!$curl) { $curl = 'http://'; }

	# タイトル名
	if ($resub !~ /^Re\:/) { $resub = "Re: $resub"; }

	# 投稿フォーム
	print qq|<form method="post" action="$registcgi">\n|;
	print qq|<input type="hidden" name="mode" value="regist">\n|;
	print qq|<input type="hidden" name="page" value="$page">\n|;
	print qq|<input type="hidden" name="reno" value="$oya">\n|;
	print qq|<input type="hidden" name="list" value="$in{'list'}">\n|;

	# 投稿キー
	local($str_plain,$str_crypt);
	if ($regist_key) {
		require $regkeypl;

		($str_plain,$str_crypt) = &pcp_makekey;
	}

	# フォーム
	require $formpl;
	&form($cnam,$ceml,$curl,$cpwd,$cico,$ccol,$resub,'');
	print "</form>\n";

	# ユーザメンテフォーム（トピック表示の場合）
	if ($in{'list'} eq "topic") {
		print qq|<hr><b>- 記事修正＆削除フォーム</b>\n|;
		print qq|<form action="$registcgi" method="post">\n|;
		print qq|<input type="hidden" name="list" value="$in{'list'}">\n|;
		print qq|処理 <select name="mode" class="f">\n|;
		print qq|<option value="edit">修正\n|;
		print qq|<option value="dele">削除</select>\n|;
		print qq|No.<input type="text" name="no" size="3" class="f" style="ime-mode:inactive">\n|;
		print qq|暗証キー<input type="password" name="pwd" size="4" maxlength="8" class="f">\n|;
		print qq|<input type="submit" value="送信"></form>\n|;
	}

	print <<EOM;
</blockquote>
</body>
</html>
EOM
	exit;
}