$basename = shift;
open(DAT,$basename.".txt");
@text = <DAT>;
close(DAT);

open(DAT,$basename.".clr");
@color = <DAT>;
close(DAT);

foreach $line (@color)
{
	chomp($line);
	if($line =~ /(\[.*\]) (.*)$/ig)
	{
		$carray{$1} = $2;
	}	
}

$line ="";

foreach $line (@text)
{
	$line =~ s/\xEF\xBB\xBF//g;
	$line =~ s/</&lt/g;
	$line =~ s/>/&gt/g;
	$line =~ s/\r\n/\r/g;
	$line =~ s/\n/\r/g;
	$line =~ s/\r/<br>/g;

	if ($line =~ /^(\[[0-9]{2}:[0-9]{2}:[0-9]{2}\])/g)
	{

		if($tmp)
		{
			$tmp =~ /^(\[[0-9]{2}:[0-9]{2}:[0-9]{2}\]) (.*)<br>$/;
			$DAT{'DATE'} = $1;
			$DAT{'MESSAGE'} = $2;
			if ($carray{$DAT{'DATE'}})
			{
				$DAT{'COLOR'} = uc $carray{$DAT{'DATE'}};
			}else{
				$DAT{'COLOR'} = "000000";
			}
		print "$DAT{'DATE'},$DAT{'COLOR'},$DAT{'MESSAGE'}\n";
		}
		$tmp = $line;

	}else{
		$tmp .= $line;
	}
}

if($tmp)
{
	$tmp =~ /^(\[[0-9]{2}:[0-9]{2}:[0-9]{2}\]) (.*)<br>$/;
	$DAT{'DATE'} = $1;
	$DAT{'MESSAGE'} = $2;
	if ($carray{$DAT{'DATE'}})
	{
		$DAT{'COLOR'} = uc $carray{$DAT{'DATE'}};
	}else{
		$DAT{'COLOR'} = "000000";
	}
	print "$DAT{'DATE'},$DAT{'COLOR'},$DAT{'MESSAGE'}";
}