// -----------------------------------------------------------------------------
// Validate Email address
//	3/26/0	sgh	call trim to drop leading and trailing spaces
//				MUST HAVE REFERENCE TO HmBasic.js in ASP page
function emailCheck (oEmail) {
	//trim it
	oEmail.value = trim( oEmail.value )
    var emailPat=/^(.+)@(.+)$/
    var specialChars="\\(\\)<>@,;:\\\\\\\"\\.\\[\\]"
    var validChars="\[^\\s" + specialChars + "\]"
    var quotedUser="(\"[^\"]*\")"
    var ipDomainPat=/^\[(\d{1,3})\.(\d{1,3})\.(\d{1,3})\.(\d{1,3})\]$/
    var atom=validChars + '+'
    var word="(" + atom + "|" + quotedUser + ")"
    var userPat=new RegExp("^" + word + "(\\." + word + ")*$")
    var domainPat=new RegExp("^" + atom + "(\\." + atom +")*$")
    var matchArray=oEmail.value.match(emailPat)
    if (matchArray==null) {
    	alert("Email address seems incorrect")
        oEmail.focus();
    	return false
    }
    var user=matchArray[1]
    var domain=matchArray[2]
    
    if (user.match(userPat)==null) {
        alert("Email address username doesn't seem to be valid.");
        oEmail.focus();
        return false
    }
    
    var IPArray=domain.match(ipDomainPat)
    if (IPArray!=null) {
    	  for (var i=1;i<=4;i++) {
    	    if (IPArray[i]>255) {
    	        alert("Email address destination IP address is invalid!")
                oEmail.focus();
    		return false
    	    }
        }
        return true
    }
    
    var domainArray=domain.match(domainPat)
    if (domainArray==null) {
    	alert("Email address domain name doesn't seem to be valid.")
        oEmail.focus();
        return false
    }
    
    var atomPat=new RegExp(atom,"g")
    var domArr=domain.match(atomPat)
    var len=domArr.length
    if (domArr[domArr.length-1].length<2 || 
        domArr[domArr.length-1].length>3) {
       alert("Email address must end in a three-letter domain, or two letter country.")
       oEmail.focus();
       return false
    }
    
    if (len<2) {
       var errStr="Email address is missing a hostname!"
       alert(errStr)
       oEmail.focus();
       return false
    }
    
    return true;
}
function checkWebSite(oWebSite){
    var specialChars="\\(\\)<>@,;:\\\\\\\"\\.\\[\\]"
    var validChars="\[^\\s" + specialChars + "\]"
    var atom=validChars + '+'

	var domain = oWebSite.value
    var domainPat=new RegExp("^" + atom + "(\\." + atom +")*$")
	if ( domain != null && domain.length > 0 ){
		var domainArray=domain.match(domainPat)
		if (domainArray==null) {
			alert("Web site address doesn't seem to be valid.")
		    oWebSite.focus();
		    return false
		}
		var atomPat=new RegExp(atom,"g")
		var domArr=domain.match(atomPat)
		var len=domArr.length
		if (domArr[domArr.length-1].length<2 || 
		    domArr[domArr.length-1].length>3) {
		   alert("Web Site address must end in a three-letter domain, or two letter country.")
		   oWebSite.focus();
		   return false
		}
	}
	return true
}