sub output_past_topic_begin
{
	print << "<!--HTML-->";
<div align="center">
<b>トピック表示</b>
</div>
<br />
<table width="90%" border="1" align="center">
<tr bgcolor="black">
<td align="center"><font color="white"><b>タイトル</b></font></td>
<td align="center"><font color="white"><b>記事数</b></font></td>
<td align="center"><font color="white"><b>作成者</b></font></td>
<td align="center"><font color="white"><b>最終更新日</b></font></td>
</tr>
<!--HTML-->
}

sub output_past_topic
{
	my ($linenum) = $_[0];
	my ($tpcnum, $msgnum, $refnum, $title, $name, $time) = split(/,/, $master[$linenum]);
	$linenum++;
	if ($refnum == 0) {
		my $update = $time;
		my $ntopics = 1;
		for (my $i = $linenum; $i <= $#master; $i++) {
			my (undef, undef, $trefmsgnum, undef, undef, $ttime) = split(/,/, $master[$i]);
			if ($update < $ttime) {
				$update = $ttime;
			}
			if ($trefmsgnum != 0) {
				$ntopics++;
			} else {
				last;
			}
		}

		my @week = ("日", "月", "火", "水", "木", "金", "土");
		my ($sec, $min, $hour, $mday, $mon, $year, $wday) = localtime($time);
		my $date = sprintf("%04d/%02d/%02d(%s) %02d:%02d:%02d", $year + 1900, $mon + 1, $mday, $week[$wday], $hour, $min, $sec);
		($sec, $min, $hour, $mday, $mon, $year, $wday) = localtime($update);
		$update = sprintf("%04d/%02d/%02d(%s) %02d:%02d:%02d", $year + 1900, $mon + 1, $mday, $week[$wday], $hour, $min, $sec);

		print << "<!--HTML-->";
<tr>
<td>
<a href="$SCRIPT_FILE?show=$form{show}&sort=$form{sort}&viewnum=$form{viewnum}&mode=pastall&pastnum=$form{pastnum}&tpcnum=$tpcnum">$MSG_ICON</a>
<a href="$SCRIPT_FILE?show=$form{show}&sort=$form{sort}&viewnum=$form{viewnum}&mode=pastall&pastnum=$form{pastnum}&tpcnum=$tpcnum">$title</a>
<br />
　└
No.$msgnum
$date
</td>
<td align="center">
$ntopics
</td>
<td align="center">
$name
</td>
<td align="center">
$update
</td>
</tr>
<!--HTML-->
	}
	return $linenum;
}

sub output_past_topic_end
{
	print << "<!--HTML-->";
</table>
<br />
<!--HTML-->
}
1;