Disallow comma character within email addresses in email and email_on…

…ly profile checks (GH #97).
interchange · Jun 7, 2016 · 4ff70c2 · 4ff70c2
1 parent ebf8bd1
commit 4ff70c2
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 2 deletions.
diff --git a/code/OrderCheck/email_only.oc b/code/OrderCheck/email_only.oc
@@ -12,7 +12,7 @@ CodeDef email_only Description Email address
 CodeDef email_only Routine <<EOR
 sub {
 	my($ref, $var, $val, $msg) = @_;
-	if($val and $val =~ /^[\040-\077\101-\176]+\@[-A-Za-z0-9.]+\.[A-Za-z]+$/) {
+	if($val and $val =~ /^[\040-\053\055-\077\101-\176]+\@[-A-Za-z0-9.]+\.[A-Za-z]+$/) {
 		return (1, $var, '');
 	}
 	else {

diff --git a/lib/Vend/Order.pm b/lib/Vend/Order.pm
@@ -1344,7 +1344,8 @@ sub _phone_us_with_area_strict {
 
 sub _email {
 	my($ref, $var, $val) = @_;
-	if($val and $val =~ /[\040-\077\101-\176]+\@[-A-Za-z0-9.]+\.[A-Za-z]+/) {
+	if($val and $val =~ /[\040-\053\055-\077\101-\176]+\@[-A-Za-z0-9.]+\.[A-Za-z]+/) {
+
 		return (1, $var, '');
 	}
 	else {