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

package DESIGN;

#
#   e
#
sub post {
    shift;
    my $r_subject           = shift; # 薼
    shift;
    shift;
    my $r_sage_input		= shift; # r`FbN͗
    my $r_inform_mail_input = shift; # X[`FbN
    my $r_owner_mail_input	= shift; # eҒʒm[`FbN
    shift;
    shift;
    my $r_timekey		 	= shift; #eԃL[

    my %select; $select{$::COOKIE{'mail_mode'}} = 'selected';

    print <<"<<<<<<<<<<<<<<<<<<<<<< gslkł >>>>>>>>>>>>>>>>>>>>>>";
[<a href="$CNF::place{'this'}{'url'}?id=$::FORM{'id'}">į</a>]
${&line}
<form action="$CNF::place{'this'}{'path'}" method="post">
O:<br />
<input type="text" name="name" value="$::COOKIE{'name'}" size="14" /><br />
EҰ:<br />
<input type="text" name="email" value="$::COOKIE{'email'}" size="14" /><br />
ҰӰށF<br />
<!--ƂقُCn-->
<select name="mail_mode">
 <option value="0">\\</option>
 @{[$CNF::mail{'hidden'}{'mode'} ? qq|<option value=1 selected>[</option>| : '']}
 <option value="2">J</option>
</select>
<!--ƂقُCI-->
<br />
薼:<br />
<input type="text" name="subject" value="${$r_subject}" size="14" /><br />
e:<br />
<textarea name="body" cols="14" rows="4"></textarea><br />
ΰ߰:<br />
<input type="text" name="web" value="$::COOKIE{'web'}" size="14" /><br />
߽ܰ:<br />
<input type="text" name="key" value="$::COOKIE{'key'}" size="8" /><br />
${$r_sage_input}
${$r_inform_mail_input}
${$r_owner_mail_input}
<input type="hidden" name="kanji" value="" />
<input type="hidden" name="follow" value="$::FORM{'follow'}" />
<input type="hidden" name="id" value="$::FORM{'id'}" />
<input type="hidden" name="cmd" value="pst" />
<input type="hidden" name="timekey" value="$r_timekey">
<input type="hidden" name="pky" value="g" />
<input type="submit" value="M" />
</form>
<<<<<<<<<<<<<<<<<<<<<< gslkł >>>>>>>>>>>>>>>>>>>>>>
}
#܂ń


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


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


#
#   r@\`FbN
#
sub sage_input {
    return(\<<"<<<<<<<<<<<<<<<<<<<<<< gslkł >>>>>>>>>>>>>>>>>>>>>>");
<input type="checkbox" name="sage" value="1" />sage<br />
<<<<<<<<<<<<<<<<<<<<<< gslkł >>>>>>>>>>>>>>>>>>>>>>
}
#܂ń


#
#   Xm点[`FbN
#
sub inform_mail_input {
    return(\<<"<<<<<<<<<<<<<<<<<<<<<< gslkł >>>>>>>>>>>>>>>>>>>>>>");
<input type="checkbox" name="inform_mail" value="1" />ڽҰق~<br />
<<<<<<<<<<<<<<<<<<<<<< gslkł >>>>>>>>>>>>>>>>>>>>>>
}
#܂ń


#
#   eҒʒm[`FbN
#
sub owner_mail_input {
    return(\<<"<<<<<<<<<<<<<<<<<<<<<< gslkł >>>>>>>>>>>>>>>>>>>>>>");
<input type="checkbox" name="owner_mail" value="1">e҂ɖ{eҰق<br />
<<<<<<<<<<<<<<<<<<<<<< gslkł >>>>>>>>>>>>>>>>>>>>>>
}
#܂ń


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

#
#   {FI
#
sub body_color_input {
	return;
}
#܂ń

1;

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