#----------------------#
#  フォーム2 : 発言部  #
#----------------------#
sub form2 {
	&regist('into');

	# MSIEはフォーム長を調整
   	if ($ENV{'HTTP_USER_AGENT'} =~ /MSIE/i) {
		$text_width = 90;
	}
	else {
		$text_width = 50;
	}

	&header;
	print <<"EOM";
</head>
$body
<form name=send method=$method action="$script" target="log">
	<input type=hidden name=mode value="regist">
	<input type=hidden name=name value="$in{'name'}">
	<b>発言</b>：
	<input type=text size="$text_width" name=comment><br>
	リロード
	<select name=retime>
EOM
	foreach (@retime) {
		if ($in{'retime'} == $_) {
			print "<option value=$_ selected>$_秒\n";
		}
		else {
			print "<option value=$_>$_秒\n";
		}
	}
	print "</select> 文字色 <select name=color>\n";
	foreach (0 .. $#COLORS) {
		if ($in{'color'} eq "$COLORS[$_]") {
			print "<option value=$COLORS[$_] selected>$IROIRO[$_]\n";
		}
		else {
			print "<option value=$COLORS[$_]>$IROIRO[$_]\n";
		}
	}

	print <<"EOM";
	</select>
	<input type=submit value="発言／リロード">
	<input type=reset value="クリア">
</form>

<form action="$script" method="$method" target=form>
<table>
<tr>
<td>
  <input type=submit value="退室する">
  <input type=hidden name=mode value="byebye">
  <input type=hidden name=name value="$in{'name'}">
</td>
</form>

<td valign=top>
  <form name="cmode">
  <input type="checkbox" name="autoclear" checked>発言自動消去
</td>
</form>
</tr>
</table>
</body></html>
EOM
	exit;
}