+ // Having this defined in just one spot could help when changes need
+ // to be made to the pattern
+ // Make sure that the expression is evaluated case insensitively
+ //
+ // Here's pretty sophisticated IP matching:
+ // $IPMatch = '(2[0-5][0-9]|1?[0-9]{1,2})';
+ // $IPMatch = '\[?' . $IPMatch . '(\.' . $IPMatch . '){3}\]?';
+ //
+ // Here's enough:
+ 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]+)';
+ $Email_RegExp_Match = '[0-9a-z]([-_.]?[0-9a-z])*(%' . $Host_RegExp_Match .
+ ')?@' . $Host_RegExp_Match;
+