From: Phillip Porch <ppp@theporch.com>

NOTES from author:

Here is a simple perl script that strips attachments. It is used with
the sendmail alias for the list in a pipeline before the call to catmail
ie:

testlist: "|/usr/local/bin/filter.pl |/usr/server/catmail -L TESTLIST -f"

And here is the filter. I tried to use a variation on this in the global
filter setting in the config file but it stripped outgoing attachments too
(like the MIME digest :-(  ).


##### Begin script


#!/usr/local/bin/perl
open (INFILE, "-") ;
open (OUTFILE, ">-") ;
$in_attachment = 0;
while ( <INFILE> ) {
if (!/^Content-Disposition.*/) {
	print OUTFILE $_;
}
else {
close INFILE;
close OUTFILE;
	}
}