fixing a warning by improving the email-regex

This commit is contained in:
Klaus Leithoff 2010-02-09 11:49:15 +00:00
parent e5fd2f3a9e
commit 9a0c0203ee

View File

@ -74,7 +74,8 @@
global $IP_RegExp_Match, $Host_RegExp_Match, $Email_RegExp_Match;
$IP_RegExp_Match = '\\[?[0-9]{1,3}(\\.[0-9]{1,3}){3}\\]?';
$Host_RegExp_Match = '('.$IP_RegExp_Match.'|[0-9a-z]([-.]?[0-9a-z])*\\.[a-z][a-z]+)';
$atext = '([a-z0-9!#$&%*+/=?^_`{|}~-]|&)';
#$atext = '([a-z0-9!#$&%*+/=?^_`{|}~-]|&)';
$atext = '([a-zA-Z0-9_\-\.])';
$dot_atom = $atext.'+(\.'.$atext.'+)*';
$Email_RegExp_Match = '~'.$dot_atom.'(%'.$Host_RegExp_Match.')?@'.$Host_RegExp_Match.'~i';