######################################################
#　ログ修正削除
######################################################
#
#
sub edit{
print "Content-type: text/html\n\n";
&head;
print <<"html";
<h2>$titol</h2>
<a href="$prgname">記事投稿</a> <a href="$prgname?mode=view">記事\表\示</a>
html
# ロック処理
&lock if ($lockkey);
open (IN,"$logfile");
while() {
($qxnum,$qm_date,$qm_titol,$qm_post,$qm_memo) = split(/\<>/);
print <<"html";
<div id="wrapper">
<div id="main">
（No:$qxnum）<br>
[$qm_titol][$qm_post]<br>
$qm_memo<br>
</div>
<div id="smain">
<table border="0" cellpadding="0" cellspacing="0"><tr><td>
<form action=\"$prgname\" method=\"post\">
<input type=hidden name=mode value="delform">
<input type="checkbox" name="tsus" value="$qxnum">
<input type="hidden" name="tm_titol" value="$qm_titol">
<input type="hidden" name="tm_date" value="$qm_date">
<input type="hidden" name="tm_post" value="$qm_post">
<input type="hidden" name="tm_memo" value="$qm_memo">
<input type="submit" value="削除" class="bttn10">
</form>
</td><td> </td><td>
<form action=\"$prgname\" method=\"post\">
<input type=hidden name=mode value="ediform">
<input type="checkbox" name="tsus" value="$qxnum">
<input type="hidden" name="tm_titol" value="$qm_titol">
<input type="hidden" name="tm_date" value="$qm_date">
<input type="hidden" name="tm_post" value="$qm_post">
<input type="hidden" name="tm_memo" value="$qm_memo">
<input type="hidden" name="" value="">
<input type="submit" value="修正" class="bttn10">
</form>
</td></tr></table>
</div>
</div>
html
}
close(IN);
# ロック解除
&unlock if ($lockkey);
exit;
}
#
#
######################################################