var dbug = 0;
function d_a(ary) {

	var beg = next_cookie_entry(ary) - 1;

	for (var i = beg ; i > -1; i--) {
		ary[i] = null;
	}
} 

function init_cookie_array() {if (dbug) alert('init_cookie');  var ary = new Array(null); return ary;}

function set_cookie(name,value,expires) {

	if (dbug) alert('set_cookie');
	if (!expires) expires = 0;

	document.cookie = name + '=' + escape(value) + '; max-age=' + expires + '; path=/';
}

function get_cookie(name) {

	if (dbug) alert('get_cookie');
	var dcookie = document.cookie;
	var cname = name + "=";
	var clen = dcookie.length;
	var cbegin = 0;
	//alert(document.cookie);
	while (cbegin < clen) {

		var vbegin = cbegin + cname.length;

		if (dcookie.substring(cbegin, vbegin) == cname) {

			var vend = dcookie.indexOf (";", vbegin);
			if (vend == -1) vend = clen;
			return unescape(dcookie.substring(vbegin, vend));
		}

		cbegin = dcookie.indexOf(" ", cbegin) + 1;

		if (cbegin == 0) {

			break;
		}
	}

	return null;
}

function del_cookie(name) {
	if (dbug) alert('del_cookie');
	document.cookie = name + '=' + ';max-age=0;path=/';
	}

function get_cookie_array(name) {

	if (dbug) alert('get_cookie_array');

	//d_a(ary);

	var ent = get_cookie(name);

	if (ent) {

		return ent.toString().split("^");
	}

	else {

		return new Array();
	}
}

function set_cookie_array(name, ary, expires) {
	if (dbug) alert('set_cookie_array');

	var value = '';

	for (var i = 0; ary[i]; i++) {

		value += ary[i];

		if (i != ary.length - 1) {

			value += '^';
		}
	}

	set_cookie(name, value, expires);
}

function del_cookie_entry(name, ary, pos, expires) {if (dbug) alert('del_entry');
var value = ''; get_cookie_array(name, ary); for (var i = 1; i < pos; i++) {value += ary[i] + '^';} for (var j = pos + 1; ary[j]; j++) {value += ary[j] + '^';} set_cookie(name, value, expires);}

function next_cookie_entry(ary) {if (dbug) alert('next_cookie_entry'); var j = 0; for (var i = 1; ary[i]; i++) {j = i} return j + 1;}

function debug_cookie_on() {dbug = 1;}

function debug_cookie_off() {dbug = 0;}

function dump_cookies() {if (document.cookie == '') document.write('No Cookies Found'); else {thisCookie = document.cookie.split('; '); for (i=0; i<thisCookie.length; i++) {document.write(thisCookie[i] + '<br \/>');}}}