#┌─────────────────────────────────
#│ e-PAD (ptel.pl) - 2004/03/04
#│ Copyright (c) KentWeb
#│ webmaster@kent-web.com
#│ http://www.kent-web.com/
#└─────────────────────────────────

#-------------------------------------------------
#  記事表示
#-------------------------------------------------
sub html {
	local($no,$dat,$nam,$eml,$sub,$com,$url,$hos,$pw,$tim,$typ,$next,$back,$date);

	# 出力サイズ初期化
	$size = 0;

	# 投稿フォーム
	if ($in{'job'} eq "form") {

		local($resub,$recom) = ('','');

		# レス
		if ($in{'no'}) {

			open(IN,"$logfile") || &error("Open Error: $logfile");
			while (<IN>) {
				($no,$date,$nam,$eml,$sub,$com) = split(/<>/);
				last if ($in{'no'} == $no);
			}
			close(IN);

			$sub   =~ s/^Re:[\[\]\d\s]+//g;
			$resub = "Re:$sub";
			$recom = "&gt; $com";
			$recom =~ s/<br>/\n&gt; /ig;

			# 絵文字復元
			$resub =~ s/&lt;/</g;
			$resub =~ s/&gt;/>/g;
			$resub = &i2i($resub);
			$resub = &j2j($resub);
			$recom = &i2i($recom);
			$recom = &j2j($recom);
		}

		&data("<form action=\"$script\" method=\"$method\">\n");
		&data("<input type=\"hidden\" name=\"mode\" value=\"regist\">\n");
		&data("名前<br><input type=\"text\" name=\"name\" size=\"12\"><br>\n");
		&data("Email<br><input type=\"text\" name=\"email\" size=\"12\"><br>\n");
		&data("題名<br><input type=\"text\" name=\"sub\" size=\"12\" value=\"$resub\"><br>\n");
		&data("削除ｷｰ<br><input type=\"password\" name=\"pwd\" size=\"6\"><br>\n");
		&data("ｺﾒﾝﾄ<br><textarea name=\"comment\" cols=\"14\" rows=\"3\">$recom</textarea><br>\n");
		&data("<input type=\"submit\" value=\"投稿\"></form>\n");
		&data("<a href=\"$script?\">戻る</a>\n</body></html>\n");

		# 出力
		&header($size);
		print @data;
		exit;

	# 管理入室画面
	} elsif ($in{'job'} eq "enter") {

		&data("ﾊﾟｽﾜｰﾄﾞを入力<br>\n");
		&data("<form action=\"$script\" method=\"$method\">\n");
		&data("<input type=\"hidden\" name=\"mode\" value=\"admin\">\n");
		&data("<input type=\"password\" name=\"pass\" size=\"6\"><br>\n");
		&data("<input type=\"submit\" value=\"認証\"></form>\n");
		&data("</body></html>\n");

		# 出力
		&header($size);
		print @data;
		exit;

	# 削除フォーム
	} elsif ($in{'del'} > 0) {

		&data("<form action=\"$script\" method=\"$method\">\n");
		&data("<input type=\"hidden\" name=\"mode\" value=\"usrdel\">\n");
		&data("<input type=\"hidden\" name=\"no\" value=\"$in{'del'}\">\n");
		&data("削除ｷｰ<br><input type=\"password\" name=\"pwd\" size=\"4\">\n");
		&data("<input type=\"submit\" value=\"削除\"></form>\n");
		&data("</body></html>\n");

		# 出力
		&header($size);
		print @data;
		exit;
	}

	&data("<font color=\"$t_color\">$title</font><hr>\n");
	&data("$emo1<a href=\"$home\" $button=\"1\">戻る</a><br>\n");
	&data("$emo2<a href=\"$script?job=form\" $button=\"2\">投稿</a><br>\n");
	&data("$emo3<a href=\"$script?job=enter\" $button=\"3\">管理</a>\n");

	if ($page eq "") { $page = 0; }

	$i=0;
	open(IN,"$logfile") || &error("Open Error: $logfile");
	while (<IN>) {
		$i++;
		next if ($i < $page + 1);
		last if ($i > $page + $p_log2);

		($no,$dat,$nam,$eml,$sub,$com,$url,$hos,$pw,$tim,$typ) = split(/<>/);
		if ($eml) { $nam = "<a href=\"mailto:$eml\">$nam</a>"; }
		if ($autolink) { &auto_link($com); }

		if ($type eq 'j') {
			$sub = &i2j($sub);
			$nam = &i2j($nam);
			$com = &i2j($com);
			$sub = &j2j($sub);
			$nam = &j2j($nam);
			$com = &j2j($com);

		} elsif ($type eq 'i') {
			$sub = &j2i($sub);
			$nam = &j2i($nam);
			$com = &j2i($com);
			$sub = &i2i($sub);
			$nam = &i2i($nam);
			$com = &i2i($com);

		} elsif ($type eq 'e') {
			$sub = &j2e($sub, $model);
			$nam = &j2e($nam, $model);
			$com = &j2e($com, $model);
			$sub = &i2e($sub, $model);
			$nam = &i2e($nam, $model);
			$com = &i2e($com, $model);
		}

		# 日時
		$date = &get_time($tim, 'ptel');

		&data("<hr><font color=\"$sub_color\">$sub</font><br>\n");
		&data("$nam<br>$date ");
		&data("<a href=\"$url\">URL</a>") if ($url);
		&data("<br>$com<div align=\"right\">");
		&data("<a href=\"$script?job=form&no=$no\">返信</a>\n");
		&data("<a href=\"$script?del=$no\">削除</a></div>\n");

	}
	close(IN);

	&data("<hr>\n");

	$next = $page + $p_log2;
	$back = $page - $p_log2;

	if ($back >= 0) {
		&data("$emo4<a href=\"$script?page=$back\" $button=\"4\">前</a><br>");
	}
	if ($next < $i) {
		&data("$emo5<a href=\"$script?page=$next\" $button=\"5\">次</a>\n");
	}

	# 著作権表記（削除不可）
	&data("<div align=\"right\">");
	&data("<a href=\"http://www.kent-web.com/i/\">e-PAD</a></div>\n");
	&data("</body></html>\n");

	# 出力
	&header($size);
	print @data;
	exit;
}

#-------------------------------------------------
#  出力データ
#-------------------------------------------------
sub data {
	$size += length($_[0]);

	push(@data,$_[0]);
}

#-------------------------------------------------
#  エラー処理
#-------------------------------------------------
sub error {
	if ($lockflag) { &unlock; }

	&data("Error<br>\n");
	&data("$_[0]</body></html>\n");

	&header($size);
	print @data;
	exit;
}


1;


__END__

