
#●
#---------------------------------------------------------------------------------------
# 名称     | MailForm
# Version  | 1.80
# 処理名   | 匿メールフォーム
# 動作内容 | 
# 備考     | 
# 引数     | 記事番号
# 戻り値   | なし
#
sub MailForm {

	$js = 'onLoad="document.MailForm.NAME.focus();"';
	$body =~ s/<body/<body $js/; # <body>タグに挿入

	&Html_head; # ヘッダの出力
	print "$body\n";

	print <<"EOF";
	<h1>$cmd{'name'}さんへのメール送信</h1>
	<p>
	<form action="$ENV{'SCRIPT_NAME'}?log=$cmd{'log'}" method=POST name="MailForm">
	<input type=hidden name="action" value="Toku_Mail">
	<input type=hidden name="num" value="$cmd{'num'}">
	<p>
	<table cellpadding=2 cellspacing=2 border=0>
	<tr>
	<th bgcolor=#ff99cc>名前</th>
	<td><input type=text name="NAME" value="" size=30></td>
	</tr>
	<tr>
	<th bgcolor=#ffffcc>Ｅメール</th>
	<td><input type=text name="EMAIL" value="" size=40><font size=-1>(任意)</font></td>
	</tr>
	<tr>
	<th bgcolor=#6699cc>本文</th>
	<td>
	<textarea name="VALUE" rows=6 cols=70 wrap=off></textarea></td>
	</tr>
	<tr>
	<th></th>
	<td bgcolor=#ff6633 align=center>　<input type=submit value="  ○ 送信  "> <input type=reset value="× リセット" onClick="message(); return f">　</td>
	</tr>
	</table>
	</form>
	<p>
	※ Ｅメールを記入しない場合は、相手があなたに連絡する方法などを書かないと返事がもらえませんのでご注意ください。<p>
	〔<A HREF="JavaScript:history.back()">前に戻る</A>〕
	<p></body></html>
EOF

}
#End_of_MailForm

