3 # fetchmail -> procmail pretti-fier proxy thingamajig
6 # John Lim Eng Hooi <jleh@mail.com>
9 # Where's procmail located?
10 $proc_path = '/usr/bin/procmail';
12 # Define your ANSI color codes here, I've only bothered to define
14 $ANSI_green = "\e[0;32m";
15 $ANSI_b_white = "\e[1;37m";
16 $ANSI_normal = "\e[0;39m";
19 open (PROCPIPE, "|$proc_path") || die "Can't open procmail pipe!";
21 # Analyze the message line by line
24 # Suck up the lines we want, in this case I just want From: and Subject:
33 # Stuff it out to the pipe too
39 print $ANSI_green, " ", $from;
40 print $ANSI_b_white, " ", $subj, $ANSI_normal;
42 # fetchmail's status is appended after this