/* Validation d'une adresse e-mail correctement formée
 * Lionel Barré - webmaster@atlantique.be
 */
function js_libafuse_fct_1_0__ValidationField_email(val_email) {
	 // on passe la donnée saisie par le visiteur en variable pour plus de facilités
	adresse = val_email; //document.formulaire.email.value;
	taille = adresse.length; //document.formulaire.email.value.length;
	 // on créé 3 variables pour valider au fur et à mesure le login, le domaine et l'extension qui constituent l'adresse e-mail
	validelog = false;
	validedom = false;
	valideext = false;
	// on extrait le 'login' qui se situe avant l'arobace
	arob = adresse.lastIndexOf("@");
	login = adresse.substring(0,arob);
	// on extrait l'extension qui se situe à partir du dernier point
	pointfinal = adresse.lastIndexOf(".");
	extension = adresse.substring(pointfinal,taille);
	// on extrait le domaine qui se trouve entre l'arobace et le dernier point
	domaine = adresse.substring(arob+1,pointfinal);
	// un login a toujours plus de 2 caractères, on fait le test
	if ( login.length > 2 ) {
		validelog = true;
	} else {
		// alert('Ceci n\'est pas une adresse e-mail.\nUne adresse e-mail comporte un arobace ( @ ) precede d\'un login \'convenable\'.');
		validelog = false;
	}
	// un domaine a toujours plus de 1 caractère, on fait le test
	if ( domaine.length > 1 ) {
		validedom = true;
	} else {
		// alert('Ceci n\'est pas une adresse e-mail.\nLe nom de domaine n\'existe pas.');
		validelog = false;
	}
	// une extension a toujours 2 ou 3 caractères, on fait le test
	if ( pointfinal > -1 && (extension.length == 3 || extension.length == 4) ) {
		valideext = true;
	} else {
		// alert('Ceci n\'est pas une adresse e-mail valide.\nL\'extension n\'est pas bonne.');
		valideext = false;
	}
	
	// on vérifie que nos trois variables sont vraies pour accepter la soumission du formulaire
	if ( validelog == true && validedom == true && valideext == true ) {
		//adresse_invalide=false;
		return true;
	} else {
		// adresse_invalide=true;
		alert('Ceci n\'est pas une adresse e-mail.\nUne adresse e-mail comporte un arobace ( @ ) precede d\'un login \'convenable\'.');
		return false;
	}
}// end fct