/*******************************************************************************/
/*
/*  EMAIL CHECK SCRIPT | ver 0.2
/* 
/*  Original author: unknown         
/*
/*  Modified by: c0rw | www.coex.cz | 2oo4-2oo5
/*
/*******************************************************************************/

function emailCheck (emailStr,lang) {

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) {
    if (lang=='en') { alert("Email check: address seems incorrect (check @ and .'s)"); }
    if (lang=='cz') { alert("Kontrola emailu: adresa je zřejmě neplatná (chybí @ nebo .)"); }
    return false;
}

var user=matchArray[1];
var domain=matchArray[2];

if (user.match(userPat)==null) {
    if (lang=='en') { alert("Email check: the username doesn't seem to be valid."); }
    if (lang=='cz') { alert("Kontrola emailu: uživatelské jméno je zřejmě neplatné."); }
    return false;
}

var IPArray=domain.match(ipDomainPat);

if (IPArray!=null) {
  for (var i=1;i<=4;i++) {
    if (IPArray[i]>255) {
        if (lang=='en') { alert("Email check: destination IP address is invalid!"); }
        if (lang=='cz') { alert("Kontrola emailu: cílová IP adresa není správná!"); }
    return false;
    }
  }
  return true;
}

var domainArray=domain.match(domainPat);

if (domainArray==null) { 
    if (lang=='en') { alert("Email check: the domain name doesn't seem to be valid."); }
    if (lang=='cz') { alert("Kontrola emailu: doména je zřejmě neplatná."); }    
    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) {
   if (lang=='en') { alert("Email check: the address must end in a three-letter domain, or two letter country."); }
   if (lang=='cz') { alert("Kontrola emailu: adresa musí končit platnou koncovkou."); }
   return false;
}

if (len<2) {
   if (lang=='en') { alert("Email check: this address is missing a hostname!"); }
   if (lang=='cz') { alert("Kontrola emailu: zřejmě chybí název hostitele!"); }
   return false;
}

return true;
}