fix #2111: regex match for email addresses

[pve-common.git] / src / PVE / JSONSchema.pm

diff --git a/src/PVE/JSONSchema.pm b/src/PVE/JSONSchema.pm
index 36fa994eb7e6d4bddeb2600585a085cdc7c7ba70..1e3bf5d48c17066fe348954e66b48dbb5a98e4c0 100644 (file)
--- a/src/PVE/JSONSchema.pm
+++ b/src/PVE/JSONSchema.pm
@@ -356,8 +356,7 @@ register_format('email', \&pve_verify_email);
 sub pve_verify_email {
     my ($email, $noerr) = @_;
 
 sub pve_verify_email {
     my ($email, $noerr) = @_;
 

-    # we use same regex as in Utils.js
-    if ($email !~ /^(\w+)([\-+.][\w]+)*@(\w[\-\w]*\.){1,5}([A-Za-z]){2,63}$/) {
+    if ($email !~ /^[\w\+\-\~]+(\.[\w\+\-\~]+)*@[a-zA-Z0-9\-]+(\.[a-zA-Z0-9\-]+)*$/) {

           return undef if $noerr;
           die "value does not look like a valid email address\n";
     }
           return undef if $noerr;
           die "value does not look like a valid email address\n";
     }