On Tue, Jan 09, 2001 at 07:48:17PM +0600, [EMAIL PROTECTED] wrote:
> I would much appriciate to know if anyone has done that
Quick and dirty and untested:
#!/usr/bin/perl -n
my $toolate = 0;
my $type = 'unknown';
while (<>) {
if (/^Content-Type:\s+text\/plain/ && $toolate = 0) {
$type = 'text'
}
elsif (/^$/) {
$toolate = 1; # may be multipart/alternative...
};
print;
}
if ($type eq 'text') {
print "\r\n-- \r\nFoo-Bar Enterprises denies all knowledge of this message\r\n";
};
exit(0);
Run with qmail-qfilter, or as qmail-queue (but pipe to the real qmail-queue
in that case...)
-Johan
--
Johan Almqvist
http://www.almqvist.net/johan/qmail/
PGP signature
