File nfsen-email-alert-subdom.patch of Package nfsen

--- libexec/NfAlert.pm.orig	2010-07-14 10:57:21.493224997 +0200
+++ libexec/NfAlert.pm	2010-07-14 10:57:57.857040765 +0200
@@ -1366,7 +1366,7 @@
 		$action_email =~ s/^\s+//;
 		$action_email =~ s/\s$//;
 		foreach my $email_addr ( split /\s*,\s*/, $action_email ) {
-			if ( $action_email !~ /^([A-Z0-9]+[._]?){1,}[A-Z0-9\-]+\@(([A-Z0-9]+[-]?){1,}[A-Z0-9]+\.){1,}[A-Z]{2,4}$/i ) {
+			if ( $action_email !~ /^([A-Z0-9]+[._]?){1,}[A-Z0-9\-]+\@(([A-Z0-9]+[-]?){1,}[A-Z0-9]+\.){1,}(?:[a-zA-Z0-9][a-zA-Z0-9._-]+\\.)*[A-Z]{2,4}$/i ) {
 				print $socket $EODATA;
 				print $socket "ERR action_email '$action_email' not a valid email address\n";
 				return;
@@ -1747,7 +1747,7 @@
 		$action_email =~ s/^\s+//;
 		$action_email =~ s/\s$//;
 		foreach my $email_addr ( split /\s*,\s*/, $action_email ) {
-			if ( $email_addr !~ /^([A-Z0-9]+[._]?){1,}[A-Z0-9]+\@(([A-Z0-9]+[-]?){1,}[A-Z0-9]+\.){1,}[A-Z]{2,4}$/i ) {
+			if ( $email_addr !~ /^([A-Z0-9]+[._]?){1,}[A-Z0-9\-]+\@(([A-Z0-9]+[-]?){1,}[A-Z0-9]+\.){1,}(?:[a-zA-Z0-9][a-zA-Z0-9._-]+\\.)*[A-Z]{2,4}$/i ) {
 				print $socket $EODATA;
 				print $socket "ERR action_email '$email_addr' not a valid email address\n";
 				return;