function cookie_get (name) {
    var arg = name + "=";  
    var alen = arg.length;  
    var clen = document.cookie.length;  
    var i = 0;
    
    while (i < clen) {
        var j = i + alen;
        
        if (document.cookie.substring(i, j) == arg)
            return cookie_getval (j);
            
        i = document.cookie.indexOf(" ", i) + 1;
        
        if (i == 0) break;   
    }
    
    return null;
}

function cookie_set (name, value) {
    var argv = cookie_set.arguments;
    var argc = cookie_set.arguments.length;
    var expires = (argc > 2) ? argv[2] : null;
    var path = (argc > 3) ? argv[3] : null;
    var domain = (argc > 4) ? argv[4] : null;
    var secure = (argc > 5) ? argv[5] : false;
    
    document.cookie = name + "=" + escape (value) + 
        ((expires == null) ? "" : ("; expires=" + expires.toGMTString())) + 
        ((path == null) ? "" : ("; path=" + path)) +  
        ((domain == null) ? "" : ("; domain=" + domain)) +    
        ((secure == true) ? "; secure" : "");
}

function cookie_append (name, value) {
    var argv = cookie_append.arguments;
    var argc = cookie_append.arguments.length;
    var current = cookie_get(name);
    current = ((current == null) ? "" : current);
    var expires = (argc > 2) ? argv[2] : null;
    var path = (argc > 3) ? argv[3] : null;
    var domain = (argc > 4) ? argv[4] : null;
    var secure = (argc > 5) ? argv[5] : false;
    
    if (current.indexOf(value) == -1) {
        document.cookie = name + "=" + ((current.length > 0) ? current + "," + escape(value) : escape(value))+ 
            ((expires == null) ? "" : ("; expires=" + expires.toGMTString())) + 
            ((path == null) ? "" : ("; path=" + path)) +  
            ((domain == null) ? "" : ("; domain=" + domain)) +    
            ((secure == true) ? "; secure" : "");
    }
}

function cookie_unappend (name, value) {
    var argv = cookie_unappend.arguments;
    var argc = cookie_unappend.arguments.length;
    var current = cookie_get(name);
    current = ((current == null) ? "" : current);
    var expires = (argc > 2) ? argv[2] : null;
    var path = (argc > 3) ? argv[3] : null;
    var domain = (argc > 4) ? argv[4] : null;
    var secure = (argc > 5) ? argv[5] : false;
    var reVal = new RegExp(value, "g");
    
    current = current.replace(reVal, "");
    reVal = new RegExp(",,");
    current = current.replace(reVal, ",");
    if (current.charAt(0) == ",") 
        current = current.substring(1, current.length)
    if (current.charAt(current.length - 1) == ",") 
        current = current.substring(0, current.length - 1)
    
    if (current.length <= 1)
        cookie_delete(name);
    else
        document.cookie = name + "=" + current + 
            ((expires == null) ? "" : ("; expires=" + expires.toGMTString())) + 
            ((path == null) ? "" : ("; path=" + path)) +  
            ((domain == null) ? "" : ("; domain=" + domain)) +    
            ((secure == true) ? "; secure" : "");
}

function cookie_delete (name) {
    var exp = new Date();  
    exp.setTime (exp.getTime() - 1);

	// arguments[1] == path
	// arguments[2] == domain
	switch (arguments.length) {
		case 1: cookie_set(name, "", exp); break;
		case 2: cookie_set(name, "", exp, arguments[1]); break;
		case 3: cookie_set(name, "", exp, arguments[1], arguments[2]); break;
		default:
			alert("Invalid call to cookie_delete.");
	}
		
/*
    var cval = cookie_get (name);  
    
    document.cookie = name + "=" + cval + "; expires=" + exp.toGMTString();
*/
}

function cookie_getval(offset) {
    var endstr = document.cookie.indexOf (";", offset);
    
    if (endstr == -1)
        endstr = document.cookie.length;
    
    return unescape(document.cookie.substring(offset, endstr));
}

function cookie_check() {
	try {
		return navigator.cookieEnabled;
	} catch (err) {
		// Hmmm... old browsers aren't so cool...
		document.cookie = "cookie_check=test";
		return (document.cookie.indexOf("cookie_check=") != -1);
	}
}