Can anyone tell me why this snippet fails?
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 {
my($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);
}
I get this error in my log files:
Jul 9 13:19:22 int-ivanhoe.pcraft.com sm-mta[15361]: i69JJLWd015361:
from=<[EMAIL PROTECTED]>, size=0,
class=0, nrcpts=1, proto=SMTP, daemon=MTA,
relay=serpico.pcraft.com [204.144.132.162]Jul 9 13:19:22 int-serpico.pcraft.com mimedefang.pl[32453]:
filter_recipient rejected recipient <[EMAIL PROTECTED]>Jul 9 13:19:22 int-serpico.pcraft.com mimedefang-multiplexor[32452]:
Slave 0 stderr: Use of uninitialized value in pattern
match (m//) at /usr/local/bin/mimedefang.pl line 5710.
Use of uninitialized value in string eq at
/usr/local/bin/mimedefang.pl line 5716.
Use of uninitialized value in string eq at
/usr/local/bin/mimedefang.pl line 5716.
Use of uninitialized value in string eq at
/usr/local/bin/mimedefang.pl line 5716.
Use of uninitialized value in string eq at
/usr/local/bin/mimedefang.pl line 5716.
Jul 9 13:19:22 int-serpico.pcraft.com sm-mta[32480]: i69JJLpt032480:
Milter: to=<[EMAIL PROTECTED]>, reject=554 5.7.1 ?Jul 9 13:19:22 int-serpico.pcraft.com sm-mta[32480]: i69JJLpt032480:
from=<[EMAIL PROTECTED]>, size=3460,
class=0, nrcpts=0, proto=ESMTP, daemon=MTA,
relay=smtp-out6.xs4all.nl [194.109.24.7]-- W | I haven't lost my mind; it's backed up on tape somewhere. +-------------------------------------------------------------------- Ashley M. Kirchner <mailto:[EMAIL PROTECTED]> . 303.442.6410 x130 IT Director / SysAdmin / WebSmith . 800.441.3873 x130 Photo Craft Laboratories, Inc. . 3550 Arapahoe Ave. #6 http://www.pcraft.com ..... . . . Boulder, CO 80303, U.S.A.
_______________________________________________ Visit http://www.mimedefang.org and http://www.canit.ca MIMEDefang mailing list [EMAIL PROTECTED] http://lists.roaringpenguin.com/mailman/listinfo/mimedefang
