/usr/share/doc/fetchmail/contrib/toprocmail is in fetchmail 6.3.26-3build1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 | #!/usr/bin/perl
# fetchmail -> procmail pretti-fier proxy thingamajig
# ver. 2000-04-01
#
# John Lim Eng Hooi <jleh@mail.com>
#
# Where's procmail located?
$proc_path = '/usr/bin/procmail';
# Define your ANSI color codes here, I've only bothered to define
# those I use :)
$ANSI_green = "\e[0;32m";
$ANSI_b_white = "\e[1;37m";
$ANSI_normal = "\e[0;39m";
# Open up procmail
open (PROCPIPE, "|$proc_path") || die "Can't open procmail pipe!";
# Analyze the message line by line
while (<STDIN>) {
# Suck up the lines we want, in this case I just want From: and Subject:
if (/^From:/) {
$from = $_;
}
if (/^Subject:/) {
$subj = $_;
}
# Stuff it out to the pipe too
print PROCPIPE;
}
# Print it out
print "\n";
print $ANSI_green, " ", $from;
print $ANSI_b_white, " ", $subj, $ANSI_normal;
# fetchmail's status is appended after this
print " -->";
# We're done
close (PROCPIPE);
|