罪罰改造板２/45

	# 参加者表示：$member
	($mv_mode eq 'mv') ?
		print qq|参加者($num)<hr color=\"$hr_color\">\n|:
		print qq|<hr size="8" color="#666699"><span class=\"mem\"><br>参加者($num)：$member</span><hr  color="#c0c0c0" size="4">\n|;
　　　　
	# ログを展開
	open(IN,"$logfile") || &error("Open Error : $logfile");
	local $log_last_flag=0;
	while (<IN>) {
		$log_last_flag++;
		local($date,$nm,$camp,$com,$sogo,$addr,$host,$sogo2,$sogo3) = split(/<>/);
		$nm = qq|$nm <small>[$sogo_p[$sogo]][$sogo_p[$sogo2]][$sogo_p[$sogo3]]</small>|;
    
		($mv_mode eq 'mv') ? $com =~ s/ハァト/<font color="pink">\&\#63726<\/font>/g : $com =~ s/ハァト/<span class="f1">ｩ<\/span>/g ;
　　　　　
		($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 ： $com </span><span class="date">[ $camp_info[$camp][0] $date ]</span><hr>\n|;
		last if $log_last_flag > $log_last;
	}
	close(IN);
　　　
}