var misimageneso =new Array('','0o.gif','1o.gif','2o.gif','3o.gif','4o.gif','5o.gif','6o.gif','7o.gif','8o.gif');
var misimagenes  =new Array('','0.gif','1.gif','2.gif','3.gif','4.gif','5.gif','6.gif','7.gif','8.gif');

if (document.images) {
	var iarr=new Array();
	var iaba=new Array();
	var totimg= misimagenes.length;
	for (i=1; i< totimg; i++) {
		iarr[i]=new Image();
		iaba[i]=new Image();
		iarr[i].src=imgpath+misimagenes[i];
		iaba[i].src=imgpath+misimageneso[i];
	}
}

function vidirlima(u1,u2,u3,d1,d2,d3) {
 var x=new Array('"','@',"'");
 var z= u2 + u3 + u1 + x[1] + d3 + d1 + d2;
 document.write(z);
}

function mkdirlima(u1,u2,u3,d1,d2,d3,msgst) {
 var x=new Array('"','@',"'");
 var d= u2 + u3 + u1 + x[1] + d3 + d1 + d2;
 var z="<a href=";
 z+=x[0] + "mailto:" + d + 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 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 = 'HREF=';
	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;
}