[Mimedefang] Rejecting some recipients

[Jeff Grossman]

> -----Original Message-----
> From: mimedefang-bounces at lists.roaringpenguin.com [mailto:mimedefang-
> bounces at lists.roaringpenguin.com] On Behalf Of Matthew.van.Eerde at hbinc.com
> Sent: Thursday, September 15, 2005 3:20 PM
> To: mimedefang at lists.roaringpenguin.com
> Subject: RE: [Mimedefang] Rejecting some recipients
> 
> Jeff Grossman wrote:
> > Sorry for the run on message before.  I have MIMEDefang set up with
> > the md_check_against_smtp_server setting.
> 
> Is it possible the SMTP server check is what's causing the timeout?
> 
> If it's only fifteen, I'd just hardcode this into your mimedefang-filter
(untested:)
> 
[snipped code]

Actually, I am already doing something similar.  Here is the code I am
using.  I removed some of the e-mail addresses so it wasn't so long.  But, I
am still getting the time outs.  I figured using the access database method,
I would be sure to not have any e-mails get through.

sub filter_recipient {

my($recip, $sender, $ip, $host, $first, $helo, $rcpt_mailer, $rcpt_host,
        $rcpt_addr) = @_;

$recip2 = $recip;
$recip2 =~ tr/<>//d;
$recip2 = lc($recip2);

$sender2 = $sender;
$sender2 =~ tr/<>//d;
$sender2 = lc($sender2);

$senderdomain = $sender;
$senderdomain =~ /.+\@(.+)>?/;  # extract domain part (minus angle bracket)

if (($recip2 eq 'email1 at turners.com' or
        $recip2 eq 'email2 at turners.com' or
        $recip2 eq 'email3 at turners.com' or
        $recip2 eq 'email1 at myturners.com') and
        ($sender2 ne 'email3 at aol.com' and
        $sender2 ne 'email1 at msn.com')) {
                action_notify_administrator("Recipient: $recip2\nSender:
$sender2\nIP: $ip");
                return ('REJECT', 'The intended recipient is not allowed to
receive e-mail');
}

if ($recip2 eq 'email1 at mail.turners.com' or
        $recip2 eq 'email2 at mail.turners.com') {
                return ('ACCEPT_AND_NO_MORE_FILTERING', "ok");
}

if ($recip2 eq 'email9 at turners.com' and $senderdomain =~
/^newdaydeals.com$/i) {
        action_notify_administrator("Bryan received an e-mail from
$sender");
        return ('REJECT', 'You are not allowed to send e-mail to this
recipient');
}

$recip =~ /.+\@(.+)>?/;  # extract domain part (minus angle bracket)
my $domain = $1;
$domain =~ s#[<>]##g;

if (($domain =~ /^turners.com$/i) ||
        ($domain =~ /^turnersoutdoorsman.com$/i) ||
        ($domain =~ /^turnersoutdoorsman.net$/i) ||
        ($domain =~ /^turnersoutdoorsman.org$/i) ||
        ($domain =~ /^egunsandammo.com$/i) ||
        ($domain =~ /^myturners.com$/i) ||
        ($domain =~ /^turners.us$/i) ||
        ($domain =~ /^sgdistributing.us$/i) &&
        ($domain !~ /^lists.turners.com$/i) &&
        ($domain !~ /^mail.turners.com$/i)) {
                return md_check_against_smtp_server($sender, $recip,
                        "mail.turners.com", "192.168.168.15");
}

if ($domain =~ /^lists.turners.com$/i) {
        return md_check_against_smtp_server($sender, $recip,
                "mail.turners.com", "192.168.168.228", "2525");
}

return('CONTINUE', "OK");
}