var ScriptURL = 'http://www.trans-pacific-marketing.com/lyre.cgi';
var jvmAffId;
var jvmCampId;

function jvmSetCookie(name, value, longlife, path)
{
	var expires = longlife ? 'expires=Mon, 05-Jul-2024 23:59:59 GMT; ' : '';
	var curCookie =
		name + "=" + value + "; " +
		expires +
		(path ? "path=" + path : "");
	document.cookie = curCookie;
}

function jvmGetCookie(name)
{
	var prefix = name + "=";
	var idxStart = document.cookie.indexOf(prefix);
	if (idxStart == -1) return null;
	var idxEnd = document.cookie.indexOf(";", idxStart + prefix.length);
	if (idxEnd == -1) idxEnd = document.cookie.length;
	return unescape(document.cookie.substring(idxStart + prefix.length, idxEnd));
}

function jvmInitAffCookies()
{

	var path = document.location.pathname;
	var path = path.substring(0, path.lastIndexOf('/'));

//document.write("!!! path [" + path + "]<br>");

	var m;
	var qs = document.location.search;
	m = qs.match(/[?&]aff_id=([^&]+)/);
	jvmAffId = m == null ? '' : m[1];
	m = qs.match(/[?&]camp_id=([^&]+)/);
	jvmCampId = m == null ? '' : m[1];

//document.write("!!! qs jvmAffId [" + jvmAffId + "]<br>");
//document.write("!!! qs jvmCampId [" + jvmCampId + "]<br>");

	if (jvmAffId == "")
		jvmAffId = jvmGetCookie('jvm_aff_id');
	else
		jvmSetCookie('jvm_aff_id', jvmAffId, true, path);

	if (jvmCampId == "")
		jvmCampId = jvmGetCookie('jvm_camp_id');
	else
		jvmSetCookie('jvm_camp_id', jvmCampId, true, path);

//document.write("!!! after jvmAffId [" + jvmAffId + "]<br>");
//document.write("!!! after jvmCampId [" + jvmCampId + "]<br>");

}

function jvmPrintHref(href, title, addon)
{
	var qs = "";
	if (jvmAffId) qs += "aff_id=" + jvmAffId;
	if (jvmCampId) qs += "&camp_id=" + jvmCampId;
	href += href.indexOf('?') == -1 ? '?' : '&';
	href += qs;
	document.write('<a href="' + href + '" ');
	if (addon != null) document.write(addon);
	document.write('>' + title + '</a>');
}

function jvmClickCampaign()
{
	if (! jvmCampId) return;
	document.write('<img src="' + ScriptURL + '/action/JVM/Campaign/click?camp_id=' + jvmCampId + '"/>');
}

jvmInitAffCookies();
jvmClickCampaign();

// TMS #308 "parse aff_id inside the page"

function InsertHiddenAffID(name, param, def)
{
	InsertHiddenAffIDImpl('hidden', name, param, def);
}

function InsertHiddenAffIDTest(name, param, def)
{
	InsertHiddenAffIDImpl('text', name, param, def);
}

function InsertHiddenAffIDImpl(type, name, param, def)
{
	var value;

	var prefix = param + '=';
	var qs = document.location.search;
	var idxStart = qs.indexOf(prefix);
	if (idxStart == -1) 
		value = def;
	else
	{
		var idxEnd = qs.indexOf("&", idxStart + prefix.length);
		if (idxEnd == -1) idxEnd = qs.length;
		value = unescape(qs.substring(idxStart + prefix.length, idxEnd));
	}

	document.write('<input type="' + type + '" name="' + name + '" value="' + value + '">');
}