######################################################
#　新規記事投稿
######################################################
#
#
sub n_post {
print "Content-type: text/html\n\n";
local($cpost,$ctitol) = &gcook;
&head;
print <<"html";
<div id="wrapper">
<a href="$prgname?mode=view">記事\表\示</a>
<form method="post" action="$prgname">
<input type=hidden name=mode value="log">
<h2>記事投稿</h2>
<div id="main">
<p>タイトル：<br><input type="text" size="40" name="m_titol" value="$ctitol" class="i_text4"></p>
<p>投稿者：<br><input type="text" size="40" name="m_post" value="$cpost" class="i_text4"></p>
<p>記事内容：<br><textarea cols="70" rows="10" name="m_memo" value="" class="i_text5"></textarea>
</p>
</div>
<p><input type="submit" value="書 込" class="bttn10">
<input type="reset" value="取 消" class="bttn10">
<input type="button" value="閉じる" onClick=window.close() class="bttn10"></p>
</form>
</div>
</body>
</html>
html
exit;
}
#
#
######################################################