罪罰改造板２/416

	# ログを展開
	open(IN,"$logfile$DAT{'camp'}\.cgi") || &error("Open Error : $logfile$DAT{'camp'}\.cgi");
	local $log_last_flag=0;
	while (<IN>) {
		$log_last_flag++;
		local($date,$nm,$camp,$com,$sogo,$sogo2,$sogo3,$addr,$host) = split(/<>/);
		$nm = qq|$nm <small>[$sogo_p[$sogo]$sogo2[$sogo2]]</small>| if($sogo);
		$nm = qq|$nm <small>[$sogo3_p[$sogo3]]</small>| if($sogo3);
		($mv_mode eq 'mv') ? $com =~ s/ハァト/<font color="pink">\&\#63726<\/font>/g : $com =~ s/ハァト/<span class="f1">ｩ<\/span>/g ;