######################################################
#　記事修正
######################################################
#
#
sub correct{
print "Content-type: text/html\n\n";
&head;
print <<"html";
<h2>$titol</h2>
<a href="$prgname">記事投稿</a> 
html
$rsus = $FORM{'ssus'};
$rm_date = $FORM{'sm_date'};
$rm_titol = $FORM{'sm_titol'};
$rm_post = $FORM{'sm_post'};
$rm_memo = $FORM{'sm_memo'};
##修正書き込み
@new=();
# ロック処理
&lock if ($lockkey);
open(IN,"$logfile");
#$top = ;
while () {
chop;
($qxnum,$qm_date,$qm_titol,$qm_post,$qm_memo) = split(/\<>/);
if ($FORM{'ssus'} == $qxnum){
$_ = "$rsus<>$rm_date<>$rm_titol<>$rm_post<>$rm_memo<>";
}
push(@new,"$_\n");}
close(IN);
# ロック解除
&unlock if ($lockkey);
# ログを更新
#unshift(@new,$top);
# ロック処理
&lock if ($lockkey);
open(OUT,">$logfile");
print OUT @new;
close(OUT);
# ロック解除
&unlock if ($lockkey);
print <<"html";
<div id="wrapper">
<div id="main">
rsus「番号:$rsus」<br>
<p>「日付：$rm_date」</p>
<p>タイトル：$rm_titol</p>
<p>名前：$rm_post</p>
<p>メモ：$FORM{'sm_memo'}</p>
</div>
<a href="$prgname?mode=view&pass1=$qpass1" class="blk">トップへ戻る</a>
</div>
</body>
</html>
html
exit;
}
#
#
######################################################