罪罰改造板２/215

• sub regist
   ...
  if($in{'nm'} ne "$camp_info[$DAT{'camp'}][0]"){
         $in{'let'}=1;
         require './inc/ore_sub-ene_para.cgi';&tusr_file_open;
  }
  
  # ファイルロック

• #------------------------------------------------------------------------------
  # ログ書き込み処理
  sub regist {
  
  	if($SAT{'nm'} eq $in{'nm'}
    || $in{'nm'} ne $camp_info[1][0] # <--ここを追加
    || $in{'nm'} ne $camp_info[2][0] # 
    || $in{'nm'} ne $camp_info[3][0] # 
    || $in{'nm'} ne $camp_info[4][0] # 
    || $in{'nm'} ne $camp_info[5][0] # <--ここまでの５行を追加
    ){
    $flag=1;
    last;
  	}
  	else{
  
  		local @tdat;
  	
  		# 参加者データファイル一覧取得/一括読み込み

open(IN,"$logfile") || &error("Open Error : $logfile");
while (<IN>) {
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($ltime<$time2){
require './inc/ore_sub-system.cgi';
&usr_file_open;
$ltime=$time2;
&dat_write;
exit;
}
last;
}
}
close(IN);
# 著作権表示（削除禁止）

	print "<hr>\n";
	&copyright;
	exit;
}

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

	if($SAT{'nm'} eq $in{'nm'}
  || $in{'nm'} ne $camp_info[1][0] # <--ここを追加
  || $in{'nm'} ne $camp_in

• # ログ書き込み処理
  sub regist {
  
  	if($SAT{'nm'} eq $in{'nm'}
    || $in{'nm'} ne $camp_info[1][0] # <--ここを追加
    || $in{'nm'} ne $camp_info[2][0] # 
    || $in{'nm'} ne $camp_info[3][0] # 
    || $in{'nm'} ne $camp_info[4][0] # 
    || $in{'nm'} ne $camp_info[5][0] # <--ここまでの５行を追加
    ){
    $flag=1;
    last;
  	}
  	else{
  ・・・・
   my $flag=0;
  		foreach(0 .. $#tdat){
  			%SAT = '';
  			my @prats = split(/,/,$tdat[$_]);
  			foreach $prats (@prats){
  				my($key,$v) = split(/;/,$prats);
  				$SAT{$key} = $v;
  			}
  			if($SAT{'nm'} eq $in{'nm'}){
  				$flag=1;
  				last;
  			}
  		}
  		if(!$flag){
  			$mes = qq|$in{'nm'}さんという参加者は存在しません。<br>| ;
  			&html;
  		}

• open(IN,"$logfile") || &error("Open Error : $logfile");
  while (<IN>){
  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($ltime<$time2){
  require './inc/ore_sub-system.cgi';
  &usr_file_open;
  $ltime=$time2;
  &dat_write;
  exit;
  }
  last;
  }
  }
  close(IN);
  # 著作権表示（削除禁止）
  
  	print "<hr>\n";
  	&copyright;
  	exit;
  }
  
  #-------------------------------------------------------------------------------
  # ログ書き込み処理
  sub regist {