Remove toprocmail, which does not check for errors properly.

diff --git a/contrib/README b/contrib/README
index b2a9a9a3ad6a65273f6639ae34cdeeb9e99609f6..65134a670114ef6cddf5fab15b03a1963f93ba62 100644 (file)
--- a/contrib/README
+++ b/contrib/README
@@ -85,13 +85,6 @@ These scripts are front ends for fetchmail in daemon mode that can gather
 log statistics and generate text or HTML reports.  See README.getmail for
 details.  Scripts by Thomas Nesges <ThomaNesges@TNT-Computer.de>.
 
-### toprocmail:
-
-John Lim Eng Hooi <jleh@mail.com> wrote this script, yet another 
-mda plugin, to be used with fetchmail in foreground mode.  It displays
-some header lines to stdout in color, passing them (and the rest of the
-message content) to procmail.
-
 ### mold-remover.py
 
 A short python script to remove old read mail from a pop3 mailserver.

diff --git a/contrib/toprocmail b/contrib/toprocmail
deleted file mode 100644 (file)
index 159c0b3..0000000
--- a/contrib/toprocmail
+++ /dev/null
@@ -1,46 +0,0 @@
-#!/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);