#┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
#┃■(ＳＳ)Ｃ−ＢＯＡＲＤテンプレート
#┠──────────────────────────────────────
#┃匿メール送信画面の設定ファイルです。
#┃通常のＨＴＭＬと同じ感覚で編集することが出来ます。
#┃なお、途中にある「$〜」はそれぞれプログラムによって任意の文字列に
#┃置き換えられます。
#┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━

package DESIGN;

#┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
#┃   入力画面
#┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
sub hidden_mail {
	my $name = shift;
    print <<"<<<<<<<<<<<<<<<<<<<<<< ＨＤＭＬです >>>>>>>>>>>>>>>>>>>>>>";
<action type="soft1" label="戻る" task="prev">
<entry name="name" key="name" default="$::COOKIE{'name'}">
<action type="accept" label="次へ" task="go" dest="#email">
■匿メール<br>
宛先: <b>$name</b><br><br>
名前:<br>
</entry>
<entry name="email" key="email" default="$::COOKIE{'email'}">
<action type="accept" label="次へ" task="go" dest="#subject">
Eﾒｰﾙ:<br>
</entry>
<entry name="subject" key="subject" default="${$r_subject}">
<action type="accept" label="次へ" task="go" dest="#body">
件名:<br>
</entry>
<entry name="body" key="body" default="">
<action type="accept" label="送信" task="go" method="post" postdata="cmd=hml&name=\$name&email=\$email&subject=\$subject&body=\$body&no=$::FORM{'no'}&id=$::FORM{'id'}" dest="?">
本文:<br>
</entry>
<<<<<<<<<<<<<<<<<<<<<< ＨＤＭＬです >>>>>>>>>>>>>>>>>>>>>>
}

1;

# $Id: hmn.txt,v 1.1.1.2 2001/11/02 14:25:00 N.Hirai Exp $;