/*-----------------------------------------------------------------------
 * cookie�֐�
 *
 * DEPENDENCIES
 *  - 
 *
 * @version $Revision$
 *-----------------------------------------------------------------------
 */

// COOKIE�擾�A�ݒ�Ɋւ����`
var  MEMORYCOOKIE_NAME    ="KM_SS"; // ������cookie
var  FILECOOKIE_NAME      ="KM_ST"; // �t�@�C��cookie
var  KENCOOKIE_NAME      ="KEN_ST"; // �t�@�C��cookie
var  COOKIE_DOMAIN        ="keikotomanabu.net"; // �h���C��
var static_escape_char='%';
var static_delimitor_name=':';
var static_delimitor_value='|';
var static_delimitor_cookie=';';
var static_delimitor_cname='=';

/*
 * �f���~�^(:|)�������񒆂ɂ���ꍇ�ɂ́A%���‚���
 * @param  string job      �ҏW���镶����
 * @return string job      �ҏW��̕�����
 */
function static_escape_string(job)
{
	// ����job�����݂��Ȃ��ꍇ�A�󕶎���Ԃ�
	if(job == null) {
		return "";
	}

	// �������ҏW�i:��%:�j
	job = job.replace(static_delimitor_name, static_escape_char+static_delimitor_name);

	// �������ҏW�i|��%|�j
	job = job.replace(static_delimitor_value, static_escape_char+static_delimitor_value);

	// �l��Ԃ�
	return job;
}

/*
 * �G�X�P�[�v(%)���ꂽ�f���~�^(:|)�������񒆂ɂ���ꍇ�ɂ́A%���O��
 * @param  string job      �ҏW���镶����
 * @return string job      �ҏW��̕�����
 */
function static_unescape_string(job)
{

	// ����job�����݂��Ȃ��ꍇ�A�󕶎���Ԃ�
	if(job == null) {
		return "";
	}

	// �������ҏW�i%:��:�j
	job = job.replace(static_escape_char+static_delimitor_name, static_delimitor_name);

	// �������ҏW�i%|��|�j
	job = job.replace(static_escape_char+static_delimitor_value, static_delimitor_value);

	// �l��Ԃ�
	return job;
}

/*
 * �N�b�L�[�𕪊����āA�ΏۂƂȂ閼�O�̒l��Ԃ�
 * @param cookie      �N�b�L�[������
 * @param name        �Ώۖ�(Array)
 * @return            
 */
function km_cookie_get_value(cookie, name)
{
	var item;
	var c_num, c_num2;
	var i_num;
	var i, flag;
	var nname, value;

	// ����cookie�܂��͈���name�����݂��Ȃ��ꍇ�ANULL��Ԃ�
	if(cookie == null || name == null) {
		return null;
	}
	cookie = unescape(cookie);
	c_num = 0;
	flag = 0;
	for(i = 0; flag == 0; ++i) {
		c_num2 = c_num;
		c_num = cookie.indexOf(static_delimitor_cookie, c_num2+1);
		if(c_num == -1) {
			c_num = cookie.length;
			flag = 1;
		}
		if(c_num2 != 0) {
			++c_num2;
		}
		str = cookie.substring(c_num2, c_num);
		i_num = str.indexOf(static_delimitor_cname);
		
		if(i_num != -1) {
			nname = str.substring(0, i_num);
			value = str.substring(i_num+1, str.length);
			if(nname.length > 0) {
				nname = nname.replace(/^\s+|\s+$/g, "");
			}
			if(value.length > 0) {
				value = value.replace(/^\s+|\s+$/g, "");
			}
		}
		if(nname == name) {
			return value;
		}
	}
	return null;
}

/*
 * �N�b�L�[����l���擾����
 * @param cookie      �N�b�L�[������
 * @param name        �Ώۖ�
 */
function km_cookie_get_unzip(cookie, name)
{
	var nname;
	var value;
	var num, num2, num3;
	var flag = 0;
	
	if(cookie == null || name == null) {
		return null;
	}
	
	// �N�b�L�[����name�ŒT��
	nname = static_escape_string(name);
	if(nname.length == 0) {
		return null;
	}
	num = cookie.indexOf(nname) ;
	if(num == -1) {
		return null;
	}
	flag = 1;
	while(flag == 1) {
		// name���G�X�P�[�v����ĂȂ������`�F�b�N����
		num2 = cookie.indexOf(static_delimitor_name, num);
		if(cookie.charAt(num2-static_escape_char.length) == static_escape_char) {
			num = num2+static_delimitor_name.length;
			flag = 1;
		} else if(num2 == -1) {
			flag = 0;
		} else {
			num2+=static_delimitor_name.length;
			flag = 0;
		}
	}
	flag = 1;
	num = num2;
	while(flag == 1) {
		// value���G�X�P�[�v����Ă��Ȃ������`�F�b�N����
		num3 = cookie.indexOf(static_delimitor_value, num);
		if(cookie.charAt(num3-static_escape_char.length) == static_escape_char) {
			num = num3+static_delimitor_value.length;
			flag = 1;
		} else {
			flag = 0;
		}
	}
	if(num2 <= -1) {
		return null;
	}
	if(num3 <= -1) {
		num3 = cookie.length;
	}
	value = cookie.substring(num2, num3);
	return static_unescape_string(value);
}

/*
 * �N�b�L�[�p�̐ݒ蕶������쐬����
 * @param cookiename      �N�b�L�[������
 * @param cookievalue     �Ώۖ�
 * @param expr            �Ώێ���(null���Ɩ��ݒ�j
 */
function km_cookie_set_value(cookiename, cookievalue, expr)
{
	var str;
	
	if(cookiename == null) {
		return null;
	}
	if(cookievalue == null) {
		cookievalue = "";
	}
	
	str = cookiename + "=" + escape(cookievalue) + "; domain=" + COOKIE_DOMAIN + "; path=/";
	if(expr != null) {
		str = str + "; Expires="+expr;
	}
	return str;
}

/*
 * �N�b�L�[�p��Expire���Ԃ𐶐�����
 * �R������̂Q�T���𐶐�����
 *
 */
function km_session_expr(str)
{
	var nowtime;
	var nflag = 0;
	var datestr;
	var nmonth;
	var yobi = new Array("Sun", "Mon", "Tue", "Wed", "Thu", "Fir", "Sat");
	var tuki = new Array("Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec");
	
	if(str == null || str.length == 0) {
		nowtime = new Date();
	} else {
		nowtime = new Date(str);
	}
	
	if(nowtime.getDate() > 25) {
		nflag = 1;
	}
	nowtime.setDate(25);

	if(nowtime.getMonth() > (8-nflag)) {
		nowtime.setFullYear(nowtime.getFullYear() + 1);
	}
	nmonth=(nowtime.getMonth() + 3 + nflag) % 12;
	nowtime.setMonth(nmonth);
	
	datestr = yobi[nowtime.getDay()]+", "+nowtime.getDate()+"-"+tuki[nowtime.getMonth()]+"-"+nowtime.getFullYear()+" 00:00:00 GMT";
	return datestr;
}

/*
 * �N�b�L�[�p��Expire���Ԃ𐶐�����
 * �폜�p�̎��Ԃ�Ԃ�
 *
 */
function km_session_expr_remove()
{
	return "Thu, 1-Jan-1970 00:00:00 GMT";
}

/*
 * �N�b�L�[�ɒl��ݒ肷��
 * @param cookie      �N�b�L�[������
 * @param name        �Ώۖ�
 */
function km_cookie_zip_touroku(cookie, name, value)
{
	var nname;
	var num, num2, num3, num4;
	var flag = 0;
	var newcookie;
	
	if(name == null) {
		return null;
	}
	if(cookie == null) {
		cookie = "";
	}
	// �N�b�L�[����name�ŒT��
	nname = static_escape_string(name);
	if(nname.length == 0) {
		return null;
	}
	if(value != null) {
		value = static_escape_string(value);
	}
	num = cookie.indexOf(nname) ;

	if(num > -1) {
		// �u���ΏۂƂȂ�name�����łɑ��݂���
		// name:value�̕��������菜��
		flag = 1;
		num4 = num;
		while(flag == 1) {
			// name���G�X�P�[�v����ĂȂ������`�F�b�N����
			num2 = cookie.indexOf(static_delimitor_name, num4);
			if(cookie.charAt(num2-static_escape_char.length) == static_escape_char) {
				num4 = num2+static_delimitor_name.length;
				flag = 1;
			} else if(num2 == -1) {
				flag = 0;
			} else {
				num2+=static_delimitor_name.length;
				flag = 0;
			}
		}
		flag = 1;
		num4 = num2;
		while(flag == 1) {
			// value���G�X�P�[�v����Ă��Ȃ������`�F�b�N����
			num3 = cookie.indexOf(static_delimitor_value, num4);
			if(cookie.charAt(num3-static_escape_char.length) == static_escape_char) {
				num4 = num3+static_delimitor_value.length;
				flag = 1;
			} else if(num3 == -1) {
				flag = 0;
			} else {
				num3+=static_delimitor_value.length;
				flag = 0;
			}
		}
		if(num3 <= -1) {
			num3 = cookie.length;
			num-=static_delimitor_value.length;
		}
		if(num2 > -1) {
			newcookie = cookie.substring(0, num) + cookie.substring(num3, cookie.length);
		} else {
			newcookie = cookie;
		}
	} else {
		newcookie = cookie;
	}
	
	// value���̏ꍇ�́A�l�̍폜
	if(value != null) {
		// �N�b�L�[�ɒlj�����
		if(newcookie.length == 0) {
			newcookie = nname + static_delimitor_name + value;
		} else {
			newcookie = newcookie + static_delimitor_value + nname + static_delimitor_name + value;
		}
	}
	
	return newcookie;
}