- Fix dot-atom expression in e-mail validation regexp (#1486808)

alecpl

2010-06-19 d7a5dfa26abe21aa9216fe862225baa2b5caca3e

- Fix dot-atom  expression in e-mail validation regexp (#1486808)

 program/include/main.inc

@@ -1586,7 +1586,7 @@
  // from PEAR::Validate
  $regexp = '&^(?:
    ("\s*(?:[^"\f\n\r\t\v\b\s]+\s*)+")|                  #1 quoted name
    ([-\w!\#\$%\&\'*+~/^`|{}]+(?:\.[-\w!\#\$%\&\'*+~/^`|{}]+)*))     #2 OR dot-atom
    ([-\w!\#\$%\&\'*+~/^`|{}=]+(?:\.[-\w!\#\$%\&\'*+~/^`|{}=]+)*))     #2 OR dot-atom (RFC5322)
    $&xi';

  if (!preg_match($regexp, $local_part))