#
#(rr)b|an`qcev[g
#
#[Mʂ̐ݒt@CłB
#ʏ̂gslkƓoŕҏW邱Ƃo܂B
#ȂArɂu$`v͂ꂼvOɂĔCӂ̕
#u܂B
#

package DESIGN;

#
#   ͉
#
sub hidden_mail {
	my $name = shift;
    print <<"<<<<<<<<<<<<<<<<<<<<<< gclkł >>>>>>>>>>>>>>>>>>>>>>";
<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>
O:<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="M" task="go" method="post" postdata="cmd=hml&name=\$name&email=\$email&subject=\$subject&body=\$body&no=$::FORM{'no'}&id=$::FORM{'id'}" dest="?">
{:<br>
</entry>
<<<<<<<<<<<<<<<<<<<<<< gclkł >>>>>>>>>>>>>>>>>>>>>>
}

1;

# $Id: hmn.txt,v 1.3 2006/03/09 09:19:39 susumu Exp $;
