罪罰改造板２/157

	$log .= qq|<b style="color:$color[$camp]">現在の $cmp[$camp] に所属する将兵一覧</b><br><br>\n|;
	if($com){
		if($com =~ /:/){ &error("名前に不正な文字( : )が含まれています｡",1); }
		if($com =~ /;/){ &error("名前に不正な文字( ; )が含まれています｡",1); }
		if($com =~ /,/){ &error("名前に不正な文字( , )が含まれています｡",1); }
		if($com =~ /"/){ &error("名前に不正な文字( \" )が含まれています｡",1); }
		if($com =~ /'/){ &error("名前に不正な文字( ' )が含まれています｡",1); }
		if($com =~ /\//){ &error("名前に不正な文字( / )が含まれています｡",1); }
		if(length($com)>80){ &error("全角40文字までです。",1); }
		$com =~ s/\n//g;
		$info_mes=$com;
	}
	if($com2){
		if($com2 =~ /:/){ &error("名前に不正な文字( : )が含まれています。",1); }
		if($com2 =~ /;/){ &error("名前に不正な文字( ; )が含まれています。",1); }
		if($com2 =~ /,/){ &error("名前に不正な文字( , )が含まれています。",1); }
		if($com2 =~ /"/){ &error("名前に不正な文字( \" )が含まれています。",1); }
		if($com2 =~ /'/){ &error("名前に不正な文字( ' )が含まれています。",1); }
		if($com2 =~ /\//){ &error("名前に不正な文字( / )が含まれています。",1); }
		if(length($com2)>16){ &error("全角8文字までです。",1); }
		$com2 =~ s/\n//g;
		$K=$nm;
		$nm=$com2;
		$wr_mes ="$date $cmp[$camp] の $K が<font color='yellow'> $nm </font>に改名しました。";
		&hist_write;
	}
	local(@usrfile,@tdat);

sub infomation_com{・・・・・・・・・
コメントは全角40文字まで。
</form>
<br>
<form method="$method" action="$script" name="ore_">
<input type="hidden" name="id" value="$id">
<input type="hidden" name="pw" value="$pw">
<input type="hidden" name="cmd" value="6">
名前：<input type=text name="com2" class="button2" style="width:140px">
<input type=submit value="ポチッ/更新" class="button2" style="width:100px">
<input type=reset value="クリア"  class="button2" style="width:40px">
<br>
名前は全角8文字まで。
</form><br>
</div>
EOM

	$pw		= $in{'pw'};
	$cmd	= $in{'cmd'};
	$com	= $in{'com'};
	$com2 = $in{'com2'};

	if($com2){
		if($com2 =~ /:/){ &error("名前に不正な文字( : )が含まれています。",1); }