[Mimedefang] Perl help: quarantine and bounce criteria

Kevin A. McGrail kmcgrail at pccc.com
Wed Jan 26 00:12:27 EST 2005


Sorry, I typed that out and didn't test it.  Should really be closer to the 
following (though still untested code):

if ($Recipients[$i] =~ /^<?kmcgrail@(pccc|thoughtworthy)\.com>?$/i)


> This regexp has assisted me well in this issue and might do the same since 
> it is a fairly strict check for a match.  I'm sure I picked it up from 
> someone on the MD list so no props to anyone but them:
>
> loop on length of $Recipients array and:
>
> if ($Recipients[$i] =~ 
> /^<?kmcgrail@(pccc.com|thoughtworhty.com)\.com>?$/i) {
>  ...
> }




More information about the MIMEDefang mailing list