> From: David F. Skoll [mailto:[EMAIL PROTECTED]
>
> On Fri, 9 Jul 2004, Ashley M. Kirchner wrote:
>
> > sub filter_recipient {
> > my($recipient, $sender, $rest) = @_;
> > if ($recipient =~ /[EMAIL PROTECTED]>?/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.
>
sub filter_recipient {
my($recipient, $sender, $rest) = @_;
+++ my ($answer, $explanation);
if ($recipient =~ /[EMAIL PROTECTED]>?/i) {
--- my($answer, $explanation) =
+++ ($answer, $explanation) =
md_check_against_smtp_server($sender, $recipient,
"serpico.pcraft.com", "ivanhoe.pcraft.com");
} else {
--- my($answer, $explanation) =
+++ ($answer, $explanation)
md_check_against_smtp_server($sender, $recipient,
"serpico.pcraft.com", "fargo.pcraft.com");
}
# Convert TEMPFAIL to CONTINUE
$answer = 'CONTINUE' if ($answer eq 'TEMPFAIL');
return ($answer, $explanation);
}
[EMAIL PROTECTED] 805.964.4554 x902
Hispanic Business Inc./HireDiversity.com Software Engineer
perl -e"map{y/a-z/l-za-k/;print}shift" "Jjhi pcdiwtg Ptga wprztg,"
_______________________________________________
Visit http://www.mimedefang.org and http://www.canit.ca
MIMEDefang mailing list
[EMAIL PROTECTED]
http://lists.roaringpenguin.com/mailman/listinfo/mimedefang
