#
#(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 istyle=3><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 istyle=1><br>
e:<br>
<textarea name="body" cols=14 rows=4 istyle=1></textarea><br>
ΰ߰:<br>
<input type=text name="web" value="$::COOKIE{'web'}" size=14 istyle=3><br>
߽ܰ:<br>
<input type=text name="key" value="$::COOKIE{'key'}" size=8 istyle=3><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 $;
