罪罰改造板２/214

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