[Mimedefang] Perl Expression Question

listuser at neo.pittstate.edu listuser at neo.pittstate.edu
Mon Dec 9 00:49:01 EST 2002


On Sun, 8 Dec 2002, Jeff Grossman wrote:

> > -----Original Message-----
> > From: mimedefang-admin at lists.roaringpenguin.com [mailto:mimedefang-
> > admin at lists.roaringpenguin.com] On Behalf Of David F. Skoll
> > Sent: Sunday, December 08, 2002 9:06 AM
> > To: mimedefang at lists.roaringpenguin.com
> > Subject: Re: [Mimedefang] Perl Expression Question
> 
> 
> > if ($Sender =~ /-admin\@proftpd\.org>?$/i or
> >     $Sender =~ /\@lists\.sourgeforge\.net>?$/i) {
> > 	# Allow
> > } else {
> > 	# Reject foreign charsets
> > }
> 
> 
> Thanks for the help David.  Do I need to put anything in the #Allow
> section, or can I just leave it blank?  If I have to put something I
> there, what would I put?


I would imagine you would put the actual foreign charset check in the
false and a return statement for the true condition.  ie


if ($Sender =~ /-admin\@proftpd\.org>?$/i or
    $Sender =~ /\@lists\.sourgeforge\.net>?$/i) {
	# Allow
	return 0;
} else {
	# Reject foreign charsets
	Fancy charset checking code or the call for it goes here.
}

That would be my take on it

Justin




More information about the MIMEDefang mailing list