sub output_past_tree_begin
{
	print << "<!--HTML-->";
<div align="center">
<b>ツリー表示</b>
</div>
<br />
<table width="90%" border="0" align="center">
<tr>
<td>
<!--HTML-->
}

sub output_past_tree
{
	my ($linenum, $indent) = @_;
	my ($tpcnum, $msgnum, $refnum, $title, $name, $time) = split(/,/, $master[$linenum]);
	if ($refnum == 0) {
		print << "<!--HTML-->";
<a href="$SCRIPT_FILE?show=$form{show}&sort=$form{sort}&viewnum=$form{viewnum}&mode=pastall&pastnum=$form{pastnum}&tpcnum=$tpcnum">$ALL_ICON</a>
<!--HTML-->
	} else {
		print << "<!--HTML-->";
$indent
<!--HTML-->
	}
	print << "<!--HTML-->";
<!--HTML-->
	if (time - $time < 60 * 60 * 24 * 7) {
		print << "<!--HTML-->";
<a href="$SCRIPT_FILE?show=$form{show}&sort=$form{sort}&viewnum=$form{viewnum}&mode=pastall&pastnum=$form{pastnum}&tpcnum=$tpcnum#$msgnum">$NEW_ICON</a>
<!--HTML-->
	} else {
		print << "<!--HTML-->";
<a href="$SCRIPT_FILE?show=$form{show}&sort=$form{sort}&viewnum=$form{viewnum}&mode=pastall&pastnum=$form{pastnum}&tpcnum=$tpcnum#$msgnum">$MSG_ICON</a>
<!--HTML-->
	}
	print << "<!--HTML-->";
<a href="$SCRIPT_FILE?show=$form{show}&sort=$form{sort}&viewnum=$form{viewnum}&mode=pastall&pastnum=$form{pastnum}&tpcnum=$tpcnum#$msgnum">$title</a>
<!--HTML-->
	my ($sec, $min, $hour, $mday, $mon, $year, $wday) = localtime($time);
	my @week = ("日", "月", "火", "水", "木", "金", "土");
	my $date = sprintf("%04d/%02d/%02d(%s) %02d:%02d:%02d", $year + 1900, $mon + 1, $mday, $week[$wday], $hour, $min, $sec);
	print << "<!--HTML-->";
&nbsp;-&nbsp;$name&nbsp;$date&nbsp;No.$msgnum
<br />
<!--HTML-->
	my $nrefs = 0;
	$linenum++;
	for (my $i = $linenum; $i <= $#master; $i++) {
		my (undef, undef, $trefmsgnum) = split(/,/, $master[$i]);
		if ($msgnum == $trefmsgnum) {
			$nrefs++;
		}
	}
	for (my $i = 0; $i < $nrefs; $i++) {
		my $tindent = $indent;
		$tindent =~ s/├/│/;
		$tindent =~ s/└/　/;
		if ($i < $nrefs - 1) {
			$tindent .= "├";
		} else {
			$tindent .= "└";
		}
		$linenum = &output_past_tree($linenum, $tindent);
	}
	return $linenum;
}

sub output_past_tree_end
{
	print << "<!--HTML-->";
</td>
</tr>
</table>
<br />
<!--HTML-->
}
1;