tighten interest email validation rule

diff --git a/site/cgi-bin/modules/BSE/UI/Interest.pm b/site/cgi-bin/modules/BSE/UI/Interest.pm
index 58e7a14d4b1c0695491057b0b5918c7d1af8998e..9abaa1aebb3237b31c72ac655b782c3804be5c99 100644 (file)
--- a/site/cgi-bin/modules/BSE/UI/Interest.pm
+++ b/site/cgi-bin/modules/BSE/UI/Interest.pm
@@ -5,7 +5,7 @@ use BSE::ComposeMail;
 use BSE::TB::Products;
 use BSE::Util::Tags qw(tag_object);
 
-our $VERSION = "1.001";
+our $VERSION = "1.002";
 
 my %actions =
   (
@@ -82,7 +82,7 @@ sub req_interest {
   if (!defined $useremail || $useremail !~ /\S/) {
     $errors{email} = "msg:bse/interest/noemail";
   }
-  elsif ($useremail !~ /.\@./) {
+  elsif ($useremail !~ /^[^\s\@][^\@]*\@[\w.-]+\.\w+$/) {
     $errors{email} = "msg:bse/interest/bademail";
   }