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

package DESIGN;

#
#   e
#
sub post {
	my $r_genre_input		= shift; # W͗
	my $r_subject			= shift; # 薼
	my $r_body				= shift; # p
	my $r_upload_input		= shift; # t@C͗
	my $r_sage_input		= shift; # r`FbN͗
	my $r_inform_mail_input	= shift; # X[`FbN
	my $r_owner_mail_input	= shift; # eҒʒm[`FbN
	my $r_reference 		= shift; # Qƕ
   	my $r_body_color_input	= shift; # {F
	my $r_timekey		 	= shift; #eԃL[

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

	print <<"<<<<<<<<<<<<<<<<<<<<<< gslkł >>>>>>>>>>>>>>>>>>>>>>";

<table border=0 cellspacing=0 cellpadding=0 width=$CNF::STY::pda{'width'} background="$CNF::STY::psn{'table'}{'wall'}{'image'}" bgcolor="$CNF::STY::psn{'table'}{'back'}">
 <tr>
  <td>
   <form action="$CNF::place{'this'}{'path'}?id=$::FORM{'id'}" method="post"
   @{[$CNF::upload{'mode'} ? 'enctype="multipart/form-data"' : '']}>
  </td>
 </tr>
 <tr>
  <td>
   <span class=Post>e</span><br>
   <input type=text name="name" size=40 value="$::COOKIE{'name'}" class=PostInput><br>
   <span class=Post>d[</span><br>
   <input type=text name="email" size=40 value="$::COOKIE{'email'}" class=PostInput>
   <select name="mail_mode" class=PostInput>
    <option value=0 $select{'0'}>\\</option>
    @{[$CNF::mail{'hidden'}{'mode'} ? qq|<option value="1" $select{'1'}>[</option>| : '']}
    <option value=2 $select{'2'}>J</option>
   </select><br>
   <span class=Post>薼</span><br>
   <input type=text name="subject" size=40 value="${$r_subject}" class=PostInput>${$r_genre_input}<br>
   <span class=Post>e</span><br>
   <textarea name="body" rows="$CNF::STY::pda{'body'}{'height'}" cols=$CNF::STY::pda{'body'}{'width'} wrap=soft class=PostInput>${$r_body}</textarea><br>
   <span class=Post>(URLA[AhX͎NB)</span><br>
   <span class=Post>
    <input type=checkbox name="typewriter" value=1 class=PostInput @{[$::FORM{'typewriter'} ? 'checked' : '']} title="eɂȂ܂B">&nbsp;</span><br>
   <span class=Post>z[y[W</span><br>
   <input type=text name="web" size=50 value="$::COOKIE{'web'}" class=PostInput>
  </td>
 </tr>
</talbe>
<table border=0 cellspacing=0 cellpadding=0 width=$CNF::STY::pda{'width'} background="$CNF::STY::psn{'table'}{'wall'}{'image'}" bgcolor="$CNF::STY::psn{'table'}{'back'}">
 <tr>
  <td>
${$r_upload_input}
  </td>
 </tr>
</talbe>
<table border=0 cellspacing=0 cellpadding=0 width=$CNF::STY::pda{'width'} background="$CNF::STY::psn{'table'}{'wall'}{'image'}" bgcolor="$CNF::STY::psn{'table'}{'back'}">
 <tr>
  <td>
   <span class=Post>pX[h</span><br>
   <input size=15 type=password name="key" value="$::COOKIE{'key'}" class=PostInput><br>
  </td>
 </tr>
</talbe>
<table border=0 cellspacing=0 cellpadding=0 width=$CNF::STY::pda{'width'} background="$CNF::STY::psn{'table'}{'wall'}{'image'}" bgcolor="$CNF::STY::psn{'table'}{'back'}">
 <tr>
  <td>
   ${$r_inform_mail_input}
   ${$r_owner_mail_input}
  </td>
 </tr>
</table>
<table border=0 cellspacing=0 cellpadding=0 width=$CNF::STY::pda{'width'} background="$CNF::STY::psn{'table'}{'wall'}{'image'}" bgcolor="$CNF::STY::psn{'table'}{'back'}">
 <tr>
  <td>
   <input type=hidden name="kanji" value="">
   <input type=hidden name="follow" value="$::FORM{'follow'}">
   <input type=hidden name="cmd" value="pst">
   <input type="hidden" name="timekey" value="$r_timekey">
  </td>
 </tr>
 <tr>
  <td align="right">
   $CNF::STY::psn{'send'}{'button'}
   <span class=Post>
   <input type=checkbox name="preview" value=1 class=PostInput title="`FbNƎۂɓeOɕ\\̂mFł܂B">vr[</span>
   ${$r_sage_input}
  </td>
 </tr></form>
</table>
<span class=AllBody>${$r_reference}</span>
${&line}
<<<<<<<<<<<<<<<<<<<<<< gslkł >>>>>>>>>>>>>>>>>>>>>>
}
#܂ń


#
#   W͗
#
sub genre_input {
	my %select; $select{($::COOKIE{'genre'} || $::FORM{'genre'})} = 'selected';
	my $input = <<"<<<<<<<<<<<<<<<<<<<<<< gslkł >>>>>>>>>>>>>>>>>>>>>>";
   <select name="genre" class=PostInput>
	<option value="" $select{''}>$CNF::view{'genre'}{'menu'}</option>
<<<<<<<<<<<<<<<<<<<<<< gslkł >>>>>>>>>>>>>>>>>>>>>>

	foreach (sort keys %{$CNF::view{'genre'}{'list'}}) {
		$input .= qq|<option value="$_" $select{$_}>|
			. qq|$CNF::view{'genre'}{'list'}{$_}{'name'}</option>\n|;
	}
	$input .= qq|</select>\n|; return(\$input);
}
#܂ń


#
#   t@C͗
#
sub upload_input {
	return(\<<"<<<<<<<<<<<<<<<<<<<<<< gslkł >>>>>>>>>>>>>>>>>>>>>>");
	<tr>
	 <td align="center" nowrap><span class=Post>FILE:</span></td>
	 <td><input type=file name="file" size=35 class=PostInput></td>
	</tr>
<<<<<<<<<<<<<<<<<<<<<< gslkł >>>>>>>>>>>>>>>>>>>>>>
}
#܂ń


#
#   Xm点[`FbN
#
sub inform_mail_input {
	return(\<<"<<<<<<<<<<<<<<<<<<<<<< gslkł >>>>>>>>>>>>>>>>>>>>>>");
	<tr>
	 <td colspan=2 align="right">
	  <span class=Post>
	   <input type=checkbox name="inform_mail" value=1 class=PostInput @{[$::COOKIE{'inform_mail'} ? 'checked' : '']}>X烁[~iv[AhXj</span>
	 </td>
	</tr>
<<<<<<<<<<<<<<<<<<<<<< gslkł >>>>>>>>>>>>>>>>>>>>>>
}
#܂ń


#
#   eҒʒm[`FbN
#
sub owner_mail_input {
	return(\<<"<<<<<<<<<<<<<<<<<<<<<< gslkł >>>>>>>>>>>>>>>>>>>>>>");
	<tr>
	 <td colspan=2 align="right">
	  <span class=Post>
	   <input type=checkbox name="owner_mail" value=1 class=PostInput @{[$::COOKIE{'owner_mail'} ? 'checked' : '']}>ee𓊍e҂Ƀ[iv[AhXj</span>
	 </td>
	</tr>
<<<<<<<<<<<<<<<<<<<<<< gslkł >>>>>>>>>>>>>>>>>>>>>>
}
#܂ń


#
#   Qƕ
#
sub reference {
	my $r_body = shift; # {

	return(\<<"<<<<<<<<<<<<<<<<<<<<<< gslkł >>>>>>>>>>>>>>>>>>>>>>");
${&line}

<table border=0 cellspacing=0 cellpadding=0 width=$CNF::STY::all{'body'}{'table'}{'width'}>
 <tr>
  <td colspan=2><span class=AllBody><strong>LF</strong><br><br></span></td>
 </tr>
 <tr>
  <td width="1%">&nbsp;&nbsp;</td>
  <td><span class=AllBody>${$r_body}</span></td>
 </tr>
</table>
<<<<<<<<<<<<<<<<<<<<<< gslkł >>>>>>>>>>>>>>>>>>>>>>
}
#܂ń


#
#   r@\`FbN
#
sub sage_input {
	return(\<<"<<<<<<<<<<<<<<<<<<<<<< gslkł >>>>>>>>>>>>>>>>>>>>>>");
<span class=Post>
 <input type=checkbox name="sage" value=1 class=PostInput @{[($::COOKIE{'sage'} || $::FORM{'sage'}) ? 'checked' : '']} title="`FbNƋLɕԐMĂc[グ܂B">sage&nbsp;</span>
<<<<<<<<<<<<<<<<<<<<<< gslkł >>>>>>>>>>>>>>>>>>>>>>
}
#܂ń

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

1;

# $Id: psn.txt,v1.0 2003/09/11 12:00:00 N.Hirai Exp $;
