{\rtf1\ansi\ansicpg1252\deff0\deflang1033{\fonttbl{\f0\fswiss\fcharset0 Arial;}}
{\*\generator Msftedit 5.41.15.1507;}\viewkind4\uc1\pard\f0\fs20 function emailCheck (emailStr) \{\par
var checkTLD=1;\par
var knownDomsPat=/^(com|net|org|edu|int|mil|gov|arpa|biz|aero|name|coop|info|pro|museum)$/;\par
var emailPat=/^(.+)@(.+)$/;\par
var specialChars="\\\\(\\\\)><@,;:\\\\\\\\\\\\\\"\\\\.\\\\[\\\\]";\par
var validChars="\\[^\\\\s" + specialChars + "\\]";\par
var quotedUser="(\\"[^\\"]*\\")";\par
var ipDomainPat=/^\\[(\\d\{1,3\})\\.(\\d\{1,3\})\\.(\\d\{1,3\})\\.(\\d\{1,3\})\\]$/;\par
var atom=validChars + '+';\par
var word="(" + atom + "|" + quotedUser + ")";\par
var userPat=new RegExp("^" + word + "(\\\\." + word + ")*$");\par
var domainPat=new RegExp("^" + atom + "(\\\\." + atom +")*$");\par
var matchArray=emailStr.match(emailPat);\par
if (matchArray==null) \{\par
alert("Your email address is missing or incorrectly spelled (check @ and .'s)");\par
return false;\par
\}\par
var user=matchArray[1];\par
var domain=matchArray[2];\par
for (i=0; i<user.length; i++) \{\par
if (user.charCodeAt(i)>127) \{\par
alert("Your email emaddress contains invalid characters.");\par
return false;\par
   \}\par
\}\par
for (i=0; i<domain.length; i++) \{\par
if (domain.charCodeAt(i)>127) \{\par
alert("Your email domain name contains invalid characters.");\par
return false;\par
   \}\par
\}\par
if (user.match(userPat)==null) \{\par
alert("Your email doesn't seem to be valid - check your spelling.");\par
return false;\par
\}\par
var IPArray=domain.match(ipDomainPat);\par
if (IPArray!=null) \{\par
for (var i=1;i<=4;i++) \{\par
if (IPArray[i]>255) \{\par
alert("Destination IP address is invalid!");\par
return false;\par
   \}\par
\}\par
return true;\par
\}\par
var atomPat=new RegExp("^" + atom + "$");\par
var domArr=domain.split(".");\par
var len=domArr.length;\par
for (i=0;i<len;i++) \{\par
if (domArr[i].search(atomPat)==-1) \{\par
alert("Your email address does not seem to be valid - check your spelling, including wrong use of commas, or a full point [.] at the end of the address .");\par
return false;\par
   \}\par
\}\par
if (checkTLD && domArr[domArr.length-1].length!=2 && \par
domArr[domArr.length-1].search(knownDomsPat)==-1) \{\par
alert("Your email address must end in a well-known domain or two letter " + "country.");\par
return false;\par
\}\par
if (len<2) \{\par
alert("Your email address is missing a hostname - check spelling. Or you may have added a blank space at the end of the address - backspace to remove this.");\par
return false;\par
\}\par
return true;\par
\}\par
}