参加者表示部分に、参加者独自のネームカラーを付ける。


下記の改造を行う。

#####################################################
ファイル名：chat.cgi
関数：sub html
リンク変数に&color=$colorを追加する。
$link = "./chat.cgi?window=$window&reload=$reload&mode=$mode&name=$name&color=$color";
#####################################################
ファイル名：pref.cgi
関数：sub sanka
以下のものと入れ替える。
sub sanka{#ここで、アクセス記録をとる。
open(LOG,"$sanka_file") || &ended;
	seek(LOG,0,0);	@sanka=<LOG>;
close(LOG);
$flag=1;
foreach $line (@sanka) {
	($timerec, $handle, $host2,$color2,$dmy) = split(/\t/, $line);
	if( $times-60 > $timerec){$line = '';	next;}
		if(($host2 eq $host) && $flag){#ホスト名が同一の場合、時間と名前を最新のものにする。
			$line = "$times\t$name\t$host\t$color\td\n";$color2=$color;
			$flag =0;$handle = $name;	$handle =~ s/☆/★/g;
		}
	push (@sanka3, "<font color=$color2>$handle</font>☆") if($handle ne $host2); 
	}#foreach

	if($flag){	#新しい参加者は、加える
		push(@sanka,"$times\t$name\t$host\t$color\td\n");
		$name =~ s/☆/★/g;
		push (@sanka3, "<font color=$color>$name</font>☆") if($name ne $host); 
	}

undef(@sanka) if($chat eq 'sanka');
open(LOG,">$sanka_file")  || &ended;
	eval 'flock(LOG,2);';
	seek(LOG,0,0);	print LOG @sanka;
	eval 'flock(LOG,8);';
close(LOG);
}#sanka END