#┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
#┃■(ＳＳ)Ｃ−ＢＯＡＲＤテンプレート(とほほ改ver1.1.03) KID改造デフォルト非公開
#┠──────────────────────────────────────
#┃投稿画面の設定ファイルです。                           around line 68
#┃通常のＨＴＭＬと同じ感覚で編集することが出来ます。
#┃なお、途中にある「$〜」はそれぞれプログラムによって任意の文字列に
#┃置き換えられます。
#┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━

package DESIGN;

#┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
#┃   投稿画面
#┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
sub post {
	my $r_genre_input		= shift; #── ジャンル入力欄
	my $r_subject			= shift; #── 題名
	my $r_body			= shift; #── 引用文
	my $r_upload_input		= shift; #── ファイル入力欄
	my $r_sage_input		= shift; #── Ｓａｇｅチェック入力欄
	my $r_inform_mail_input		= shift; #── レスメールチェック欄
	my $r_owner_mail_input		= shift; #── 投稿者通知メールチェック欄
	my $r_reference 		= shift; #── 参照文
   	my $r_body_color_input		= shift; #── 本文色
#とほほ修正開始
	my $r_postkey_input 		= shift; #──ワンタイム投稿キー
	my $upfile_list 		= shift; #──アップ可能ファイル
	my $upfile_size 		= shift; #──アップ可能サイズ
	my $upfile_com	 		= shift;
	my $upsize_com	 		= shift;
	my $sub_com	 		= shift;
	my $name_com	 		= shift;
	my $email_com	 		= shift;
	my $key_com	 		= shift;
	my $body_com	 		= shift;
	my $web_com	 		= shift;
	my $gen_com	 		= shift;
#とほほ修正終了
	my %select; $select{$::COOKIE{'mail_mode'}} = 'selected';

	print <<"<<<<<<<<<<<<<<<<<<<<<< ＨＴＭＬです >>>>>>>>>>>>>>>>>>>>>>";
<table border=0 cellspacing=0 cellpadding=0">
 <tr>
  <td><img src="$CNF::place{'image'}{'url'}/bse_table_lu.gif" width=8 height=7 alt=""></td>
  <td background="$CNF::place{'image'}{'url'}/bse_table_cu.gif"><img src="$CNF::place{'image'}{'url'}/_.gif" width=1 height=1 alt=""></td>
  <td><img src="$CNF::place{'image'}{'url'}/bse_table_ru.gif" width=8 height=7 alt=""></td>
 </tr>
 <tr>
  <td background="$CNF::place{'image'}{'url'}/bse_table_lc.gif"><img src="$CNF::place{'image'}{'url'}/_.gif" width=1 height=1 alt=""></td>
  <td bgcolor="#eeeeee" background="$CNF::place{'image'}{'url'}/bse_table_wall.gif">
<!--とほほ修正開始-->
  <table border=0 cellspacing=0 cellpadding=0 width="100%">
   <tr><td align="center">$CNF::STY::psn{'title'}{'icon'}</td><td align="center"><span class=Post>[<A href="javascript:Open_WL('$CNF::place{'this'}{'path'}?cmd=inf;id=$::FORM{'id'}')" title="小窓を開いて表\示します">留意事項</A>]</span><br><FONT size="1">使用可能\HTMLタグ等確認してください</FONT></td></tr>
  </table>
  <table border=0 cellspacing=0 cellpadding=0>
   <tr><td colspan=2>
     <form action="$CNF::place{'this'}{'path'}?id=$::FORM{'id'}" method="post"
	@{[$CNF::upload{'mode'} ? 'enctype="multipart/form-data"' : '']}>
       </td></tr>
   <tr>
    <td align="center" nowrap><span class=Post>投稿者$name_com</span></td>
    <td><input type="text" name="name" size=30 value="$::COOKIE{'name'}" class=PostInput></td>
   </tr>
   <tr>
    <td align="center" nowrap><span class=Post>Ｅメール$email_com</span></td>
    <td><input type="text" name="email" size=30 value="$::COOKIE{'email'}" class=PostInput>
	  <select name="mail_mode" class=PostInput>
	   <option value="2" $select{'2'}>非公開</option>
	   @{[$CNF::mail{'hidden'}{'mode'}
		  ? qq|<option value="1" $select{'1'}>匿メール</option>| : '']}
	   <option value="2" $select{'2'}>非公開</option>
	  </select><FONT size="1" color="#0033ff">公開・非公開等選択</FONT>
    </td>
   </tr>
   <tr>
    <td align="center" nowrap><span class=Post>題名$sub_com</span></td>
    <td><input type="text" name="subject" size=40 value="${$r_subject}" class=PostInput>${$r_genre_input}<small>$gen_com</small></td>
   </tr>
${$r_body_color_input}
   <tr>
    <td align="center" nowrap><span class=Post>内容$body_com</span></td>
    <td><textarea name="body" rows=$CNF::STY::psn{'body'}{'height'} cols=$CNF::STY::psn{'body'}{'width'} wrap=soft class=PostInput>${$r_body}</textarea></td>
   </tr>
   <tr>
    <td>&nbsp;</td>
    <td nowrap>
     <table border=0 cellspacing=0 cellpadding=0 width="100%">
	<tr>
	 <td><span class=Post>(↑ ＵＲＬ、メールアドレスには自動的にリンクが張られます。)</span></td>
	 <td align="right">
	     <span class=Post>
	      <input type="checkbox" name="typewriter" value="1" class=PostInput
	             @{[$::FORM{'typewriter'} ? 'checked' : '']}
	             title="各文字幅が同じになります。">等幅&nbsp;</span>
	 </td>
	</tr>
     </table>
    </td>
   </tr>
   <tr>
    <td align="center" nowrap><span class=Post>ホームページ<BR>$web_com</span></td>
    <td><input type=text name="web" size=50 value="$::COOKIE{'web'}" class=PostInput></td>
   </tr>
   ${$r_upload_input}
	<tr>
	 <td align="center">
	  <span class=Post>$upfile_com</span>
	 </td>
    <td>
   	 <span class=Post>$upfile_list</span>
    </td>
   </tr>
	<tr>
	 <td align="center">
	  <span class=Post>$upsize_com</span>
	 </td>
    <td>
   	 <span class=Post>$upfile_size</span>
    </td>
   </tr>
   <tr>
    <td align="center" nowrap><span class=Post>パスワード$key_com</span></td>
    <td><input size=15 type=password name="key" value="$::COOKIE{'key'}" class=PostInput></td>
   </tr>
$r_postkey_input
   ${$r_inform_mail_input}
   ${$r_owner_mail_input}
  </table>
  <table border=0 cellspacing=0 cellpadding=0 width="100%">
   <tr>
    <td width="70%">&nbsp;
	<input type=hidden name="kanji" value="漢字">
	<input type=hidden name="follow" value="$::FORM{'follow'}">
	<input type=hidden name="cmd" value="pst">
    </td>
    <td nowrap>
	$CNF::STY::psn{'send'}{'button'}
	<span class=Post>
	  <input type=checkbox name="preview" value="1" class=PostInput title="チェックすると実際に投稿する前に表\示のされ方を確認できます。">プレビュー</span>		${$r_sage_input}
    </td>
   </tr>
   <tr><td colspan=2></form></td></tr>
  </table>
<!--とほほ修正終了-->
 </td>
 <td background="$CNF::place{'image'}{'url'}/bse_table_rc.gif"><img src="$CNF::place{'image'}{'url'}/_.gif" width=1 height=1 alt=""></td>
</tr>
<tr>
  <td><img src="$CNF::place{'image'}{'url'}/bse_table_ld.gif" width=8 height=9 alt=""></td>
  <td background="$CNF::place{'image'}{'url'}/bse_table_cd.gif"><img src="$CNF::place{'image'}{'url'}/_.gif" width=1 height=1 alt=""></td>
  <td><img src="$CNF::place{'image'}{'url'}/bse_table_rd.gif" width=8 height=9 alt=""></td>
 </tr>
</table>
${$r_reference}
${&line}
<<<<<<<<<<<<<<<<<<<<<< ＨＴＭＬです >>>>>>>>>>>>>>>>>>>>>>
}
#────ここまで───────────────────────────────


#┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
#┃   ジャンル入力欄
#┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
sub genre_input {
	my %select; $select{($::COOKIE{'genre'} || $::FORM{'genre'})} = 'selected';
	my $input = <<"<<<<<<<<<<<<<<<<<<<<<< ＨＴＭＬです >>>>>>>>>>>>>>>>>>>>>>";
  <select name="genre" class=PostInput>
   <option value="" $select{''}>$CNF::view{'genre'}{'menu'}</option>
<<<<<<<<<<<<<<<<<<<<<< ＨＴＭＬです >>>>>>>>>>>>>>>>>>>>>>

	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);
}
#────ここまで───────────────────────────────


#┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
#┃   ファイル入力欄
#┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
sub upload_input {
	return(\<<"<<<<<<<<<<<<<<<<<<<<<< ＨＴＭＬです >>>>>>>>>>>>>>>>>>>>>>");
	<tr>
	 <td align="center" nowrap>
	  <span class=Post>ファイル</span>
	 </td>
	 <td><input type=file name="file" size=50 class=PostInput></td>
	</tr>
<<<<<<<<<<<<<<<<<<<<<< ＨＴＭＬです >>>>>>>>>>>>>>>>>>>>>>
}
#────ここまで───────────────────────────────


#┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
#┃   レスお知らせメールチェック欄
#┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
sub inform_mail_input {
	return(\<<"<<<<<<<<<<<<<<<<<<<<<< ＨＴＭＬです >>>>>>>>>>>>>>>>>>>>>>");
	<tr>
	 <td colspan=2 align="right">
	  <span class=Post>
	   <input type=checkbox name="inform_mail" value="1" class=PostInput
			  @{[$::COOKIE{'inform_mail'} ? 'checked' : '']}>
	   レスがあったらメールが欲しい（要メールアドレス）
	  </span>
	 </td>
	</tr>
<<<<<<<<<<<<<<<<<<<<<< ＨＴＭＬです >>>>>>>>>>>>>>>>>>>>>>
}
#────ここまで───────────────────────────────


#┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
#┃   投稿者通知メールチェック欄
#┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
sub owner_mail_input {
	return(\<<"<<<<<<<<<<<<<<<<<<<<<< ＨＴＭＬです >>>>>>>>>>>>>>>>>>>>>>");
	<tr>
	 <td colspan=2 align="right">
	  <span class=Post>
	   <input type=checkbox name="owner_mail" value="1" class=PostInput
			  @{[$::COOKIE{'owner_mail'} ? 'checked' : '']}>
	   投稿内容を投稿者にメールする（要メールアドレス）
	  </span>
	 </td>
	</tr>
<<<<<<<<<<<<<<<<<<<<<< ＨＴＭＬです >>>>>>>>>>>>>>>>>>>>>>
}
#────ここまで───────────────────────────────


#┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
#┃   参照文
#┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
sub reference {
	my $r_body = shift; #── 本文

	return(\<<"<<<<<<<<<<<<<<<<<<<<<< ＨＴＭＬです >>>>>>>>>>>>>>>>>>>>>>");
${&line}
<table border=0 cellspacing=0 cellpadding=0 width="$CNF::STY::all{'body'}{'table'}{'width'}">
 <tr>
  <td colspan=2><span class=AllBody><b>■元記事：</b><br><br></span></td>
 </tr>
 <tr>
  <td width="1%">&nbsp;&nbsp;</td>
  <td><span class=AllBody>${$r_body}</span></td>
 </tr>
</table>
<<<<<<<<<<<<<<<<<<<<<< ＨＴＭＬです >>>>>>>>>>>>>>>>>>>>>>
}
#────ここまで───────────────────────────────


#┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
#┃   Ｓａｇｅ機能チェック欄
#┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
sub sage_input {
	return(\<<"<<<<<<<<<<<<<<<<<<<<<< ＨＴＭＬです >>>>>>>>>>>>>>>>>>>>>>");
<span class=Post>
 <input type="checkbox" name="sage" value=1 class=PostInput
     @{[($::COOKIE{'sage'} || $::FORM{'sage'}) ? 'checked' : '']}
     title="チェックすると記事に返信してもツリーを上げません。">sage&nbsp;</span>
<<<<<<<<<<<<<<<<<<<<<< ＨＴＭＬです >>>>>>>>>>>>>>>>>>>>>>
}
#────ここまで───────────────────────────────


#┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
#┃   本文色選択欄
#┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
sub body_color_input {
	my %select; $select{($::COOKIE{'body_color'} || $::FORM{'body_color'})} = 'checked';
	my $input = qq|     <tr>\n|;
	$input .= qq|       <td align="center" nowrap><span class=Post>本文色</span></td>\n|;
	$input .= qq|       <td>\n|;
	$input .= qq|         <span class=Post>\n|;
	for (1..5) {
		if ($select{qq|body_color|.qq|$_|} eq 'checked')
		{
			$input .= qq|           <input type="radio" name="body_color" value="body_color$_" checked><font color="$CNF::STY::all{'body'}{$_}{'font'}{'color'}">■</font>\n|
		}
		else
		{
			$input .= qq|           <input type="radio" name="body_color" value="body_color$_"><font color="$CNF::STY::all{'body'}{$_}{'font'}{'color'}">■</font>\n|
		}
	}
	$input .= qq|         </span>\n|;
	$input .= qq|       </td>\n|;
	$input .= qq|     </tr>\n|;

	return(\$input);
}
#────ここまで───────────────────────────────

1;

# $Id: psn.txt,v 2.1 2003/12/12 12:00:00 N.Hirai Exp $;