Dirk the Daring wrote:
...snip...
##########
sub filter_sender {
my($sender, $hostip, $hostname, $helo) = @_;
# Can't be "psicorps.org" unless it's one of our IP's.
if ($helo =~ /(^|\.)psicorps\.org$/i) {
if ($hostip ne "127.0.0.1" and $hostip ne "209.170.141.XXX" and
$hostip ne "209.170.141.XXX" and $hostip ne "209.170.141.103") and
the ) before the and in the above line is probably
what's causing your problem. (non-matching parens)
$hostip ne "209.170.141.XXX" and $hostip ne "209.170.141.XXX") {
syslog('info', "MIMEDefang rejected a connection where Host $hostip said
HELO $helo");
return(0, "Connection Rejected: $hostip is not authorized to use $helo
for identification");
I'm sure it's been recommended that instead of returning 0 or 1 etc, you
should return 'CONTINUE' or 'REJECT' etc. it shouldn't cause filter
failures however.
}
}
return (1, "OK");
}
##########
when in doubt, running mimedefang.pl -test on your filter will show you
most problems with your filter before running it live.
perl -c should show you any serious compilation errors
HTH
Alan
_______________________________________________
Visit http://www.mimedefang.org and http://www.roaringpenguin.com
MIMEDefang mailing list
[email protected]
http://lists.roaringpenguin.com/mailman/listinfo/mimedefang
