# ログを展開 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"; ©right; exit; } #------------------------------------------------------------------------------ # ログ書き込み処理 sub regist {