window.google_analytics_uacct = "UA-1418153-3";

function hacer_pagina_de_inicio(){
	document.write(" - <a class=mi href=\"javascript:void(0);\" onClick=\"style.behavior='url(#default#homepage)';setHomePage('http://www.humor-adulto.com/');\">Hacer página de inicio</a>");
}

function agregar_a_favoritos(){
	document.write(" - <a class=mi href=\"http://www.humor-adulto.com\" onClick=\"window.external.AddFavorite('http://www.humor-adulto.com','humor-adulto.com');return false;\">Ańadir a favoritos</a>");
}


function d_obj(id){
	var o;
	if (document.all) o = document.all(id);
	else if (document.getElementById) o = document.getElementById(id); 
	else if (document.layers) o = document.layers[id];
	if (o) return(o);
	return(null);
}


function zoom(d) {
	obj = d_obj("video");
	if(obj){
		if (d==0) {
			nw = obj.width*0.9;
			nh = obj.height*0.9;
		} else {
			nw = obj.width*1.1;
			nh = obj.height*1.1;
		}
		obj.width = nw;
		obj.height = nh;
	}
}

function emailCheck_recomendar(emailStr){
	var emailPat=/^(.+)@(.+)$/;
	var specialChars="\\(\\)<>@,;:\\\\\\\"\\.\\[\\]";
	var validChars="\[^\\s" + specialChars + "\]";
	var quotedUser="(\"[^\"]*\")";
	var ipDomainPat=/^\[(\d{1,3})\.(\d{1,3})\.(\d{1,3})\.(\d{1,3})\]$/;
	var atom=validChars + '+';
	var word="(" + atom + "|" + quotedUser + ")";
	var userPat=new RegExp("^" + word + "(\\." + word + ")*$");
	var domainPat=new RegExp("^" + atom + "(\\." + atom +")*$");
	var matchArray=emailStr.match(emailPat);
	if (matchArray==null){ alert("Formato inválido de e-mail"); return false; }
	var user=matchArray[1];
	var domain=matchArray[2];
	if (user.match(userPat)==null){ alert("Usuario inválido en el e-mail"); return false; }
	var IPArray=domain.match(ipDomainPat);
	if (IPArray!=null){  for (var i=1;i<=4;i++){ if (IPArray[i]>255){ alert('IP inválida en el e-mail'); return false; } } return true; }
	var domainArray=domain.match(domainPat);
	if (domainArray==null){ alert('Dominio inválido en el e-mail'); return false; }
	var atomPat=new RegExp(atom,"g");
	var domArr=domain.match(atomPat);
	var len=domArr.length;
	if (domArr[domArr.length-1].length<2 || domArr[domArr.length-1].length>4){ alert('Dominio inválido en el e-mail'); return false; }
	if(len<2){ alert('Servidor inválido en el e-mail'); return false; }
	return true;
}
function validar_recomendar(f){
	var o;
	o=f.nombre1; if(o.value==''){ alert('Falta tu nombre'); o.focus(); return false; }
	o=f.nombre2; if(o.value==''){ alert('Falta el nombre de tu amig@'); o.focus(); return false; }
	o=f.email1; if(o.value>''){
		if(!o.value.match(/[a-zA-Z\.\@\d\_]/)){ alert("Formato inválido en el e-mail"); o.focus(); return false; }
		if (!emailCheck_recomendar(o.value)){ o.focus(); return false; }
	}
	o=f.email2; if(o.value==''){ alert('Falta el e-mail de tu amig@'); o.focus(); return false; }
	if(!o.value.match(/[a-zA-Z\.\@\d\_]/)){ alert("Formato inválido en el e-mail"); o.focus(); return false; }
	if (!emailCheck_recomendar(o.value)){ o.focus(); return false; }
	return true;
}

function emailCheck_enviar(emailStr){
	var emailPat=/^(.+)@(.+)$/;
	var specialChars="\\(\\)<>@,;:\\\\\\\"\\.\\[\\]";
	var validChars="\[^\\s" + specialChars + "\]";
	var quotedUser="(\"[^\"]*\")";
	var ipDomainPat=/^\[(\d{1,3})\.(\d{1,3})\.(\d{1,3})\.(\d{1,3})\]$/;
	var atom=validChars + '+';
	var word="(" + atom + "|" + quotedUser + ")";
	var userPat=new RegExp("^" + word + "(\\." + word + ")*$");
	var domainPat=new RegExp("^" + atom + "(\\." + atom +")*$");
	var matchArray=emailStr.match(emailPat);
	if (matchArray==null){ alert("Formato inválido de e-mail"); return false; }
	var user=matchArray[1];
	var domain=matchArray[2];
	if (user.match(userPat)==null){ alert("Usuario inválido en el e-mail"); return false; }
	var IPArray=domain.match(ipDomainPat);
	if (IPArray!=null){  for (var i=1;i<=4;i++){ if (IPArray[i]>255){ alert('IP inválida en el e-mail'); return false; } } return true; }
	var domainArray=domain.match(domainPat);
	if (domainArray==null){ alert('Dominio inválido en el e-mail'); return false; }
	var atomPat=new RegExp(atom,"g");
	var domArr=domain.match(atomPat);
	var len=domArr.length;
	if (domArr[domArr.length-1].length<2 || domArr[domArr.length-1].length>4){ alert('Dominio inválido en el e-mail'); return false; }
	if(len<2){ alert('Servidor inválido en el e-mail'); return false; }
	return true;
}
function validar_enviar(f){
	var o;
	o=f.nombre; if(o.value==''){ alert('Falta tu nombre'); o.focus(); return false; }
	o=f.email; if(o.value==''){ alert('Falta el e-mail de tu amig@'); o.focus(); return false; }
	if(!o.value.match(/[a-zA-Z\.\@\d\_]/)){ alert("Formato inválido en el e-mail"); o.focus(); return false; }
	if (!emailCheck_enviar(o.value)){ o.focus(); return false; }
	o=f.titulo; if(o.value==''){ alert('Falta el título'); o.focus(); return false; }
	o=f.userfile; if(o.value==''){ alert('Falta el archivo'); o.focus(); return false; }
	return true;
}