// JavaScript Document
function valida_email(valor)
{
    
    var User = "abcdefghijklmnopqrstuvwxyz_1234567890.-";
    var Dominio = "abcdefghijklmnopqrstuvwxyz-1234567890.";
    var ParteUser = "" ;
    var ParteDominio = "" ;
    var CaracterUser = "" ;
    var CaracterDominio  = "" ;
    var ValorUser =  0 ;
    var ValorDominio = 0 ;
    var  i = 0 ;
    var  j = 0 ;
    var retorna = true ;
    var var_arrDominio="";
    
                 
    if  ((valor.indexOf("@") > -1) && (valor != ""))    
     {
        
    	ParteUser = valor.substr(0,valor.indexOf("@"));
	    ParteDominio = valor.substr(valor.indexOf("@")+1);
        
               //*****************Evaluar parte del usuario**************
                i = 0 ;
                 for (i=0; i <= ParteUser.length; i++ ) 
                    {              
                      CaracterUser = ParteUser.substr( i, 1) ;
                       j = 0;
                         for (j = 0; j <= 38; j ++ )
                            {   
                              if (CaracterUser == User.substr( j, 1))
                                   {
                                      ValorUser = ValorUser + 1;
                                    }
                              }
                     }
    
        	//alert("ValorUser" + ValorUser + "" + "Longitud" + ParteUser.length);       
        	if (ValorUser < ParteUser.length) 
               {
	           return retorna;
               }
  

		//**************'Evaluar parte del dominio*************
    
        if (ParteDominio.indexOf (".") > -1) 
		{
			

	        /**********Para validar que no haya punto al final**************/
			var_arrDominio = ParteDominio.split(".");
			for (var_auxDominio in var_arrDominio) 
			{
				if (var_arrDominio[var_auxDominio] == "") 
				{
                return retorna;
				}
			}
			/*************************************************************/
			
            i = 0;
            for(i=0 ; i <= ParteDominio.length; i++)
               {
                  CaracterDominio = ParteDominio.substr( i, 1);
                   j = 0;
                  for (j=0;j <= 37; j++)
                       {
                    	if (CaracterDominio == Dominio.substr(j, 1) )
                           {
	                       ValorDominio = ValorDominio + 1;
                    	   }
                       }
              }
            //alert("ValorDominio" + ValorDominio + " " + "Longitud" + ParteDominio.length);          
            if (ValorDominio < ParteDominio.length)
               {
               return retorna;
               }

             retorna = false;
             return retorna;
        }
        else
        {
        return retorna;
        }
     }        
else 
  {
	return retorna;
  } 

}



function valida_valores(checkStrtec) {
	var checkOK = "0987654321.";
	var allValid = true;
	for (i = 0; i < checkStrtec.length; i++) {
		ch = checkStrtec.charAt(i); 
		for (j = 0; j < checkOK.length; j++)
			if (ch == checkOK.charAt(j))
				break;
		if (j == checkOK.length) { 
			allValid = false; 
			break;
		}
	}
	return allValid;
}


function valida_numero_ip_oct(valor_oct) {
var retorna = true;
	retorna = valida_valores(valor_oct);
	if (retorna)
		if (valor_oct.valueOf() < 0 || valor_oct.valueOf() > 256)
			retorna = false;
	return retorna;
}

//================================================================
// Verifica si la cadena recibida como parametro es una direccion
// IP correcta.
// Los valores que devuelve son:
//     true : Si el numero de IP es correcto,
//     false: Si el numero de IP es incorrecto.
//================================================================
function verifica_todo_ip(valor_ip) {

var retorna = true;
var var_auxil;
var var_arr;
var cont = 0;
	if (valor_ip != "") {
        var_arr = valor_ip.split(".");
		for (var_auxil in var_arr) {
			if (var_arr[var_auxil] != "") 
			   {

				retorna = valida_numero_ip_oct(var_arr[var_auxil]);
				cont++;
				if (!retorna)
				break;
			   }
			if (var_arr[var_auxil] == "") 
			    {
				retorna = false;
				break;
				}   
		}
	}
	else
		retorna = false;
	if (cont < 4)
		retorna = false;

	return retorna;
}