Trying another e-mail regex.

svn path=/trunk/; revision=15319
2010-03-07 12:52:12 +00:00
parent 6df0d45010
commit f341f134f7
1 changed files with 2 additions and 1 deletions
--- a/tools/WebBuild/FormValidation.pm
+++ b/tools/WebBuild/FormValidation.pm
@@ -114,7 +114,8 @@ sub validates_format_of {
    }
  }

-  unless ($value =~ /$attrs{"with"}/) {
+  #unless ($value =~ /$attrs{"with"}/) {
+  unless ($value =~ /^[_a-zA-Z0-9-]+(\.[_a-zA-Z0-9-]+)*@[a-zA-Z0-9-]+(\.[a-zA-Z0-9-]+)*\.(([0-9]{1,3})|([a-zA-Z]{2,3})|(aero|coop|info|museum|name))$/) {
    unless ($attrs{"message"}) {
      $self->new_error($option, ucfirst($option) . " is not valid.");
    } else {