var nbsp = 160;    // non-breaking space char
var node_text = 3; // DOM text node-type
var emptyString = /^\s*$/
var glb_vfld;      // retain vfld for timer thread

// -----------------------------------------
//                  trim
// Trim leading/trailing whitespace off string
// -----------------------------------------

function trim(str)
{
  return str.replace(/^\s+|\s+$/g, '')
};


// -----------------------------------------
//                  setfocus
// Delayed focus setting to get around IE bug
// -----------------------------------------

function setFocusDelayed()
{
  glb_vfld.focus()
}

function setfocus(vfld)
{
  // save vfld in global variable so value retained when routine exits
  glb_vfld = vfld;
  setTimeout( 'setFocusDelayed()', 100 );
}


// -----------------------------------------
//                  msg
// Display warn/error message in HTML element
// commonCheck routine must have previously been called
// -----------------------------------------
function msg(msgtype, // class to give element ("warn" or "error")
             message) // string to display
{
  // setting an empty string can give problems if later set to a 
  // non-empty string, so ensure a space present. (For Mozilla and Opera one could 
  // simply use a space, but IE demands something more, like a non-breaking space.)
  var dispmessage;
  if (emptyString.test(message)) 
    dispmessage = String.fromCharCode(nbsp); 
  else  
  {
	  // dispmessage = message;
     alert(message);  
  }
  
  //elem.className = msgtype;   // set the CSS class to adjust appearance of message
}

// -----------------------------------------
//            commonCheck
// Common code for all validation routines to:
// (a) check for older / less-equipped browsers
// (b) check if empty fields are required
// Returns true (validation passed), 
//         false (validation failed) or 
//         proceed (don't know yet)
// -----------------------------------------

var proceed = 2;  

function commonCheck    (vfld,   // element to be validated
                         reqd,errMsg)   // true if required
{
 
  if (emptyString.test(vfld.value)) {
    if (reqd) {
      msg ("error",errMsg);  
      setfocus(vfld);
      return false;
    }
    else {
      msg ("warn", "");   // OK
      return true;  
    }
  }
  return proceed;
}

// -----------------------------------------
//            validatePresent
// Validate if something has been entered
// Returns true if so 
// -----------------------------------------

function validatePresent(vfld // element to be validated
                         )  
{
  var stat = commonCheck (vfld, true);
  if (stat != proceed) return stat;

  msg ("warn", "");  
  return true;
};


// -----------------------------------------
//    validate Alpha
// 
// Returns true if OK 
// -----------------------------------------

function Validalpha   (vfld,   // element to be validated
                         reqd,reqerr,nvalerr,minval,maxval)   // true if required
{
 var stat = commonCheck (vfld, reqd,reqerr);
  if (stat != proceed) return stat;

  var tfld = trim(vfld.value);
  var numRE = /^[a-zA-Z-_ ]*$/
  if (!numRE.test(tfld)) {
    msg ("error", nvalerr);
    setfocus(vfld);
    return false;
  }

  if (maxval>0)	
  {
		  
	  if (tfld.length>maxval) 
	  {
		msg ( "error", nvalerr);
		setfocus(vfld);
		return false;
	  }  
  }
  		if (tfld.length<minval)
			{
				msg ( "warn", nvalerr);
				return false;
			}
			else
			{
				msg ( "warn", "");
			}
  	  
  return true;
};



// -----------------------------------------
//    validate AlphaNumeric
// 
// Returns true if OK 
// -----------------------------------------

function Validalphanum   (vfld,   // element to be validated
                         reqd,reqerr,nvalerr,minval,maxval)   // true if required
{
 var stat = commonCheck (vfld, reqd,reqerr);
  if (stat != proceed) return stat;

  var tfld = trim(vfld.value);
  var numRE =/^[a-z0123456789A-Z-_ ()]*$/;
  if (!numRE.test(tfld)) {
    msg ("error", nvalerr);
    setfocus(vfld);
    return false;
  }

  if (maxval>0)	
  {
		  
	  if (tfld.length>maxval) 
	  {
		msg ( "error", nvalerr);
		setfocus(vfld);
		return false;
	  }  
  }
  		if (tfld.length<minval)
			{
				msg ( "warn", nvalerr);
				return false;
			}
			else
			{
				msg ( "warn", "");
			}
  	  
  return true;
};



// -----------------------------------------
//    validate Numeric without Decimals
// 
// Returns true if OK 
// -----------------------------------------

function Validnum   (vfld,   // element to be validated
                         reqd,reqerr,nvalerr,minval,maxval)   // true if required
{
 var stat = commonCheck (vfld, reqd,reqerr);
  if (stat != proceed) return stat;

  var tfld = trim(vfld.value);
  var numRE = /^[0-9]*$/
  if (!numRE.test(tfld)) {
    msg ("error", nvalerr);
    setfocus(vfld);
    return false;
  }

  if (maxval>0)	
  {
		  
	  if (tfld.length>maxval) 
	  {
		msg ( "error", nvalerr);
		setfocus(vfld);
		return false;
	  }  
  }
  		if (tfld.length<minval)
			{
				msg ( "warn", nvalerr);
				return false;
			}
			else
			{
				msg ( "warn", "");
			}
  	  
  return true;
};



// -----------------------------------------
//    validate Numeric with Decimals
// 
// Returns true if OK 
// -----------------------------------------

function Validnumdec   (vfld,   // element to be validated
                         reqd,reqerr,nvalerr,minval,maxval)   // true if required
{
 var stat = commonCheck (vfld, reqd,reqerr);
  if (stat != proceed) return stat;

  var tfld = trim(vfld.value);
  var numRE = /^[0-9.]*$/
  if (!numRE.test(tfld)) {
    msg ("error", nvalerr);
    setfocus(vfld);
    return false;
  }

  if (maxval>0)	
  {
		  
	  if (tfld.length>maxval) 
	  {
		msg ( "error", nvalerr);
		setfocus(vfld);
		return false;
	  }  
  }
  		if (tfld.length<minval)
			{
				msg ( "warn", nvalerr);
				return false;
			}
			else
			{
				msg ( "warn", "");
			}
  	  
  return true;
};

function funcEmailCheck (emailStr,emailtext) 
{
	var checkTLD=1;
	var knownDomsPat=/^(com|net|org|edu|int|mil|gov|arpa|biz|aero|name|coop|info|pro|museum)$/;
	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=emailStr.match(emailPat);
	if (matchArray==null) 
	{
		//alert("Email address seems incorrect (check @ and .'s)");
		alert(emailtext);
		return false;
	}
	var user=matchArray[1];
	var domain=matchArray[2];
	for (i=0; i<user.length; i++) 
	{
		if (user.charCodeAt(i)>127) 
		{
			//alert("Ths username contains invalid characters.");
			alert(emailtext);
			return false;
		}
	}
	for (i=0; i<domain.length; i++) 
	{
		if (domain.charCodeAt(i)>127) 
		{
			//alert("Ths domain name contains invalid characters.");
			alert(emailtext);
			return false;
	   }
	}

	if (user.match(userPat)==null) 
	{
		//alert("The username doesn't seem to be valid.");
		alert(emailtext);
		return false;
	}
	var IPArray=domain.match(ipDomainPat);
	if (IPArray!=null) 
	{
		for (var i=1;i<=4;i++) 
		{
			if (IPArray[i]>255) 
			{
				//alert("Destination IP address is invalid!");
				alert(emailtext);
				return false;
			}
		}
		return true;
	}

	var atomPat=new RegExp("^" + atom + "$");
	var domArr=domain.split(".");
	var len=domArr.length;
	for (i=0;i<len;i++) 
	{
		if (domArr[i].search(atomPat)==-1) 
		{
			//alert("The domain name does not seem to be valid.");
			alert(emailtext);
			return false;
		}
	}
	if (checkTLD && domArr[domArr.length-1].length!=2 && domArr[domArr.length-1].search(knownDomsPat)==-1) 
	{
		//alert("The address must end in a well-known domain or two letter " + "country.");
		alert(emailtext);
		return 	false;
	}

	if (len<2) 
	{
		//alert("This address is missing a hostname!");
		alert(emailtext);
		return false;
	}

	return true;
}