Well, if you don't mind slapping some kloodges into resend and slowing down
the mail processing a bit, you can do something similar to what I did. Around
line 343 in resend, ( 1.94.4) there's a loop to write out the body of the
message being processed, so the parent sendmail can exit. It looks like
while (<STDIN>) {
print IN $_;
}
My loop, however, looks like
while (<STDIN>) {
next if /^______________________________/ ;
next if /^You don't need to buy Internet access/ ;
next if /^Get completely free e-mail/ ;
next if /^Or call Juno at/ ;
next if /^DO YOU YAHOO!?/ ;
next if /^Get your free \@yahoo.com/ ;
next if /^Get Your Private, Free Email at http:/ ;
next if /^Free web-based email/ ;
next if /^Get free e-mail/ ;
next if /^http:\/\/www.mailexcite.com/ ;
print IN $_;
}
Instead of just tossing that particular line, you could substitute the
offending character.
mjb.
References:
|
|
