# ログを展開 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; |