ÿþ



<!-- Original:  Sandeep V. Tamhankar  -->

<!-- mod:  Wilhelm Jansen -->



<!-- Begin



function emailCheck (emailStr) {

	





// Test country oder TLD.

//  1 für testen, 0 nicht testen

var checkTLD=0;



// TLDs Liste

var knownDomsPat=/^(com|net|org|edu|int|mil|gov|arpa|biz|aero|name|coop|info|pro|museum)$/;



// user@domain format

var emailPat=/^(.+)@(.+)$/;



// Liste zeichen ( ) < > @ , ; : \ " . [ ]

var specialChars="\\(\\)><@,;:\\\\\\\"\\.\\[\\]";

var validChars="\[^\\s" + specialChars + "\]";



// in Anführungszeichen? (dann sind special charakters erlaubt)

var quotedUser="(\"[^\"]*\")";



// domains mit IP addressen



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) {



// test Anzahl der @



  alert("Email-Adress ist ungültig (prüfen Sie @ und Punkte)");

return false;

}

var user=matchArray[1];

var domain=matchArray[2];



// test gültige ASCII characters (0-127).



for (i=0; i<user.length; i++) {

if (user.charCodeAt(i)>127) {

	alert("Username hat ungültige Zeichen !");

return false;

   }

}

for (i=0; i<domain.length; i++) {

if (domain.charCodeAt(i)>127) {

	alert("Domainname hat ungültige Zeichen !");

return false;

   }

}





if (user.match(userPat)==null) {



// user nicht OK



alert("Username ist ungültig !");

return false;

}



// IP addresse OK ?



var IPArray=domain.match(ipDomainPat);

if (IPArray!=null) {



// es handelt sich um eine IP-Adresse



for (var i=1;i<=4;i++) {

if (IPArray[i]>255) {

   alert("Empfänger IP-Adresse is ungültig !");

return false;

   }

}

return true;

}



// Domain ist ein "symbolic name",  gültig ?



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("Domainname ist ungültig !");

return false;

   }

}



/*

domain name valid, testen bekannte top-level domain

hostname vorangestellt ?

*/



if (checkTLD && domArr[domArr.length-1].length!=2 &&

domArr[domArr.length-1].search(knownDomsPat)==-1) {

  alert("Email Adresse muss mit bekannter Domain (TLD) oder 2 Zeichen enden !");

return false;

}



// hostname vorangestellt ?



if (len<2) {

  alert("hostname fehlt!");

return false;

}



// hier angekommen ist alles OK

return true;

}

//  End -->