#!/usr/bin/perl

# Create the colors Assoc. Array
%colors = (
    'black'              => "\033[30m",
    'red'                => "\033[31m",
    'green'              => "\033[32m",
    'yellow'             => "\033[33m",
    'blue'               => "\033[34m",
    'purple'             => "\033[35m",
    'cyan'               => "\033[36m",
    'white'              => "\033[37m",
    'brightblack'        => "\033[01;30m",
    'brightred'          => "\033[01;31m",
    'brightgreen'        => "\033[01;32m",
    'brightyellow'       => "\033[01;33m",
    'brightblue'         => "\033[01;34m",
    'brightmagenta'      => "\033[01;35m",
    'brightcyan'         => "\033[01;36m",
    'brightwhite'        => "\033[01;37m",
    'underlineblack'     => "\033[04;30m",
    'underlinered'       => "\033[04;31m",
    'underlinegreen'     => "\033[04;32m",
    'underlineyellow'    => "\033[04;33m",
    'underlineblue'      => "\033[04;34m",
    'underlinemagenta'   => "\033[04;35m",
    'underlinecyan'      => "\033[04;36m",
    'underlinewhite'     => "\033[04;37m",
    'blinkingblack'      => "\033[05;30m", 
    'blinkingred'        => "\033[05;31m", 
    'blinkinggreen'      => "\033[05;32m", 
    'blinkingyellow'     => "\033[05;33m", 
    'blinkingblue'       => "\033[05;34m", 
    'blinkingmagenta'    => "\033[05;35m", 
    'blinkingcyan'       => "\033[05;36m", 
    'blinkingwhite'      => "\033[05;37m", 
    'backgroundblack'    => "\033[07;30m",
    'backgroundred'      => "\033[07;31m",
    'backgroundgreen'    => "\033[07;32m",
    'backgroundyellow'   => "\033[07;33m",
    'backgroundblue'     => "\033[07;34m",
    'backgroundmagenta'  => "\033[07;35m",
    'backgroundcyan'     => "\033[07;36m",
    'backgroundwhite'    => "\033[07;37m", 
    'default'            => "\033[0m"
);

# Parse STDIN
$subject = "Subject: ";
$folder  = " Folder: ";
$list    = "   List: ";
while ($line=<>) {
    foreach $string (keys %config) {
        ($matched = 1) and ($textcolor=$config{$string})
            if ($line =~ /$string/);
    }
    if($line =~ /^\s*From/) {
      # drop these
      next;
    }
    $line =~ s/^\s*Subject:\s+(.*)/$colors{white}${subject}$colors{yellow}$1/;
    $line =~ s/^\s*Folder:\s+lists\/(\S+).*/$colors{white}$list$colors{cyan}$1/;
    $line =~ s/^\s*SPAMRULE:\s+(.*)/$colors{brightred}SPAM detected: $1/;
    $line =~ s/^\s*Folder:\s+formail.*/$colors{brightred}${folder}SPAM/;
    $line =~ s/^\s*Folder:\s+\/dev\/null.*/$colors{red}${folder}DUPLICATE DROPPED/;
    $line =~ s/^\s*Folder:\s+(\S+).*/$colors{white}${folder}$colors{brightgreen}$1/;
    
    print "$line$colors{default}";
}