######################################################
#　記事削除
######################################################
#
#
sub delet{
print "Content-type: text/html\n\n";
&head;
print <<"html";
<h2>$titol</h2>
html
$m_titol = $FORM{'sm_titol'};
$m_post = $FORM{'sm_post'};
$m_memo = $FORM{'sm_memo'};
$tsus = $FORM{'sus'};
#該当データ削除
@new1=();
# ロック処理
&lock if ($lockkey);
open(IN,"$logfile");
while () {
($qxnum,$qm_date,$m_titol,$m_post,$m_memo) = split(/\<>/);
if ($FORM{'sus'} == $qxnum){ next;}
push(@new1,$_);
}
close(IN);
# ロック解除
&unlock if ($lockkey);
# ロック処理
&lock if ($lockkey);
open(OUT,">$logfile");
print OUT @new1;
close(OUT);
# ロック解除
&unlock if ($lockkey);
print <<"html";
<div id="wrapper">
<div id="main">
<p>番号「$tsus」<br>
[$FORM{'sm_titol'}][$FORM{'sm_post'}]</p>
<p>$FORM{'sm_memo'}</p>
<p>上記ログを削除しました。</p>
<div>
<a href="$prgname?" class="blk">戻る</a>
 <a href="$prgname?mode=view">記事\表\示</a>
</div>
html
exit;
}
#
#
######################################################