#!/usr/bin/perl

# Couleurs
# 30: Noir
# 31: Rouge
# 32: Vert
# 33: Marron
# 34: Bleu
# 35: Violet
# 36: Cyan
# 37; Gris
#
$DEFAULT = "\033[0m";
%COLORS = (
	WARN => "\033[0;33m",
        ERROR => "\033[1;31m",
        Exception => "\033[1;31m",
        FATAL => "\033[1;31m",
        INFO => "\033[1;36m");

while (<>) {
    chomp;
    foreach my $class (keys %COLORS) {
        / $class / and do { print $COLORS{$class}; last; }
    }
    print "$_$DEFAULT\n";
}