[Mimedefang] Perl help: quarantine and bounce criteria

Kenneth Porter shiva at sewingwitch.com
Mon Jan 24 16:33:31 EST 2005

I've got the following function for bouncing spam/viri in my office server. 
This gets invoked whenever the filter would bounce or discard, such as when 
the spam score is over 10.

If the mail was addressed to a legitimate local mailbox (other than info or 
hostmaster) I want to quarantine instead of drop, but I'm still getting 
quarantines for a single local recipient of info or hostmaster, so I've got 
a bug in that expression I need help with.

sub action_discard_bounce ($) {
        my($message) = @_;
        # don't quarantine if all recipients are @sewingwitch.com
        my $non_sewingwitch =  grep !/\@sewingwitch.com/i, @Recipients;
        # check for only recipient being
        # hostmaster or info (almost certain spam so don't quarantine)
        if ( $non_sewingwitch &&
             ( (scalar @Recipients != 1) ||
               ($Recipients[0] !~
 /^(info|hostmaster)\@microprecisionautomation.com/) )) {
"action_discard_bounce $message");
        if (MTA_is_domain_MX($MyDomain,$RelayAddr)) {
                # don't pester mx backup
                return action_discard();
        } else {
                return action_bounce($message);

More information about the MIMEDefang mailing list