[Mimedefang] Failing filter snippet (was More filter_recipient Qs...)
David F. Skoll
dfs at roaringpenguin.com
Fri Jul 9 15:49:07 EDT 2004
On Fri, 9 Jul 2004, Ashley M. Kirchner wrote:
> sub filter_recipient {
> my($recipient, $sender, $rest) = @_;
> if ($recipient =~ /.+\@pcraft\.com>?/i) {
> my($answer, $explanation) =
> md_check_against_smtp_server($sender, $recipient,
> "serpico.pcraft.com", "ivanhoe.pcraft.com");
> } else {
Your $answer and $explanation variables go out of scope after the
close bracket, so later on...
> # Convert TEMPFAIL to CONTINUE
> $answer = 'CONTINUE' if ($answer eq 'TEMPFAIL');
> return ($answer, $explanation);
$answer and $explanation are undefined.
Regards,
David.
More information about the MIMEDefang
mailing list