# logview_tel1.pl 最終更新 2010/01/18

#┌─────────────────────────────────
#│ 携帯対応YY-BOARD（改）
#│ logview_tel1.pl 通常版・マルチ掲示板対応版共用
#│ for yybbs.cgi
#└─────────────────────────────────

#-------------------------------------------------
#  記事表示部(ケータイ)
#-------------------------------------------------
sub logView {
	my ($res,$ResNG,$mhtml);
	local (@mhtml,$mhtml_size);

	# DoCoMo用formタグ
	my $utnform1 = "<form action=\"$script\" method=\"$method\"$DCMUtn>";

	$sortnew = ($mode eq "sortnew");
	$preview = ($mode eq "preview");
	$msgview = ($mode eq "msgview");
	$tree = ($mode eq "tree");

	# 携帯での表示モード用
#	if ($imode_out == 0) {
#		if ($in{'mode2'} eq "sortnew") { $sortnew = 1; }
#		elsif ($in{'mode2'} eq "preview") { $preview = 1; }
#		elsif ($in{'mode2'} eq "tree") { $tree = 1; }
#	}
#	if ($imode_out && $in{'mode2'} eq "sortnew") { $sortnew = 1; }
#	elsif ($imode_out && !$sortnew && !$preview && !$msgview && !$tree) { $preview = 1; }

	if ($imode_out && !$sortnew && !$preview && !$msgview && !$tree) { $preview = 1; }

	# １ページ当たりの記事表示数
	if ($sortnew) { $pageView = $new_log; } # 新着表示
	elsif ($preview) { $pageView = $p_my_log; } # 一覧表示
	elsif ($msgview) { $pageView = $p_msg_log; } # メッセージ表示
	elsif ($tree) { $pageView = $new_log; } # ツリー表示
	else { $pageView = $new_log; } # 標準表示

	# ヘッダを出力
#	$mhtml .= &header('','','skin');
	&mhtml(&header('','','skin'));

	# uemini_link表示用
	$uemini_flag = 1;

	# ページ内リンク用
	if ($pageLink2 && $mode ne 'allno2') {
#		$mhtml .= qq |<a name="top"></a>\n|;
		&mhtml(qq |<a name="top"></a>\n|);
	}
	# カウンタ処理
	my $kiri;
	if ($counter && $mode ne "allno" && $mode ne "allno2" && !$msgview) {
#		$kiri = &counter;
		my $view;
		($view,$kiri) = &counter('skin');
#		$mhtml .= qq |$view<br>\n|;
		&mhtml(qq |$view<br>\n|);
	}

	# キリ番機能
	if ($kiri) { &mhtml(&tag_on($kiri)); }

	# 掲示板のタイトル
	if ($mode ne "allno2") {
		if ($ititleView) {
			$ititleView =~ s/!it_img!/$it_img/g;
			$ititleView =~ s/!title!/$title/g;
			&mhtml(&tag_on($ititleView));
		} elsif ($it_img) { &mhtml(qq |<center><img src="$it_img"></center>\n|); }
		elsif ($tColi) { &mhtml(qq |<font color="$tColi">$title</font><br>\n|); }
		else { &mhtml(qq |$title<br>\n|); }
	}

	# メッセージ
	if ($messegei && $mode ne "allno" && $mode ne "allno2" && !$msgview) {
		&mhtml(&tag_on($messegei));
		&mhtml(qq |\n|);
	}

	# タグ広告等
	if ($Tbanner1 ne '' && (($Tbanner1View == 1 && $mode ne 'allno' && $mode ne 'allno2' && !$msgview) || ($Tbanner1View == 2 && $msgview) || ($Tbanner1View == 3 && $mode ne 'allno' && $mode ne 'allno2'))) {
		my $w;
		# 作戦Ｃ：google.phpを起動
		if ($GgAdS == 2) {
			$w = `php -f $Tbanner1`;
		# 作戦Ｂ：google.cgiを起動
		} elsif ($GgAdS == 1) {
			$w = `perl $Tbanner1`;
		# 作戦Ａ：google.cgiから読み込み
		} else {
			require $Tbanner1;
			$w = &google_mobile;
		}
		&mhtml(qq |<hr>\n$w\n|);
	}

	if ($mode ne "allno2") { &mhtml(qq |<hr>\n|); }

if ($miruPass && $mode ne "allno" && $mode ne "allno2" && !$msgview) { # 閲覧者限定時
	# 新規投稿後の表示モードの設定
	&mhtml(qq |$utnform1\n|);
	if ($room ne '') { &mhtml(qq |$multi_form\n|); }
	&mhtml(qq |<input type="hidden" name="mPass" value="$in{'mPass'}">\n|);

	if ($preview == 1 || ($msgview == 1 && $in{'tp'} ne 'tree')) {
		&mhtml(qq |<input type="hidden" name="mode2" value="preview">\n|);
	} elsif ($tree == 1 || ($msgview == 1 && $in{'tp'} eq 'tree')) {
		&mhtml(qq |<input type="hidden" name="mode2" value="tree">\n|);
	} elsif ($sortnew == 1) {
		&mhtml(qq |<input type="hidden" name="mode2" value="sortnew">\n|);
	} else {
		&mhtml(qq |<input type="hidden" name="mode2" value="std">\n|);
	}
	# HOME
	if ($ihomepage eq '') { &mhtml(qq |<a href="$homepage">HOME</a> \n|); }
	else { &mhtml(qq |<a href="$ihomepage">HOME</a> \n|); }
	# 新規投稿
	&mhtml(qq |<input type="submit" name="mode" value="新規投稿">\n|);
	# 掲示板の使い方
	&mhtml(qq |<input type="submit" name="mode" value="？">\n|);
	# ページ下部へのリンク
	if ($pageLink1) {
		my $btn;
		if ($button) { $btn = " $button=\"8\""; }
		&mhtml(qq | <a href="#bottom"$btn>$pageLink1</a>\n|);
	}
	&mhtml(qq |</form>\n|);

} elsif ($mode ne "allno" && $mode ne "allno2" && !$msgview) {
	# HOME
	if ($ihomepage eq '') { &mhtml(qq |<a href="$homepage">HOME</a>|); }
	else { &mhtml(qq |<a href="$ihomepage">HOME</a>|); }
	# 新規投稿
	if ($preview == 1 ||  ($msgview == 1 && $in{'tp'} ne 'tree')) {
		&mhtml(qq |/<a href="$script?${multi_link}mode=imode&amp;mode2=preview"$DCMUtn>新規投稿</a>|);
	} elsif ($tree == 1 || ($msgview == 1 && $in{'tp'} eq 'tree')) {
		&mhtml(qq |/<a href="$script?${multi_link}mode=imode&amp;mode2=tree"$DCMUtn>新規投稿</a>|);
	} elsif ($sortnew == 1) {
		&mhtml(qq |/<a href="$script?${multi_link}mode=imode&amp;mode2=sortnew"$DCMUtn>新規投稿</a>|);
	} else {
		&mhtml(qq |/<a href="$script?${multi_link}mode=imode&amp;mode2=std"$DCMUtn>新規投稿</a>|);
	}
	# 掲示板の使い方
	&mhtml(qq |/<a href="$script?${multi_link}mode=howto"$DCMUtn>？</a>|);
	# ページ下部へのリンク
	if ($pageLink1) {
		my $btn;
		if ($button) { $btn = " $button=\"8\""; }
		&mhtml(qq |/<a href="#bottom"$btn>$pageLink1</a>|);
	}
 	&mhtml(qq |<br>\n|);
}

	# 表示方法の設定
if ($miruPass && $mode ne "allno2") { # 閲覧者限定時
	&mhtml(qq |$utnform1\n|);
	if ($room ne '') { &mhtml(qq |$multi_form\n|); }
	&mhtml(qq |<input type="hidden" name="mPass" value="$in{'mPass'}">\n|);
	if ($imode_out == 0) {
		&mhtml(qq |<input type="submit" name="mode" value="標準">|);
	}
	&mhtml(qq |<input type="submit" name="mode" value="一覧">|);
	if ($newok == 1) {
		&mhtml(qq |<input type="submit" name="mode" value="新着">|);
	}
	&mhtml(qq |<input type="submit" name="mode" value="ﾂﾘｰ">|);
	if ($mode ne 'allno' && !$msgview) { &mhtml(qq |<input type="submit" name="mode" value="拡張">|); }
	# ページ下部へのリンク
	elsif ($pageLink1) {
		my $btn;
		if ($button) { $btn = " $button=\"8\""; }
		&mhtml(qq |<a href="#bottom"$btn>$pageLink1</a>|);
	}
	&mhtml(qq |\n</form>\n|);

} elsif ($mode ne "allno2") {
	if ($imode_out == 0) {
		if ($preview == 0 && $sortnew == 0 && $msgview == 0 && $tree == 0 && $mode ne "allno") { &mhtml(qq |標準/|); }
		else { &mhtml(qq |<a href="$script?${multi_link}mode=std"$DCMUtn>標準</a>/|); }
	}
	if ($newok == 0) {
		&mhtml(qq |<a href="$script?${multi_link}mode=preview"$DCMUtn>一覧</a>|);
	} else {
		if ($preview == 1 && $mode ne "allno") { &mhtml(qq |一覧|);}
		else { &mhtml(qq |<a href="$script?${multi_link}mode=preview"$DCMUtn>一覧</a>|); }
	}
	if ($newok == 1) {
		if ($sortnew == 1) { &mhtml(qq |/新着|); }
		else { &mhtml(qq |/<a href="$script?${multi_link}mode=sortnew"$DCMUtn>新着</a>|); }
	}
	if ($tree == 1) { &mhtml(qq |/ﾂﾘｰ|); }
	else { &mhtml(qq |/<a href="$script?${multi_link}mode=tree"$DCMUtn>ﾂﾘｰ</a>|); }
	if ($mode ne 'allno' && !$msgview) { &mhtml(qq |/<a href="$script?${multi_link}mode=kkc"$DCMUtn>拡張</a>|); }
	# ページ下部へのリンク
	elsif ($pageLink1) {
		my $btn;
		if ($button) { $btn = " $button=\"8\""; }
		&mhtml(qq |/<a href="#bottom"$btn>$pageLink1</a>|);
	}
	&mhtml(qq |<br>\n|);
}

	# 閲覧者限定時・表示ページ取得（メッセージ表示）
	if ($page eq '' && $in{'pagex'} ne '') { $page = $pageView * ($in{'pagex'} - 1); }

	# ページ区切り処理
	my $start = $page + 1;
	my $end   = $page + $pageView;
	my $i = 0;

	# 記事を展開

	#  一記事全文表示
	if ($mode eq "allno" || $mode eq "allno2") {
		if (!$in{'no'}) { &error('記事番号が指定されていません'); }

		my $flag = 0;
		open(IN,"$logfile") || &error("Open Error : ログファイル");
		my $top = <IN>;
		while (<IN>) {
			my ($no,$mytime) = (split(/<>/))[0,12];

			# 疑似削除(非表\示)した記事
			if ($no == $in{'no'} && $mytime =~ /^6/) { $flag = 2; last; }

			if ($in{'no'} == $no) {
				# 記事の表示
				chomp;
				&mhtml(&KijiView($_));
				$flag = 1;
				last;
			}
		}
		close(IN);

		# 疑似削除(非表\示)した記事
		if ($flag == 2) { &error("削除された記事は表\示できません"); }

		elsif (!$flag) { &error('該当の記事が見つかりません'); }

		# 関連ツリー表示
		if ($in{'tp'} eq 'tree' && $mode eq "allno") {
			my ($subC,$namC) = &color1;
			local($no,$re,$dat,$nam,$eml,$sub,$mytime);
			local(%dat,%nam,%sub,%mytime);
			&mhtml(qq |<hr>関連ﾂﾘｰ<br>\n|);

			# 記事を展開
			open(IN,"$logfile") || &error("Open Error : ログファイル");
			my $top = <IN>;
			while (<IN>) {
				($no,$re,$dat,$nam,$eml,$sub,$mytime) = (split(/<>/))[0,1,2,3,4,5,12];

				# 疑似削除(非表\示)した記事
				if ($mytime =~ /^6/) { next; }

				if ($in{'top'} && ($in{'top'} != $no && $in{'top'} != $re) || !$in{'top'} && ($in{'no'} != $no && $in{'no'} != $re)) { next; }

				# 親記事
				if (!$re) { push(@view,$no); }
				# レス記事
				else { $res{$re} .= "$no,"; }

				# 疑似削除した記事の処理
				if ($mytime =~ /^0/) { &dude; }

				# 管理人未認証の記事
				if ($mytime =~ /^9/) { &chkMae; }

				# 全角→半角変換
				if ($telHalf) {
					$sub = &tel_half($sub);
					$nam = &tel_half($nam);
				}

				# 絵文字処理 <e-PAD>
				# 長さ調整
				if ($subC && ($imode == 3 || $imode == 8 || $imode == 6)) {
					$sub = &emoji_length($sub,2,'tel',$sub_leni_pre,$subColi);
					$sub =~ s|<font color="$subColi"></font>||g;
				} else {
					$sub = &emoji_length($sub,2,'tel',$sub_leni_pre);
				}
				if ($namC && ($imode == 3 || $imode == 8 || $imode == 6)) {
					$nam = &emoji_length($nam,2,'tel',$nam_leni_pre,$namColi);
					$nam =~ s|<font color="$namColi"></font>||g;
				} else {
					$nam = &emoji_length($nam,2,'tel',$nam_leni_pre);
				}

				# メールアドレスを変換
				if ($eml) { $nam = &eml_henkan($eml,$nam,$no); }

				# 時間変換
				&time_change('tree');

				$dat{$no} = $dat;
				$nam{$no} = $nam;
#				$eml{$no} = $eml;
				$sub{$no} = $sub;
				$mytime{$no} = $mytime;
			}
			close(IN);

			# ツリー表示
			&treeView;
		}

		if ($mode eq "allno2") {
			&mhtml(qq |</body>\n</html>\n|);
			&mhtml_view;
			exit;
		}

		&mhtml(qq |<hr>\n<center>\n|);
		# ページ内リンク用
		if ($pageLink1) { &mhtml(qq |<a name="bottom"></a>\n|); }
		&mhtml(&uemini_ilink);
		# ページ上部へのリンク
		if ($pageLink2) { 
			if (!$miruPass) { &mhtml(qq |<br>|); } # 閲覧者限定時以外
			my $btn;
			if ($button) { $btn = " $button=\"2\""; }
			&mhtml(qq |<a href="#top"$btn>$pageLink2</a>|);
		}
		&mhtml(qq |</center>\n|);
		&mhtml(qq |</body>\n</html>\n|);
		&mhtml_view;
		exit;

	# ツリー表示（ケータイ）
	} elsif ($tree == 1) {
		my ($subC,$namC) = &color1;
		local($no,$re,$dat,$nam,$eml,$sub,$mytime,
			@view,%res,%dat,%nam,%sub,%mytime);

		if (!$miruPass) { &mhtml(qq |<hr>\n|); } # 閲覧者限定時以外

		# 記事を展開
		open(IN,"$logfile") || &error("Open Error : ログファイル");
		my $top = <IN>;
		while (<IN>) {
			($no,$re,$dat,$nam,$eml,$sub,$mytime) = (split(/<>/))[0,1,2,3,4,5,12];

			# 疑似削除(非表\示)した記事
			if ($mytime =~ /^6/) { next; }

			if (!$re) { $i++; }
			if ($i < $start) { next; }
			if ($i > $end && ($ipgoku eq 'all' || $ipgoku >= 1 || $ipgoku eq 'form')) { next; }
			elsif ($i > $end) { last; }

			# 親記事
			if (!$re) { push(@view,$no); }
			# レス記事
			else { $res{$re} .= "$no,"; }

			# 疑似削除した記事の処理
			if ($mytime =~ /^0/) { &dude; }

			# 管理人未認証の記事
			if ($mytime =~ /^9/) { &chkMae; }

			# 全角→半角変換
			if ($telHalf) {
				$sub = &tel_half($sub);
				$nam = &tel_half($nam);
			}

			# 絵文字処理 <e-PAD>
			# 長さ調整
			if ($subC && ($imode == 3 || $imode == 8 || $imode == 6)) {
				$sub = &emoji_length($sub,2,'tel',$sub_leni_pre,$subColi);
				$sub =~ s|<font color="$subColi"></font>||g;
			} else {
				$sub = &emoji_length($sub,2,'tel',$sub_leni_pre);
			}
			if ($namC && ($imode == 3 || $imode == 8 || $imode == 6)) {
				$nam = &emoji_length($nam,2,'tel',$nam_leni_pre,$namColi);
				$nam =~ s|<font color="$namColi"></font>||g;
			} else {
				$nam = &emoji_length($nam,2,'tel',$nam_leni_pre);
			}

			# メールアドレスを変換
			if ($eml) { $nam = &eml_henkan($eml,$nam,$no); }

			# 時間変換
			&time_change('tree');

			$dat{$no} = $dat;
			$nam{$no} = $nam;
#			$eml{$no} = $eml;
			$sub{$no} = $sub;
			$mytime{$no} = $mytime;
		}
		close(IN);

		# ツリー表示
		&treeView;

	# 新着順表示（ケータイ）
	} elsif ($sortnew == 1) {
		# 記事を展開
		open(IN,"$logfile") || &error("Open Error : ログファイル");
		my $top = <IN>;
		my @logdata = <IN>;
		close(IN);

		#投稿Noでソート
		my @tmp = map {(split /,/)[0]} @logdata;
		@logdata = @logdata[sort {$tmp[$b] <=> $tmp[$a]} 0 .. $#tmp];
		foreach (@logdata) {
			# 疑似削除(非表\示)した記事
			if ($mytime =~ /^6/) { next; }

			$i++;
			if ($i < $start) { next; }
			if ($i > $end && ($ipgoku eq 'all' || $ipgoku >= 1 || $ipgoku eq 'form')) { next; }
			elsif ($i > $end) { last; }

			# 記事の表示
			chomp;
			&mhtml(&KijiView($_));
		}

	# 親記事とレス記事一括表示（ケータイ）
	} elsif ($msgview == 1) {
		my $tpage = $page; # スレッド参照数保存用

		# エラー判定
		if (!$in{'no'}) { &error("記事番号が指定されていません"); }

		# 該当記事取得
		$res = 0;
		my $page_less = 0;
		my @lines2 = ();
		$ResNG = '';
		my $oya = '';
		my $f = 0;
		open(IN,"$logfile") || &error("Open Error : ログファイル");
		my $top = <IN>;
		while (<IN>) {
			my ($no,$re,$mytime) = (split(/<>/))[0,1,12];
			# 疑似削除(非表\示)した親記事
			if ($in{'no'} == $no && !$re && $mytime =~ /^6/) { $f = 3; last; }
			if ($in{'no'} == $no && $re) { $f++; last; }
			if (($in{'no'} == "$no" && !$re) || ($in{'no'} == "$re" && $re)) {
				# 疑似削除(非表\示)した記事
				if ($mytime =~ /^6/) { next; }
				if ($meslast == 2 && $in{'no'} eq "$no") { $oya = $_; }
				else { push (@lines2,$_); }
				if (!$re && $mytime =~ /^0/) { $ResNG = "この記事には返信出来ません"; }
				if (!$re && $mytime =~ /^9/) { $ResNG = "未認証の記事には返信出来ません"; }
				if (!$re && $mytime =~ /^8/) { $ResNG = "閲覧専用です"; }
			}
		}
		close(IN);

		# エラー判定
		if ($f == 3) { &error("このスレッドは削除されています"); }
		elsif ($f) { &error("不正な表\示要求です"); }

		# 新しいレスから表示する場合
		if ($meslast == 2) {
			if ($oya) { push (@lines2,$oya); }
			@lines2 = reverse(@lines2);
		}

		# 該当記事の数
		$res = @lines2;
		if (!$res) { &error("該当の記事がありません"); }

		# レス数限定
		if ($resMax && $res-1 >= $resMax && !$ResNG) { $ResNG="返信終了です"; }

		# 閲覧者限定時 表示ページ取得
#		if ($page eq '' && $in{'pagex'} ne '') { $page = $pageView * ($in{'pagex'} - 1); }
#		if ($in{'pagex'} ne '') { $page = $pageView * ($in{'pagex'} - 1); }
#		$page = $pageView * ($in{'pagex'} - 1);

		# 最新のレスを表示する場合
		if ($meslast == 1 && $page eq '') {
			$page_less = 1;

			# 初期表示レス番号取得
			if ($pageView == 1) { $start = $res - $pageView + 1; }
			else { $start = $res - $pageView + 2; }
			$end = $res;

			# 現在ページ取得（ページ送り用）
			my $a = $res / $pageView;
			if ($a ne int($a)) { $a = int($a+1); }
			$a -= 1;
			$page = $a * $pageView;
		}

		foreach (@lines2) {
			$i++;
			if (($i < $start) && ($i ne 1 || !$page_less)) { next; }
			if ($i > $end) { next; }

			# レス番号を定義
			my $tempresno;
			if ($meslast == 2) { # 最新のレスを表示する場合
				$tempresno = $res - $i + 1; # レス記事
			} else { $tempresno = $i - 1; } # 初めのレスから表示する場合

			# 記事の表示
			chomp;
			&mhtml(&KijiView($_,$tempresno));
		}

		# スレッド参照数保存
		if ((-e "$viewcntfile") && ($PreviewRes == 2 || $PreviewRes == 3 || $PreviewResi == 2 || $PreviewResi == 3) && $tpage eq '' && $in{'no'} >= 1) { &ViewCountUp($in{'no'}); }

	# 一覧表示（ケータイ）
	} elsif ($preview == 1) {
		my (%ViewCnt,$tempno,$tempdate,$tempname,$newsign,$newsign_res);
		my ($subC,$namC,$noC) = &color1;
		my (%colors) = &color2;

		# スレッド参照数取得
		if ((-e "$viewcntfile") && ($PreviewResi == 2 || $PreviewResi == 3)) { %ViewCnt = &ViewCountGet; }

		&mhtml(qq |<hr>\n|);

		if ($miruPass) { # 閲覧者限定時
			&mhtml(qq |$utnform1|);
			if ($room ne '') { &mhtml(qq |$multi_form|); }
			&mhtml(qq |<input type="hidden" name="mPass" value="$in{'mPass'}">|);
			&mhtml(qq |<input type="hidden" name="mode" value="msgview">|);
			&mhtml(qq |<input type="hidden" name="tp" value="preview">\n|);
			if ($page ne '') { &mhtml(qq |<input type="hidden" name="page2" value="$page">|); }
		}

		my $rcount=0;
		my $r_flag=1;
		# 記事を展開
		open(IN,"$logfile") || &error("Open Error : ログファイル");
		my $top = <IN>;
		while (<IN>) {
			local ($no,$re,$dat,$nam,$eml,$sub,$mytime)=(split(/<>/))[0,1,2,3,4,5,12];

			# 疑似削除(非表\示)した記事
			if ($mytime =~ /^6/) { next; }

			if (!$re) { $i++; }
			if ($i < $start) { next; }
			if ($i > $end && ($ipgoku eq 'all' || $ipgoku >= 1 || $ipgoku eq 'form')) { next; }
			elsif ($i > $end) { last; }

			# 親記事の場合
			if (!$re) {
				# 一覧表示の後方の表示(レスの数等)
				if (!$r_flag) {
					&PrePlus1($rcount,$tempname,$tempdate,$ViewCnt{$tempno},$newsign,$newsign_res);
					if ($miruPass) { &mhtml(qq |<hr>\n|); } # 閲覧者限定時
					elsif ($thdSpiPre == 1) { &mhtml(qq |<br><br>\n|); }
					elsif ($thdSpiPre == 2) { &mhtml(qq |<hr>\n|); }
					else { &mhtml(qq |<br>\n|); }
					$newsign = '';
					$newsign_res = '';
					$r_flag++;
				}

				# 疑似削除した記事の処理
				if ($mytime =~ /^0/) { &dude; }

				# 管理人未認証の記事
				if ($mytime =~ /^9/) { &chkMae; }

				# 全角→半角変換
				if ($telHalf) {
					$sub = &tel_half($sub);
					$nam = &tel_half($nam);
				}

				# 絵文字処理 <e-PAD>
				# 長さ調整
				if ($subC && ($imode == 3 || $imode == 8 || $imode == 6)) {
					$sub = &emoji_length($sub,2,'tel',$sub_leni_pre,$subColi);
					$sub =~ s|<font color="$subColi"></font>||g;
				} else {
					$sub = &emoji_length($sub,2,'tel',$sub_leni_pre);
				}
				if ($namC && ($imode == 3 || $imode == 8 || $imode == 6)) {
					$nam = &emoji_length($nam,2,'tel',$nam_leni_pre,$namColi);
					$nam =~ s|<font color="$namColi"></font>||g;
				} else {
					$nam = &emoji_length($nam,2,'tel',$nam_leni_pre);
				}

				# メールアドレスを変換
				if ($eml) { $nam = &eml_henkan($eml,$nam,$no); }

#				# 時間変換
#				&time_change;

				# タイトルを【と】で囲む
				if (!$iprelink) { $sub = "【$sub】"; }

				# 管理メッセージ
				if ($mytime =~ /AD$/) {
					if (!$re || $sortnew == 1) { &mhtml(&tag_on($KanriMessagei)); }
#					$mytime =~ s/AD$//;
				}

				# 記事を表示
				if ($miruPass) { # 閲覧者限定時
					&mhtml(qq |<input type="submit" name="no" value="$no">|);
				} elsif (!$iprelink) {
					&mhtml(qq |[$noC<a href="$script?${multi_link}mode=msgview&amp;tp=preview&amp;no=$no&amp;page2=$page"$DCMUtn>$no</a>$colors{'noC'}]|);
				}
				if ($iprelink >= 1) {
					&mhtml(qq |$subC【<a href="$script?${multi_link}mode=msgview&amp;tp=preview&amp;no=$no&amp;page2=$page"$DCMUtn>$sub</a>】$colors{'subC'}|);
				} else {
					&mhtml(qq |$subC$sub$colors{'subC'}|);
				}
				if ($iprelink == 1) {
					&mhtml(qq |$noC\[$no\]$colors{'noC'}|);
				}
				&mhtml(qq | $namC$nam$colors{'namC'}|);
				$rcount=0;
				$r_flag=0;

				# NEWマークの計算
				if ($newViewi || $newViewi2) { $newsign = &get_newsign($mytime); }

				# 参照数表示用
				if ($PreviewResi == 2 || $PreviewResi == 3) { $tempno = $no; }

			# レス記事の場合
			} else {
				$rcount++;
				# 疑似削除した記事の処理
				if ($mytime =~ /^0/) { next; }
				# 管理人未認証の記事
				if ($mytime =~ /^9/) { next; }
				# NEWマークの計算
				if ($newViewResi || $newViewResi2) { $newsign_res = &get_newsign($mytime,'res'); }
				# 最終返信表示用
				if ($PreviewResi == 1 || $PreviewResi == 3) {
					$tempdate = $dat; $tempname = $nam;
				}
			}
		}
		close(IN);

		# 一番最後の記事の後方の表示(レスの数等)
		if (!$r_flag) {
			&PrePlus1($rcount,$tempname,$tempdate,$ViewCnt{$tempno},$newsign,$newsign_res);
			if ($miruPass) { &mhtml(qq |\n</form>\n|); } # 閲覧者限定時
			else { &mhtml(qq |\n|); }
		}

	# 標準表示（ケータイ）
	} else {
		# 返信数・新着マーク用時刻情報取得
		my (%reses,%newtime);
		if ($istdView == 1) {
			open(IN,"$logfile") || &error("Open Error : ログファイル");
			my $top = <IN>;
			while (<IN>) {
				my ($re,$mytime) = (split(/<>/))[1,12];
				# 疑似削除(非表\示)した記事
				if ($mytime =~ /^6/) { next; }
				if ($re eq '') { $i++; }
				if ($i < $start || $re eq '') { next; }
				if ($i > $end) { last; }
				# 返信数
				$resrs{$re}++;
				# 新着マーク用時刻情報
				if ($mytime =~ /^0/) { $mytime = 0; } # 疑似削除した記事
				if ($mytime =~ /^9/) { $mytime = 0; } # 管理人未認証の記事
				$mytime =~ s/^8/1/; # 返信禁止記事
				$mytime =~ s/^7/1/; # 保存記事
				$mytime =~ s/AD$//; # 管理メッセージ
				if ($newtime{$re} < $mytime) { $newtime{$re} = $mytime; }
			}
			close(IN);
		}

		# 記事を展開
		$i = 0;
		open(IN,"$logfile") || &error("Open Error : ログファイル");
		my $top = <IN>;
		while (<IN>) {
			my ($no,$re,$mytime) = (split(/<>/))[0,1,12];

			# 疑似削除(非表\示)した記事
			if ($mytime =~ /^6/) { next; }
			if (!$re) { $i++; }
			elsif ($istdView == 1) { next; }
			if ($i < $start) { next; }
			if ($i > $end && ($ipgoku eq 'all' || $ipgoku >= 1 || $ipgoku eq 'form')) { next; }
			elsif ($i > $end) { last; }

			# 記事の表示
			chomp;
			&mhtml(&KijiView($_));

			# スレッドへリンク
			if ($istdView == 1 && $resrs{$no} >= 1 && $miruPass) { # 閲覧者限定時)
				my $newsign;
				&mhtml(qq |$utnform1\n|);
				if ($room ne '') { &mhtml(qq |$multi_form\n|); }
				my $mh = <<EOM;
<input type="hidden" name="mPass" value="$in{'mPass'}">
<input type="hidden" name="mode" value="msgview">
<input type="hidden" name="tp" value="std">
<input type="hidden" name="no" value="$no">
<input type="hidden" name="page2" value="$page">
<input type="submit" value="ﾚｽ表\示($resrs{$no})">
EOM
				&mhtml($mh);
				# NEWマークの計算
				if ($newViewi || $newViewi2) {
					$newsign = &get_newsign($newtime{$no});
					if ($newsign) { &mhtml(qq |$newsign\n|); }
				}
				my $mh = <<EOM;
</form>
EOM
				&mhtml($mh);
			} elsif ($istdView == 1 && $resrs{$no} >= 1) {
				&mhtml(qq |<br>→<a href="$script?${multi_link}mode=msgview&amp;tp=std&amp;no=$no&amp;page2=$page"$DCMUtn>ﾚｽ表\示($resrs{$no})</a>\n|);
				# NEWマークの計算
				if ($newViewi || $newViewi2) {
					$newsign = &get_newsign($newtime{$no});
					if ($newsign) { &mhtml(qq |$newsign\n|); }
				}
			}
		}
		close(IN);

	}

	# タグ広告等
	if ($Tbanner3 ne '' && (($Tbanner3View == 1 && $mode ne 'allno' && $mode ne 'allno2' && !$msgview) || ($Tbanner3View == 2 && $msgview) || ($Tbanner3View == 3 && $mode ne 'allno' && $mode ne 'allno2'))) {
		my $w;
		# 作戦Ｃ：google.phpを起動
		if ($GgAdS == 2) {
			$w = `php -f $Tbanner3`;
		# 作戦Ｂ：google.cgiを起動
		} elsif ($GgAdS == 1) {
			$w = `perl $Tbanner3`;
		# 作戦Ａ：google.cgiから読み込み
		} else {
			require $Tbanner3;
			$w = &google_mobile;
		}
		&mhtml(qq |<hr>\n$w\n|);
	}

	my $next = $page + $pageView;
	my $back = $page - $pageView;

#	if ($back >= 0 || $next < $i) {
#		if ($msgview == 1) { &mhtml(qq |<hr size="1">\n|); }
#		else { &mhtml(qq |<hr>\n|); }
#	}
#	if ($msgview == 1 && ($back >= 0 || $next < $i)) {
#		&mhtml(qq |<hr size="1">\n|);
#	} else {
#		&mhtml(qq |<hr>\n|);
#	}
	if ($msgview == 1) {
		if ($back >= 0 || $next < $i) {
			&mhtml(qq |<hr size="1">\n|);
		}
	} else {
		&mhtml(qq |<hr>\n|);
	}

	&mhtml(qq |<center>\n|);

	# ページ内リンク用
	if ($pageLink1) { &mhtml(qq |<a name="bottom"></a>\n|); }

	# ページ送り
	# メッセージ表示
	if ($msgview == 1) {
		my ($tp,$tp2);
		if ($in{'tp'} eq 'tree') { $tp = 'tree'; $tp2 = "ﾂﾘｰ"; }
		elsif ($in{'tp'} eq 'sortnew') { $tp = 'sortnew'; $tp2 = "新着"; }
		elsif ($in{'tp'} eq 'std') { $tp = 'std'; $tp2 = "標準"; }
		else { $tp = 'preview'; $tp2 = "一覧"; }

		my $f;
		if ($back >= 0 || $next < $i) {

			# フォーム表示
			if ($ipgoku eq 'form') {
				&mhtml(&mvbtn4_2($script,0,$res,$pageView,'skin','tp',$in{'tp'}));

			# その他
			} else {
				&mhtml(qq |ページ<br>|);
				my $x=1;
				my $y=0;
				if ($miruPass && $res > $pageView) { # 閲覧者限定時
					&mhtml(qq |$utnform1\n|);
					if ($room ne '') { &mhtml(qq |$multi_form\n|); }
					my $mh = <<EOM;
<input type="hidden" name="mPass" value="$in{'mPass'}">
<input type="hidden" name="mode" value="msgview">
<input type="hidden" name="tp" value="$in{'tp'}">
<input type="hidden" name="no" value="$in{'no'}">
EOM
					&mhtml($mh);
					if ($in{'page2'} ne '') { &mhtml(qq |<input type="hidden" name="page2" value="$in{'page2'}">\n|); }
					$f=1;
				}

				while ($i > 0) {
					my $btn;
					if ($y == $page - $pageView && $button) { $btn = " $button=\"4\""; }
					elsif ($y == $page + $pageView && $button) { $btn = " $button=\"6\""; }
					if ($page == $y) { &mhtml(qq |[$x]\n|); }
					elsif ($miruPass) { # 閲覧者限定時
						&mhtml(qq |<input type="submit" name="pagex" value="$x"$btn>\n|);
					} else {
						&mhtml(qq | <a href="$script?${multi_link}mode=msgview&amp;tp=$in{'tp'}&amp;no=$in{'no'}&amp;page=$y&amp;page2=$in{'page2'}"$btn$DCMUtn>$x</a>\n|);
					}
					$x++;
					$y = $y + $pageView;
					$i = $i - $pageView;
				}
			}
			if ($f) { &mhtml(qq |</form>\n|); }
		}

		&mhtml(qq |<hr>\n|);
#		if ($ResNG eq "返信終了です" && $miruPass) { # 閲覧者限定時
#			&mhtml(qq |$utnform1\n|);
#			if ($room ne '') { &mhtml(qq |$multi_form\n|); }
#			my $mh = <<EOM;
#<input type="hidden" name="mPass" value="$in{'mPass'}">
#<input type="hidden" name="mode" value="imode">
#<input type="hidden" name="resno" value="$in{'no'}">
#<input type="hidden" name="mode2" value="preview">
#<input type="hidden" name="page2" value="$in{'page2'}">
#<input type="submit" value="$ResNG">
#</form>
#EOM
#		&mhtml($mh);
#		} elsif ($ResNG eq "返信終了です") {
#			&mhtml(qq |[<a href="$script?${multi_link}mode=imode&amp;resno=$in{'no'}&amp;mode2=preview&amp;page2=$in{'page2'}"$DCMUtn>$ResNG</a>]<br>|);
#		} els

		if ($ResNG) { &mhtml(qq |[$ResNG]<br>|); }
		elsif ($miruPass && $henshinNG != 1) { # 閲覧者限定時
			&mhtml(qq |$utnform1\n|);
			if ($room ne '') { &mhtml(qq |$multi_form\n|); }
			my $mh = <<EOM;
<input type="hidden" name="mPass" value="$in{'mPass'}">
<input type="hidden" name="mode" value="imode">
<input type="hidden" name="resno" value="$in{'no'}">
<input type="hidden" name="mode2" value="$tp">
EOM
			&mhtml($mh);
			if ($in{'page2'} ne '') { &mhtml(qq |<input type="hidden" name="page2" value="$in{'page2'}">\n|); }
			my $mh = <<EOM;
<input type="submit" value="返信">
</form>
EOM
			&mhtml($mh);
		} elsif ($henshinNG != 1) {
			&mhtml(qq |[<a href="$script?${multi_link}mode=imode&amp;resno=$in{'no'}&amp;mode2=$tp&amp;page2=$in{'page2'}"$DCMUtn>返信</a>]<br>\n|);
		}
		# 一覧の1ページ以外のmsgviewの場合、該当の一覧ページへもリンク
		my $prepage;
		if ($in{'tp'} eq 'preview') {
			$prepage = ($in{'page2'}/$p_my_log)+1;
		} else {
			$prepage = ($in{'page2'}/$new_log)+1;
		}
		if ($prepage > 1 && $miruPass) { # 閲覧者限定時
			&mhtml(qq |$utnform1\n|);
			if ($room ne '') { &mhtml(qq |$multi_form\n|); }
			my $mh = <<EOM;
<input type="hidden" name="mPass" value="$in{'mPass'}">
<input type="hidden" name="mode" value="$tp">
<input type="hidden" name="page" value="$in{'page2'}">
<input type="submit" value="$tp2の$prepageページへ">
</form>
EOM
			&mhtml($mh);
#			&mhtml(qq |$utnform1\n|);
#			if ($room ne '') { &mhtml(qq |$multi_form\n|); }
#			my $mh = <<EOM;
#<input type="hidden" name="mPass" value="$in{'mPass'}">
#<input type="hidden" name="mode" value="$tp">
#<input type="submit" value="$tp2の先頭へ">
#</form>
#EOM
#			&mhtml($mh);
		} elsif ($prepage > 1) {
			&mhtml(qq |[<a href="$script?${multi_link}mode=$tp&amp;page=$in{'page2'}"$DCMUtn>$tp2の$prepageページへ</a>]<br>\n|);
#			&mhtml(qq |[<a href="$script?${multi_link}mode=$tp"$DCMUtn>$tp2の先頭へ</a>]<br>\n|);
		} elsif ($miruPass) { # 閲覧者限定時
			&mhtml(qq |$utnform1\n|);
			if ($room ne '') { &mhtml(qq |$multi_form\n|); }
			my $mh = <<EOM;
<input type="hidden" name="mPass" value="$in{'mPass'}">
<input type="hidden" name="mode" value="$tp">
<input type="submit" value="$tp2へ戻る">
</form>
EOM
			&mhtml($mh);
		} else {
			&mhtml(qq |[<a href="$script?${multi_link}mode=$tp"$DCMUtn>$tp2へ戻る</a>]<br>\n|);
		}

		&mhtml(&uemini_ilink);
		if (!$miruPass) { &mhtml(qq |<br>|); }

	# ページ送り
	# 新着表示、一覧表示、ツリー表示、その他
	# フォーム表示
	} elsif ($ipgoku eq 'form') {
		&mhtml(&mvbtn4($script, 0, $i, $pageView,'skin'));

	# 複数表示
	} elsif ($ipgoku eq 'all' || $ipgoku >= 1) {
		&mhtml(&mvbtn3($script, 0, $i, $pageView,'skin'));

	# 標準
	} else {
		if ($back >= 0) {
			my $btn;
			if ($button) { $btn = " $button=\"4\""; }
			if ($miruPass) { # 閲覧者限定時
				&mhtml(qq |$utnform1\n|);
				if ($room ne '') { &mhtml(qq |$multi_form\n|); }
				my $mh = <<EOM;
<input type="hidden" name="mPass" value="$in{'mPass'}">
<input type="hidden" name="mode" value="$mode">
<input type="hidden" name="page" value="$back">
<input type="submit" value="前の$pageView件"$btn>
</form>
EOM
				&mhtml($mh);
			} else {
				&mhtml(qq |[<a href="$script?${multi_link}mode=$mode&amp;page=$back"$btn$DCMUtn>前の$pageView件</a>]<br>\n|);
			}
		}
		if ($next < $i) {
			my $btn;
			if ($button) { $btn = " $button=\"6\""; }
			if ($miruPass) { # 閲覧者限定時
				&mhtml(qq |$utnform1\n|);
				if ($room ne '') { &mhtml(qq |$multi_form\n|); }
				my $mh = <<EOM;
<input type="hidden" name="mPass" value="$in{'mPass'}">
<input type="hidden" name="mode" value="$mode">
<input type="hidden" name="page" value="$next">
<input type="submit" value="次の$pageView件"$btn>
</form>
EOM
				&mhtml($mh);
			} else {
				&mhtml(qq |[<a href="$script?${multi_link}mode=$mode&amp;page=$next"$btn$DCMUtn>次の$pageView件</a>]<br>\n|);
			}
		}
	}

	# ページ上部へのリンク
	if ($pageLink2) {
		my $btn;
		if ($button) { $btn = " $button=\"2\""; }
		&mhtml(qq |<a href="#top"$btn>$pageLink2</a>|);
	}

	# 著作権表\示部 ---削除不可---
	if ($miruPass && !$msgview) { # 閲覧者限定時
		&mhtml(qq |<hr>\nCGI Script by ...<br>\n|);
		&mhtml(qq |<a href="$script?mode=jump&amp;url=http://www.kent-web.com/i/">KENT</a> & MakiMaki<br>\n|);
		&mhtml(qq |携帯用改造：<a href="$script?mode=jump&amp;url=http://www.url-battle.com/i.html">湯一路</a>\n|);
		if (-e './resize.pl' && $upload >= 1 && !$IMagick && !$resizeProg){ &mhtml(qq |<br>- <a href="$script?mode=jump&amp;url=http://sugachan.dip.jp/obsolete/ext/">resize</a> -\n|); }
		if ($upload >= 1 && $iupload == 1) { &mhtml(qq |<br>[<a href="$script?mode=jump&amp;url=http://www.web-liberty.net/">Web Liberty</a>]\n|); }
		&mhtml(qq |<br>Modified by <a href="$script?mode=jump&amp;url=http://vvv.ciao.jp/yy/i/index.html">Tambo</a>\n|);
	} elsif (!$msgview) {
		&mhtml(qq |<hr>\nCGI Script by ...<br>\n|);
		&mhtml(qq |<a herf="http://www.kent-web.com/i/">KENT</a> & MakiMaki<br>\n|);
		&mhtml(qq |携帯用改造：<a href="http://www.url-battle.com/i.html">湯一路</a>\n|);
		if (-e './resize.pl' && $upload >= 1 && !$IMagick && !$resizeProg) { &mhtml(qq |<br>- <a href="http://sugachan.dip.jp/obsolete/ext/">resize</a> -\n|); }
		if ($upload >= 1 && $iupload == 1) { &mhtml(qq |<br>[<a href="http://www.web-liberty.net/">Web Liberty</a>]\n|); }
		&mhtml(qq |<br>Modified by <a href="http://vvv.ciao.jp/yy/i/index.html">Tambo</a>\n|);
	} else {
		&mhtml(qq |<hr>\n|);
	}

	if (!$msgview) { &mhtml(qq |<br>|); }
	&mhtml(qq |[<a href="$admin?${multi_link}mode=admin"$DCMUtn>管理用</a>]\n|);
	&mhtml(qq |</center>\n|);

	# タグ広告等
	if ($Tbanner2 ne '' && (($Tbanner2View == 1 && $mode ne 'allno' && $mode ne 'allno2' && !$msgview) || ($Tbanner2View == 2 && $msgview) || ($Tbanner2View == 3 && $mode ne 'allno' && $mode ne 'allno2'))) {
		my $w;
		# 作戦Ｃ：google.phpを起動
		if ($GgAdS == 2) {
			$w = `php -f $Tbanner2`;
		# 作戦Ｂ：google.cgiを起動
		} elsif ($GgAdS == 1) {
			$w = `perl $Tbanner2`;
		# 作戦Ａ：google.cgiから読み込み
		} else {
			require $Tbanner2;
			$w = &google_mobile;
		}
		&mhtml(qq |<hr>$w\n|);
	}

	&mhtml(qq |</body>\n</html>\n|);
	&mhtml_view;
	exit;
}

# 一覧表示の後方の表示
sub PrePlus1 {
	my ($rcount,$nam,$dat,$ViewCnt,$newsign,$newsign_res) = @_;

	# 返信数
	if ($rcount > 0) {
		if ($PreviewResi == 2 || $PreviewResi == 3) { $rcount = "返:".$rcount; }

		# 最終返信表示
		if ($rcount && ($PreviewResi == 1 || $PreviewResi == 3)) {
			# 全角→半角変換
			if ($telHalf) {
				$nam = &tel_half($nam);
			}
			# 絵文字処理 <e-PAD>
			# 長さ調整
			$nam = &emoji_length($nam,2,'tel',$nam_leni_pre);
			&mhtml(qq | ($rcount/$nam)|);
		} else {
			&mhtml(qq | ($rcount)|);
		}
	}

#	# 返信数
#	if ($rcount > 0) { &mhtml(qq | ($rcount)|); }
#
#	# 最終返信表示
#	if ($rcount && ($PreviewResi == 1 || $PreviewResi == 3)) {
#		# 全角→半角変換
#		if ($telHalf) {
#			$nam = &tel_half($nam);
#		}
#		# 絵文字処理 <e-PAD>
#		# 長さ調整
#		$nam = &emoji_length($nam,2,'tel',$nam_leni_pre);
#		# 時間変換
#		&time_change;
#		&mhtml(qq | [$nam:$dat]|);
#	}

	# 参照数を表示
	if (($PreviewResi == 2 || $PreviewResi == 3) && $ViewCnt)
		{ &mhtml(qq | [参:$ViewCnt]|); }

	# 新着マーク
	&mhtml(qq |$newsign$newsign_res|);
}

#-------------------------------------------------
#  ツリー部表示
#-------------------------------------------------
sub treeView {
	local($subC,$namC,$noC) = &color1;
	local(%colors) = &color2;
	my $page2;
	if ($page ne '') { $page2 = "&amp;page2=$page"; }
	else { $page2 = ''; }

	my $a = 0;
	foreach (@view) {
		# 日時
		$dat{$_} = qq |<font size="-1">$dat{$_}</font>|;

		# 親記事
		$a++;
		if ($miruPass) { # 閲覧者限定時
			my $mh = <<EOM;
<hr>
<form action="$script" method="$method"$DCMUtn>
EOM
			&mhtml($mh);
			if ($room ne '') { &mhtml(qq |$multi_form\n|); }
			if ($page ne '') { &mhtml(qq |<input type="hidden" name="page2" value="$page">\n|); }
			my $mh = <<EOM;
<input type="hidden" name="mPass" value="$in{'mPass'}">
<input type="hidden" name="mode" value="msgview">
<input type="hidden" name="tp" value="tree">
<input type="hidden" name="no" value="$_">
<input type="submit" value="ﾂﾘｰ一括">
</form>
EOM
			&mhtml($mh);
		} else {
			if ($a >= 2 && $thdSpiTree == 2) {
				&mhtml(qq |<hr>\n|);
			} elsif ($a >= 2 && $thdSpiTree == 1) {
				&mhtml(qq |<br><br>\n|);
			} elsif ($a >= 2) {
				&mhtml(qq |<br>\n|);
			}
			&mhtml(qq |<a href="$script?${multi_link}mode=msgview&amp;tp=tree&amp;no=$_$page2"$DCMUtn>▼</a>|);
		}

		if ($miruPass) { # 閲覧者限定時
			my $mh = <<EOM;
<hr size="1">
<form action="$script" method="$method"$DCMUtn>
EOM
			&mhtml($mh);
			if ($room ne '') { &mhtml(qq |$multi_form\n|); }
			if ($in{'page'} ne '') { &mhtml(qq |<input type="hidden" name="page2" value="$in{'page'}">\n|); }
			my $mh = <<EOM;
<input type="hidden" name="mPass" value="$in{'mPass'}">
<input type="hidden" name="mode" value="allno">
<input type="hidden" name="tp" value="tree">
<input type="hidden" name="top" value="$_">
<input type="submit" name="no" value="$_">
EOM
			&mhtml($mh);

			# 管理メッセージ
			if ($mytime{$_} =~ /AD$/) { &mhtml(&tag_on($KanriMessagei)); }

			&mhtml(qq |$subC$sub{$_}$colors{'subC'}&nbsp;-&nbsp;$namC$nam{$_}$colors{'namC'}&nbsp;$dat{$_}|); # &nbsp;${noC}No.$_$colors{'noC'}|;

			# NEWマークの計算
			if ($newViewi || $newViewi2) { $newsign = &get_newsign($mytime{$_}); }
			if ($newsign) { &mhtml(qq |$newsign|); }

			if ($in{'no'} == $_) {
				&mhtml(qq |&nbsp;<font color="red">＜表\示中</font>|);
			}

			&mhtml(qq |\n|);
		} else {

			# 管理メッセージ
			if ($mytime{$_} =~ /AD$/) { &mhtml(&tag_on($KanriMessagei)); }

			&mhtml(qq |$subC\[<a href="$script?${multi_link}mode=allno&amp;tp=tree&amp;no=$_$page2"$DCMUtn>$sub{$_}</a>\]$colors{'subC'}$namC$nam{$_}$colors{'namC'}&nbsp;$dat{$_}|); # &nbsp;${noC}No.$_$colors{'noC'}|;

			# NEWマークの計算
			if ($newViewi || $newViewi2) { $newsign = &get_newsign($mytime{$_}); }
			if ($newsign) { &mhtml(qq |$newsign|); }

			if ($in{'no'} == $_) {
				&mhtml(qq |&nbsp;<font color="red">＜表\示中</font>|);
			}
		}

		# レス記事
		if (defined($res{$_})) {
			my $max = @res = split(/,/, $res{$_});
			my $i = 0;
			foreach my $res (@res) {
				$i++;
				my $tree;
				if ($i == $max) { $tree = "└"; } else { $tree = "├"; }

				# 日時
				$dat{$res} = qq |<font size="-1">$dat{$res}</font>|;

				if ($miruPass) { # 閲覧者限定時
					&mhtml(qq |<br>\n|);
					&mhtml(qq |$tree<input type="submit" name="no" value="$res">\n|);
					# 管理メッセージ
#					if ($mytime{$res} =~ /AD$/) { &mhtml(&tag_on($KanriMessagei)); }

					&mhtml(qq |$subC$sub{$res}$colors{'subC'}&nbsp;-&nbsp;$namC$nam{$res}$colors{'namC'}&nbsp;$dat{$res}|); # &nbsp;${noC}No.$res$colors{'noC'}

					# NEWマークの計算
					if ($newViewi || $newViewi2) { $newsign = &get_newsign($mytime{$res}); }
					if ($newsign) { &mhtml(qq |$newsign|); }

					if ($in{'no'} == $res) {
						&mhtml(qq |&nbsp;<font color="red">＜表\示中</font>|);
					}
					&mhtml(qq |\n|);
					if ($i == $max) { &mhtml(qq |</form>\n|); }

				} else {

					&mhtml(qq |<br>\n|);
					&mhtml(qq |$tree|);

					# 管理メッセージ
#					if ($mytime{$res} =~ /AD$/) { &mhtml(&tag_on($KanriMessagei)); }

					&mhtml(qq |$subC\[<a href="$script?${multi_link}mode=allno&amp;tp=tree&amp;no=$res&amp;top=$_$page2"$DCMUtn>$sub{$res}</a>\]$colors{'subC'}$namC$nam{$res}$colors{'namC'}&nbsp;$dat{$res}|); # &nbsp;${noC}No.$res$colors{'noC'}

					# NEWマークの計算
					if ($newViewi || $newViewi2) { $newsign = &get_newsign($mytime{$res}); }
					if ($newsign) { &mhtml(qq |$newsign|); }

					if ($in{'no'} == $res) {
						&mhtml(qq |&nbsp;<font color="red">＜表\示中</font>|);
					}
				}
			}

		} elsif ($miruPass) { # 閲覧者限定時
			&mhtml(qq |</form>\n|);
		}

	if (!$miruPass) { &mhtml(qq |\n|); }
	}
}


1;