sub output_message
{
	my ($tpcnum, $msgnum, $refnum, $title, $name, $time, $email, $url, $cont,
		$fext, $pass, $addr, $mid) = 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">
<a href="$LOG_DIR/$msgnum.$fext" target="_blank"><img src="$LOG_DIR/$msgnum.$fext" width="150" height="120" alt="" /></a>
</div>
<br />
<!--HTML-->
	}
	print << "<!--HTML-->";
<div align="center">
<a href="$SCRIPT_NAME?show=$form{show}&sort=$form{sort}&mode=write&sub=auth&ssub=res&msgnum=$msgnum#btop">この記事に返信する</a>
</div>
<!--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-->";
<br />
<div align="right">
$date [$mid]
</div>
<div align="center">
<form method="post" action="$SCRIPT_FILE#btop" style="margin-bottom: 0px;">
<input type="hidden" name="show" value="$form{show}" />
<input type="hidden" name="sort" value="$form{sort}" />
<input type="hidden" name="mode" value="write" />
<input type="hidden" name="tpcnum" value="$tpcnum" />
<input type="hidden" name="msgnum" value="$msgnum" />
処理内容：<select name="sub">
<option value="edit">編集</option>
<option value="del">削除</option>
</select>
パスワード：<input type="password" name="pass" size="8" maxlength="8" />
<input type="submit" name="submit" value="&nbsp;実&nbsp;行&nbsp;" />
</form>
</div>
</td>
</tr>
</table>
<br />
<!--HTML-->
}
1;