罪と罰++二律背反

# ログ書き込み処理
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] # <--ここまでの5行を追加
  ){
  $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);

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