罪と罰++二律背反


 # ログを展開
 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($nm eq $DAT{'nm'} || $myid eq $DAT{'nm'} || $myid eq $camp_info[$DAT{'camp'}][0]){
     if($myid eq $DAT{'nm'}){
       $nm = qq|To:$myid From:$nm|;  # 自分宛
     }elsif($nm eq $DAT{'nm'}){
       $nm = qq|To:$myid From:$nm|;  # 自分の送信
     }else{
       $nm = qq|To:$myid From:$nm|;  # その他
     }			
     $nm = qq|$nm<small>[$sogo_p[$sogo]]</small>| if($sogo);
     
     ($mv_mode eq 'mv') ? $com =~ s/ハァト/<font color="pink">\&\#63726<\/font>/g : $com =~ s/ハァト/<span class="f1">ゥ<\/span>/g ;
     
     if($myid ne $DAT{'nm'}){
       ($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>$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;
   }
 }
 close(IN);
               $in{'nm'} = "$camp_info[$tocamp][0]";
               $DAT{'nm'} ="$DAT{'nm'}($camp_info[$DAT{'camp'}][0])";
       }
	else{
                 $tocamp=$DAT{'camp'};   # 追加
		local @tdat;


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