//  mlist.js
//
// Last modification: 2/3/2005
//
// Javascript copyright 2003,2004,2005 by Jeff Krause.  All rights reserved.
// Under special license to Bruces Browser & Cyber Cafe and Rebecca Krause-Hardie.
//
// CLIB library routines copyright 2003,2004 by Jeff Krause.  All rights reserved.
//
var ml_errorClass = 'p0sHdrRed_right'
var ml_normalClass = 'p0sHdr_right';
var ml_finishedUrl = 'index.html';
function ml_initForm() {
	var url = document.location;
	url = clib_cleanUrl(url);
	var urlLocal = 'file:';
	clib_fLocal = (url.substr(0,urlLocal.length) == urlLocal);
	document.forms['fm_comments'].elements['comments'].value = 'Hey!\n\nPlease add me to your mailing list ...';
	if (clib_fLocal) document.forms['fm_comments'].action='javascript:parent.location="' + ml_finishedUrl + '"';
	document.forms['fm_comments'].elements['username'].focus();
	document.forms['fm_comments'].elements['username'].select();
	}

function ml_submitComment() {
	var email = document.forms['fm_comments'].elements['email'].value
	if ((email == null) || !clib_validateEmail(email)) {
		document.forms['fm_comments'].elements['email'].focus();
		document.forms['fm_comments'].elements['email'].select();
		clib_changeClass('emailP',ml_errorClass)
		clib_innerHTML('emailW','Valid eMail address required');
		return false;
		}
	clib_changeClass('emailP',ml_normalClass)
	clib_innerHTML('emailW',' ');
	return true;
	}

var clib_fLocal = false;
function clib_cleanUrl(url) {
	if (url == null) return '';
	var x = url + ' ';
	url = x.substr(0,x.length-1);
	var len = url.length;
	var j = 0;
	var c = '';
	while (j < len) {
		var ch = url.charAt(j);
		var chLeft = len - j - 1;
		if (ch == '\\') ch = '/';
		else if ((ch == '%') && (chLeft >= 2)) if (url.substr(j,3) == '%20') {
			ch = ' ';
			j += 2;
			}
		c += ch;
		j++;
		}
	return c;
	}
function clib_changeClass(objName,className) {
	var id = clib_getElementId(objName);
	if (id) {
		if (id.className) id.className=className;
		else return -1;
		}
	else return -2;
	return 0;
	}
function clib_validateEmail(email) {
	if ((email.indexOf("@") == -1) || (email.charAt(0) == ".") || (email.charAt(0) == "@") || (email.len < 6) || (email.indexOf(".") == -1) || (email.charAt(email.indexOf("@")+1) == ".") || (email.charAt(email.indexOf("@")-1) == "."))
		return false
	else return true;
	}
function clib_innerHTML(div,msg) {
	var id = clib_getElementId(div);
	if (id == null) return true;
	id.innerHTML = msg;
	return false;
	}
function clib_getElementId(name){
	if ((name == null) || (name == '')) return null;
	var o = null;
	if (document.getElementById) {
		o = eval('document.getElementById("' + name + '")');
		if (o != null) return o;
		}
	if (document.all) {
		o = eval('document.all.' + name);
		if (o != null) return o;
		}
	if (document.images) {
		o = eval('document.images.' + name);
		if (o != null) return o;
		}
	return null;
	}

function clib_debugFunction(f) {
	if (f == null) f = false;
	if (!f && !clib_fDebug) return;
	var msg = '';
	var txt = clib_debugFunction.caller + ' ';
	var rg = txt.split('(');
	if (rg.length > 0) msg += rg[0];
	msg += '(';
	for (var i = 0; i < clib_debugFunction.caller.arguments.length; i++) {
		if (i > 0) msg += ', ';
		msg += clib_debugFunction.caller.arguments[i];
		}
	msg += ')';
	var id = clib_getElementId('debugdiv');
	if (id == null) alert(msg);
	else clib_innerHTML('debugdiv',msg);
	}