/*
 Funciones JavaScript de Auskalo Interactive (c) 2001 
 ****************************
 by:    Striker
 ****************************
 Puedes modificar y reusar estas funciones siempre y cuando no modifiques está cabecera.
 You can modifie and re-use this functions provided that you don't change this head.
*/

function checkEmail(frase){
	largoFrase=frase.length 
	indice1=0
	arroba=0
	exito=false
	
	if (largoFrase>5){
		while (indice1!=largoFrase){
			indice2=indice1+1
			aux=frase.substring(indice1,indice2)
			if (aux=='@') ++arroba
			++indice1
		}
		if (arroba==1){
			inicio=frase.substring(0,1)
			final1=frase.substring((largoFrase-1),largoFrase)
			if ((inicio!='@')&&(final1!='@')){
				if ((inicio!='.')&&(final1!='.')){
					final1=frase.substring((largoFrase-2),(largoFrase-1))
					if ((final1!='.')&&(final1!='@')){
						inicio=frase.substring((largoFrase-3),(largoFrase-2))
						final1=frase.substring((largoFrase-4),(largoFrase-3))
						if ((inicio!='@')&&(final1!='@')){
							inicio=frase.substring((largoFrase-3),(largoFrase-2))
							final1=frase.substring((largoFrase-4),(largoFrase-3))
							if((inicio=='.')||(final1=='.')){ 
								indice1=0
								dos=true
								while (indice1!=largoFrase){
										indice2=indice1+2
										aux=frase.substring(indice1,indice2)
										if ((aux=='.@')||(aux=='@.')) dos=false 
										++indice1
								}
								if(dos!=false){
									indice1=0
									dos=true
									while (indice1!=largoFrase){
										indice2=indice1+2
										aux=frase.substring(indice1,indice2)
										if (aux=='..') dos=false 
										++indice1
									}
									if (dos!=false){
										ult1=isNaN(frase.substring((largoFrase-1),largoFrase))
										ult2=isNaN(frase.substring((largoFrase-2),(largoFrase-1)))
										ult3=isNaN(frase.substring((largoFrase-3),(largoFrase-2)))
										if ((ult1==true)&&(ult2==true)&&(ult3==true)){
											exito=true
										}
										else{
											exito=false
										}
									}
									else{
										exito=false
									}
								}
								else{
									exito=false
								}
							}
							else{
								exito=false
							}
						
						}
						else{
							exito=false		
						}				
					}
					else{
						exito=false	
					}						
				}
				else{
					exito=false	
				}
			}
			else{
				exito=false
			}
		}	
		else{
			exito=false
		}
	}
	else{
		exito=false
	}
	
	return(exito)
}