罪罰/他国へ一括通信１

• # ログ書き込み処理
  sub regist {
  
         if($in{'camp'}&&!$in{'nm'}){
                 # $in{'nm'} = "$camp_info[$DAT{'camp'}][0]";
                 # $DAT{'nm'} ="$DAT{'nm'}(多)";
                 $tocamp = $in{'camp'};
                 $tocamp = 0 if($in{'camp'}==6);             # <-無所属宛
                 # $tocamp = 7 if($in{'camp'}==7);             # <-全員宛 ※修正しました
                 $in{'nm'} = "$camp_info[$tocamp][0]";
                 $DAT{'nm'} ="$DAT{'nm'}($camp_info[$DAT{'camp'}][0])";
         }
  	else{
                   $tocamp=$DAT{'camp'};   # 追加※1
  		local @tdat;

<!--// 自国一括:<input type="checkbox" name="camp" value="1"><br> //-->
無:<input type="radio" name="camp" value="6">
ア:<input type="radio" name="camp" value="1">
フ:<input type="radio" name="camp" value="2">
イ:<input type="radio" name="camp" value="3">
ソ\:<input type="radio" name="camp" value="4">
ヤ:<input type="radio" name="camp" value="5">
<br>

<!--// 自国一括通信:<input type="checkbox" name="camp" value="1"><br>//-->
<span style="color:$camp_info[0][1]">無:<input type="radio" name="camp" value="6"></span>
<span style="color:$camp_info[1][1]">ア:<input type="radio" name="camp" value="1"></span>
<span style="color:$camp_info[2][1]">フ:<input type="radio" name="camp" value="2"></span>
<span style="color:$camp_info[3][1]">イ:<input type="radio" name="camp" value="3"></span>
<span style="color:$camp_info[4][1]">ソ\:<input type="radio" name="camp" value="4"></span>
<span style="color:$camp_info[5][1]">ヤ:<input type="radio" name="camp" value="5"></span>
<br>

• 全:<input type="radio" name="camp" value="7">
  <span style="color:$camp_info[0][1]">全:<input type="radio" name="camp" value="7"></span>

# ログ更新処理
# unshift (@lines,"$date<>$DAT{'nm'}<>$DAT{'camp'}<>$com<>$DAT{'sogo'}<>$addr<>$host<>$agent<>$time<>$in{'nm'}<>\n");
unshift (@lines,"$date<>$DAT{'nm'}<>$tocamp<>$com<>$DAT{'sogo'}<>$addr<>$host<>$agent<>$time<>$in{'nm'}<>\n");

• 	# ログを展開
  	open(IN,"$logfile") || &error("Open Error : $logfile");
  	local $log_last_flag=0;
  		my $camp_flag = $camp_info[$DAT{'camp'}][0];
  	while (<IN>) {
  		$log_last_flag++;
  		local($date,$nm,$camp,$com,$sogo,$addr,$host,$agent,$time2,$myid) = split(/<>/);
  
  		if($myid eq $DAT{'nm'} || $camp==7){ # ←ココを修正 ※修正しました

			$nm = qq|$nm <small>[$sogo_p[$sogo]]</small>| if($sogo);