function test_mail(mail)
{

//mail
	chainevalide="abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ-_0123456789@.";
	
	//test du @ présnet dans le mail
	valeur=mail.lastIndexOf("@");
	
	for(t=0;t<mail.length;t++)
	{
		
		if(mail.charAt(t)==mail.charAt(t+1) && mail.charAt(t)==".")
		{
			alert("Trop de point");
			return 0;
		}
	}
	
	if(valeur==-1)
	{
		alert("Manque un @");
		return 0;
	}
	else
	{
		partie1=mail.substr(0,valeur);
		partie2=mail.substr(valeur+1);
		valpartie1=partie1.length;
		//test si ya des caractères avant le @
		
		etataro=partie1.substr(valpartie1-1);
		etataro2=partie2.substr(0,1);
	
		if(etataro=="." || etataro2==".")
		{
			alert("syntaxe interdite");
			return 0;
		}
		if(valpartie1<1)
		{
			alert("Pas assez de caractère devant le @");
			return 0;
		}
	
		else
		{
			//test si ya un 2 em @
			valeur=partie1.indexOf("@");
			
			if(valeur!=-1)
			{
				alert("L'adresse ne peut pas avoir 2 @");
				return 0;
			}
			else
			{
				for(n=0;n<=mail.length;n++)
				{
					if(chainevalide.indexOf(mail.charAt(n))==-1)
					{
						alert("caractere spécial non valide dans un mail");
						return 0;
					}	
				
				}
				/*else
				{*/
				//test si ya un .
				valeur=partie1.indexOf(".");
				if(valeur!=-1)
				{
				
					prtie1=partie1.substr(0,valeur);
					prtie2=partie1.substr(valeur+1);
					valpart=prtie1.indexOf(".");
					valpart2=prtie2.indexOf(".");
					//test si y 2 .
					if(valpart!=-1 || valpart2!=-1)
					{
						alert("On ne peut avoir 2 . dans le mail");
						return 0;
					}
				}
				//test si ya un . apres le @
						valeur=partie2.lastIndexOf(".");
					if(valeur==-1)
					{
						alert("Manque un . après le @");
						return 0;
					}
						prtie1=partie2.substr(0,valeur);
						prtie2=partie2.substr(valeur+1);
						
						
						
						longueurprtie1=prtie1.length;
						
						longueurprtie=prtie2.length;
						pointavant=prtie1.substr(longueurprtie1-1,longueurprtie1);
						
						if(pointavant==".")
						{
							alert("Point successif");
							return 0;
						}
						
						//test si ya 2 caractere entre le @ et le .
						if(longueurprtie1<2)
						{
							alert("Pas assez de caractere entre le @ et le . (min 2 caract)");
							return 0;
						}
						//test si ya 2 a 3 caractere apres le . de fin
						else
						{
							if(longueurprtie<2 || longueurprtie>4)
							{
								alert("il faut un min de 2 caractères et un max de 4 caractères pour le domaine");
								return 0;
							}	
						}	
					}		
		}	

	}
//fin mail
}