[Mimedefang] match the sender user name

[CONTRERAS, Pablo]

Hi, list again, I'm finding  out in the mimedefang archive list and find
it, I need modify for match a word in the username sender, could you
help me? 

my($RawSender);
        $RawSender = $Sender;

        # Strip angle brackets
        $RawSender =~ s/[<>]//g;

        # What can I do for matching a word in sender username??
        # for i.e. [EMAIL PROTECTED] or         [EMAIL PROTECTED]
match the word in the string

        if ($RawSender =~ /[EMAIL PROTECTED]/) {
                $HTMLOK = 1;
        } else {
                $HTMLOK = 0;
        }

Best Regards 
Pablo

_______________________________________________
Visit http://www.mimedefang.org and http://www.canit.ca
MIMEDefang mailing list
[EMAIL PROTECTED]
http://lists.roaringpenguin.com/mailman/listinfo/mimedefang