/* Begin - Validacion de E-mail */
function numero_veces(cadena,caracter)
{
	var numVeces=0;

	while (cadena.indexOf(caracter,0)!=-1)
	{
		numVeces++;
		cadena=cadena.substr(cadena.indexOf(caracter,0)+1);
	}
	return numVeces;
}

function reversa(cadena)
{
	var resultado="";

	while (cadena!="")
	{
		resultado=resultado.concat(cadena.substr(cadena.length-1));
		cadena=cadena.substr(0,cadena.length-2);
	}
	return resultado;
}

function es_email(email)
{
	var cadena = email.value;
	var flag=true;

	//si hay espacios en blanco...
	if (cadena.indexOf(" ")!=-1)
		flag=false;
	//debe haber un único "@" en el medio de la cadena, así como no son
	//permitidos: "@.", ".@" o ".."
	//no puede empezar o terminar en "." o "@"
	//por lo menos debe haber un "."
	if ((numero_veces(cadena,"@")!=1) || (cadena.indexOf("@")==0) ||
		(numero_veces(cadena,".")==0) || (cadena.indexOf(".")==0) ||
		(cadena.indexOf("..")!=-1) ||
		(cadena.indexOf("@.")!=-1) || (cadena.indexOf(".@")!=-1) ||
		(reversa(cadena).indexOf(".")==0) ||
		(reversa(cadena).indexOf("@")==0))
		flag=false;
	//por lo menos debe haber un "." después de "@"
	cadena = cadena.substr(cadena.indexOf("@")+1);

	if (cadena.indexOf(".")==-1)
		flag=false;
	return flag;
}

function valida_mail(email)
{
	if (email.value.length!=0)
	{
		if (es_email(email))
			return true;
		else
			return false;
	}
	else
		return false;
}
/* End - Validacion de E-mail */