######################################################
#　ログ出力
######################################################
#
#
sub view{
print "Content-type: text/html\n\n";
&head;
print <<"html";
<h2>$titol</h2>
<a href="$prgname">記事投稿</a> 
<a href="$prgname?mode=edit">修正・削除</a>
html
# ロック処理
&lock if ($lockkey);
open (IN,"$logfile");
while() {
($qxnum,$qdate,$qm_titol,$qm_post,$qm_memo) = split(/\<>/);
$qm_memo =~ s/</ $qm_memo =~ s/>/>/g;
print <<"html";
<div id="wrapper">
<table cellspacing="0" cellpadding="0"><tr><td>
[ $qm_titol ][ $qm_post ]($qdate)
</td></tr><tr><td>
$qm_memo
</td></tr><tr>
</td></tr></table>
</div>
html
}
close(IN);
# ロック解除
&unlock if ($lockkey);
exit;
}
#
#
######################################################