[Mimedefang] match the sender user name
CONTRERAS, Pablo
pcontreras at ecogas.com.ar
Mon Sep 6 14:08:09 EDT 2004
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. example1garca123 at xxx.com or #example2garcaexample3 at xxx.com
match the word in the string
if ($RawSender =~ /\@newsletter\.online\.com$/) {
$HTMLOK = 1;
} else {
$HTMLOK = 0;
}
Best Regards
Pablo
More information about the MIMEDefang
mailing list