function mkdirlima(u1,u2,u3,d1,d2,d3,rlnk,msgst) {
 var x=new Array('"','@',"'");
 var d= u2 + u3 + u1 + x[1] + d3 + d1 + d2;
 var z="<a href=";
 z+=x[0] + "mailto:" + d + rlnk + x[0];
 z+=" onMouseOut=" + x[0] + "Stnor();return true" + x[0];
 z+=" onMouseOver=" + x[0] + "Stpon(" + x[2] + msgst + x[2] + "); return true" + x[0];
 z+=">" + d + "</a>";
 document.write(z);
}


function o_bot(num) {
if (document.images) {
 if (num) document.images['b'+num].src=iarr[num].src;
 }
}

function a_bot(num) {
if (document.images) {
 if (num) document.images['b'+num].src=iaba[num].src;
 }
}

function msover(num) {
 a_bot(num);
 Stpon(blurb[num]);
}

function msout(num) {
 o_bot(num);
 Stnor();
}

function Stnor() {
 Stpon(stdefault);
}

function Stpon(Stmsg) {
 window.status=Stmsg;
}

function ventana(scrfile,nombre,ancho,alto)
{
 var aaa="width="+ancho+",height="+alto+",toolbar=no,directories=no,status=no,scrollbars=yes,resizable=yes,menubar=no,top=0,left=0";
 window.open(scrfile,nombre,aaa);
}

function ventanafix(scrfile,nombre,ancho,alto)
{
 var aaa="width="+ancho+",height="+alto+",toolbar=no,directories=no,status=no,scrollbars=no,resizable=no,menubar=no,top=0,left=0";
 window.open(scrfile,nombre,aaa);
}

var foto='';
var srcfile="/muestraf.php";

function agrandax(aa,bb)
{
	var bcString;
	var ancho=ventanaancho;
	var alto=ventanaalto;
	var mt=0;
	var ml=0;
	var scro='no';
	var rezi='no';
	var xsrcfile=srcfile+'?l='+weidioma+'&f='+bb;
	if (alto > screen.height) {
		alto=screen.height;
		scro='yes';
		rezi='yes';
		ancho+=20
	}
	if (ancho > screen.width) {
		ancho=screen.width;
		scro='yes';
		rezi='yes';
	}
	mt=parseInt((screen.height-alto)/2,10);
	ml=parseInt((screen.width-ancho)/2,10);
	var aaa='width='+ancho+',height='+alto+',toolbar=no,directories=no,status=no,scrollbars='+scro+',resizable='+rezi+',menubar=no,top='+mt+',left='+ml;
	foto=bb;
	window.open(xsrcfile,aa,aaa);
}

function agranda(aa) {
 var aaa="width=510,height=390,toolbar=no,directories=no,status=no,scrollbars=yes,resizable=yes,menubar=no,top=0,left=0";var srcfile="verf.php?fid="+aa;
 window.open(srcfile,"foto",aaa);
}
function trimDoublepace(e) {
	var xx = '  ';
	var re = new RegExp(xx, "g");
	var rx = /  /;
	var obj2 = ' ';
	var t=e.value;
	while (rx.test(t)) {
		t=t.replace(re, obj2);
	}
	e.value=t;
	return true;
}

function trimWhitespace(str) {
	var newSt  = '';
	var subst  = '';
	beginningFound = false;
	for (var i = 0; i < str.length; i++) {
		if (str.charAt(i) != ' ' && str.charCodeAt(i) != 9) {
			if (subst != '') {
				newSt += subst;
				subst = '';
			}
			newSt += str.charAt(i);
			if (beginningFound == false) {
				beginningFound = true;
			}
		} else {
			if (beginningFound == true) subst += str.charAt(i);
		}
	}
	return newSt;
}

function amayusculas(str) {
	return str.toUpperCase(str);
}

function aminusculas(str) {
	return str.toLowerCase(str);
}

function Uspacios(e) {
	e.value=trimWhitespace(e.value);
	trimDoublepace(e);
	e.value=amayusculas(e.value);
}

function Lspacios(e) {
	e.value=trimWhitespace(e.value);
	trimDoublepace(e);
	e.value=aminusculas(e.value);
}

function Xspacios(e) {
	e.value=trimWhitespace(e.value);
	trimDoublepace(e);
}

function xcontenido(e) {
	Uspacios(e);
	return true;
}

function checkdo(a) {
	var xxt = 'HTTP://';
	if (a.search(xxt)>-1) return false;
	xxt= 'CONTENT-TRANSFER-ENCODING';
	if (a.search(xxt)>-1) return false;
	xxt= 'CONTENT-TYPE';
	if (a.search(xxt)>-1) return false;
	xxt= 'BCC:';
	if (a.search(xxt)>-1) return false;
	return true;
}

function emailCheck(emailStr) {
	var checkTLD=1;
	var knownDomsPat=/^(com|net|org|edu|int|mil|gov|arpa|biz|aero|name|coop|info|pro|museum|es|tv|us|ws)$/;
	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) {
		return false;
	}
	var user=matchArray[1];
	var domain=matchArray[2];
	for (i=0; i<user.length; i++) {
		if (user.charCodeAt(i)>127) {
			return false;
		}
	}
	for (i=0; i<domain.length; i++) {
		if (domain.charCodeAt(i)>127) {
			return false;
		}
	}
	if (user.match(userPat)==null) {
		return false;
	}
	var IPArray=domain.match(ipDomainPat);
	if (IPArray!=null) {
		for (var i=1;i<=4;i++) {
			if (IPArray[i]>255) {
				return false;
			}
		}
		return true;
	}
	var atomPat=new RegExp("^" + atom + "$");
	var domArr=domain.split(".");
	var len=domArr.length;
	for (i=0;i<len;i++) {
		if (domArr[i].search(atomPat)==-1) {
			return false;
		}
	}
	
	if (checkTLD && domArr[domArr.length-1].length!=2 && domArr[domArr.length-1].search(knownDomsPat)==-1) {
		return false;
	}
	
	if (len<2) {
		return false;
	}
	return true;
}

function xmail(e) {
	Lspacios(e);
	if (!emailCheck(e.value)) {
		return false;
	}
	return true;
}

var wctrlmusic;
function ctrlmusic() {
 var aaa='width=160,height=60,toolbar=no,directories=no,status=no,scrollbars=no,resizable=no,menubar=no,top=0,left=0';
 var xurl='xsonido/ctrlmusic.html';
 var xlurl=xurl.length;
 var cargar=false;
 wctrlmusic=window.open('','wctrlmusic', aaa);
 var xxx=new String(wctrlmusic.location);
 var lll=xxx.length;
 if (lll < xlurl) {
  cargar=true;
 } else {
  xxx=xxx.substr((lll-xlurl),xlurl);
  if (xxx != xurl) cargar=true;
 }
 if (cargar) {
  wctrlmusic=window.open(xurl,'wctrlmusic', aaa);
 }
 wctrlmusic.focus();
}