[Mimedefang] add_recipient

[David F. Skoll]

On Thu, 21 Feb 2002, Jason Englander wrote:

> sub filter_end {
>   my $OrigSender = $Sender;
>   if (lc($Domain) eq 'foo.org') {
>     $Sender = 'postmaster at mydomain.org';
>     resend_message('in at mail.foo.org');
>   }
>   $Sender = $OrigSender;
>   if ($Sender =~ /\@foo\.org\>$/i) {
>     $Sender = 'postmaster at mydomain.org';
>     resend_message('out at mail.foo.org');
>   }
> }

You want to be *very* careful... MIMEDefang may be re-invoked on the
resent message (depending on your version of Sendmail).  You only want
to resend the message if postmaster at mydomain.org is not already in
@Recipients.  But the basic idea is sound.

Regards,

David.