Re: per-recipient configuration
[email protected] ("Jared Johnson")
| Newsgroups | perl.qpsmtpd |
|---|---|
| Message-ID | <[email protected]> |
> sub rejected_recipients {
> my $self = shift;
> @_ and $self->{_rejected_recipients} = [@_];
I noticed after posting this that the line above is a no-op. Ha :)
> return () unless $self->{_recipients};
> return grep { $_->dsn and ! $_->dsn->action ~~ [qw(Delivered Queued
> Quarantined)] }
> @{$self->{_recipients}}
> }
-Jared