[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