罪罰/他国へ一括通信２

# ログ書き込み処理
sub regist{

   .... ( 省略 ) ....

if($SAT{'nm'} eq $in{'nm'}
  || $in{'nm'} eq $camp_info[1][0] # <--ここを追加
  || $in{'nm'} eq $camp_info[2][0] # 
  || $in{'nm'} eq $camp_info[3][0] # 
  || $in{'nm'} eq $camp_info[4][0] # 
  || $in{'nm'} eq $camp_info[5][0] # <--ここまでの５行を追加
  ){
  $flag=1;
  last;

•   || $in{'nm'} eq '全員'

• # ログを展開
  
     .... ( 省略 ) ....
  
  while (<IN>) {
     $log_last_flag++;
     local($date,$nm,$camp,$com,$sogo,$addr,$host,$agent,$time2,$myid) = split(/<>/);
     if($nm eq $camp_info[$DAT{'camp'}][0] || $myid eq $DAT{'nm'} || $myid eq $camp_info[$DAT{'camp'}][0]){          # <--この行のみを修正

•    if($nm eq $camp_info[$DAT{'camp'}][0] || $myid eq $DAT{'nm'} || $myid eq $camp_info[$DAT{'camp'}][0] || $nm eq '全員'){

• 	# ログを展開
  	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'} || $myid eq $camp_info[$DAT{'camp'}][0]){
  		if($myid eq $DAT{'nm'} || $myid eq $camp_info[$DAT{'camp'}][0] || $myid eq '全員'){
  			$nm = qq|$nm <small>[$sogo_p[$sogo]]</small>| if($sogo);