sub output_past_message
{
	my ($tpcnum, $msgnum, $refnum, $title, $name, $time, $email, $url, $cont,
		$fext, $pass, $addr) = split(/,/, $master[$_[0]]);
	print << "<!--HTML-->";
<a name="$msgnum"></a>
<table width="90%" border="1" align="center">
<tr>
<td bgcolor="black">
<font color="white"><b>No.$msgnum&nbsp;$title</b></font>
</td>
</tr>
<tr>
<td>
投稿者：$name
<!--HTML-->
	if ($email ne "") {
		print << "<!--HTML-->";
<a href="mailto:$email">Eメール</a>
<!--HTML-->
	}
	if ($url ne "") {
		print << "<!--HTML-->";
<a href="http://$url">ホームページ</a>
<!--HTML-->
	}
	print << "<!--HTML-->";
<br />
<br />
<table width="90%" border="0" align="center">
<tr>
<td>
$cont
</td>
</tr>
</table>
<br />
<!--HTML-->
	if ($fext ne "") {
		print << "<!--HTML-->";
<div align="center">
<img src="$PAST_LOG_DIR/$msgnum.$fext" width="150" height="120" alt="" />
</div>
<br>
<!--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-->";
<div align="right">
$date
</div>
</td>
</tr>
</table>
<br />
<!--HTML-->
}
1;