罪と罰++二律背反


  • 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] # <--ここまでの5行を追加
      ){
      $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] # <--ここまでの5行を追加
      ){
      $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 {


トップ   編集 凍結 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 単語検索 最終更新   ヘルプ   最終更新のRSS
Last-modified: 2012-06-08 (金) 00:28:00 (2684d)