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

package DESIGN;

#
#   e
#
sub post {
	shift;
    my $r_subject = 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">
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="" task="go" dest="#web">
{:<br>
</entry>
<entry name="web" key="web" default="$::COOKIE{'web'}">
<action type="accept" label="" task="go" dest="#key">
ΰ߰:<br>
</entry>
<entry name="key" key="key" default="$::COOKIE{'key'}" noecho="true">
<action type="accept" label="M" task="go" method="post" postdata="cmd=pst&name=\$name&email=\$email&mail_mode=$mail_mode&subject=\$subject&body=\$body&web=\$web&key=\$key&follow=$::FORM{'follow'}&id=$::FORM{'id'}" dest="?">
߽ܰ:<br>
</entry>
<<<<<<<<<<<<<<<<<<<<<< gclkł >>>>>>>>>>>>>>>>>>>>>>
}
#܂ń

#
#   W͗
#
sub genre_input {
    return;
}
#܂ń


#
#   t@C͗
#
sub upload_input {
    return;
}
#܂ń


#
#@ r@\`FbN
#
sub sage_input {
    return;
}
#܂ń


#
#@ Xm点[`FbN
#
sub inform_mail_input {
    return;
}
#܂ń


#
#@ eҒʒm[`FbN
#
sub owner_mail_input {
    return;
}


#
#   Qƕ
#
sub reference {
    return;
}
#܂ń

1;

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