######################################################
#　ログ記録
######################################################
#
#
sub log{
&scook($FORM{'m_post'},$FORM{'m_titol'});
#入力確認
$m_titol = $FORM{'m_titol'};
$m_post = $FORM{'m_post'};
$m_memo = $FORM{'m_memo'};
$count=0;
$xnum=0;
if($FORM{'m_titol'} eq "") {&error("タイトルをお書きください");}
if($FORM{'m_post'} eq "") {&error("お名前をお書きください");}
if($FORM{'m_memo'} eq "") {&error("コメントをお書き下さい");}
#二重投稿禁止
# ロック処理
&lock if ($lockkey);
open(IN,"$logfile") ;
$top = ;
($cqxnum,$cqdate,$cqm_titol,$cqm_post,$cqm_memo) = split(/<>/, $top);
if ($FORM{'ttitol'} eq $cqm_titol && $FORM{'tmemo'} eq $cqm_memo) {
&error("二重投稿は禁止です。","lock");
}
close(IN);
# ロック解除
&unlock if ($lockkey);
# ロック処理
&lock if ($lockkey);
open (IN,"$logfile");
@xfile = ;
close(IN);
($qxnum,$qdate,$qm_titol,$qm_post,$qm_memo) = split(/\<>/, $xfile[0]);
$xnum=$qxnum+1;
unshift(@xfile,"$xnum<>$date<>$m_titol<>$m_post<>$m_memo<>\n");
open(OUT,">$logfile");
print OUT @xfile;
close(OUT);
# ロック解除
&unlock if ($lockkey);
#
#
######################################################
#　書き込み確認・一件表示
######################################################
#
#
# ロック処理
&lock if ($lockkey);
open(IN,"$logfile");
$top = ;
($xqxnum,$xqdate,$xqm_titol,$xqm_post,$xqm_memo) = split(/<>/, $top);
close(IN);
# ロック解除
&unlock if ($lockkey);
$xqm_memo =~ s/</ $xqm_memo =~ s/>/>/g;
&head;
print <<"html";
<div id="wrapper">
<h2>$titol</h2>
<table border="0"><tr><td>
[$xqm_titol][$xqm_post]($xqdate)
</td></tr><tr><td>
$xqm_memo
</td></tr></table>
<a href="$prgname">記事投稿</a> <a href="$prgname?mode=view">記事\表\示</a> <a href="$prgname?mode=edit">修正・削除</a>
</div>
html
exit;
}
#
#