罪と罰++二律背反


  • # ログを展開
    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(/<>/);
    
    ... ( 省略 ) ...
    
    ($mv_mode eq 'mv') ? $com =~ s/ハァト/<font color="pink">\&\#63726<\/font>/g : $com =~ s/ハァト/<span class="f1">ゥ<\/span>/g ;
    # 自分宛のメッセージ
    if($myid ne $DAT{'nm'} && $myid ne $camp_info[$camp][0]){
    	($mv_mode eq 'mv') ?
    	print qq|$nm:$com [$camp_info[$camp][0] $date]<br>\n|:
    	# print qq|<span style="color:silver">$nm <span class="date">[$camp_info[$camp][0] $date ]</span><br>$myid=$DAT{'nm'}$com </span><hr>\n|;
    	print qq|<span style="color:silver">$nm <span class="date">[$camp_info[$camp][0] $date ]</span><br>$com </span><hr>\n|;
    # 自国宛メッセージ
    }elsif($myid eq $camp_info[$camp][0]){
    	($mv_mode eq 'mv') ?
    	print qq|$nm:$com [$camp_info[$camp][0] $date]<br>\n|:
    	# print qq|<span style="color:silver">$nm <span class="date">[ $camp_info[$camp][0] $date ]</span><br>$myid=$DAT{'nm'}$com </span><hr>\n|;
    	print qq|<span style="color:red">$nm <span class="date">[ $date ]</span><br>$com </span><hr>\n|;
    # その他のメッセージ
    }else{
    	($mv_mode eq 'mv') ?
    	print qq|$nm:$com [$camp_info[$camp][0] $date]<br>\n|:
    	print qq|<span style="color:$camp_info[$camp][1]">$nm <span class="date">[ $camp_info[$camp][0] $date ]</span><br>$com </span><hr>\n|;
    }
    last if $log_last_flag > $log_last;
  • $unshift (@lines,"$date<>$DAT{'nm'}<>$tocamp<>
  •  open(OUT 
  •                        ($mv_mode eq 'mv') ?
                                   print qq|$nm:$com [$camp_info[$camp][0] $date]<br>\n|:
                                   print qq|<span style="color:$camp_info[$camp][1]">$nm <span class="date">[ $camp_info[$camp][0] $date ]</span><br>$com </span><hr>\n|;
                           }           # ←ここに括弧を追加
                           last if $log_last_flag > $log_last;
                   }
           }
           close(IN);
    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 (2686d)