[Mimedefang] Failing filter snippet (was More filter_recipient Qs...)

[David F. Skoll]

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.