function ABSOL_setCookie(name, value, expires, path, domain, secure) {
  var curCookie = name + "=" + escape(value) +
      ((expires) ? "; expires=" + expires.toGMTString() : "") +
      ((path) ? "; path=" + path : "") +
      ((domain) ? "; domain=" + domain : "") +
      ((secure) ? "; secure" : "");
  document.cookie = curCookie;
}

function ABSOL_getCookie(name) {
  var dc = document.cookie;
  var prefix = name + "=";
  var begin = dc.indexOf("; " + prefix);
  if (begin == -1) {
    begin = dc.indexOf(prefix);
    if (begin != 0) return null;
  } else
    begin += 2;
  var end = document.cookie.indexOf(";", begin);
  if (end == -1)
    end = dc.length;
  return unescape(dc.substring(begin + prefix.length, end));
}

function ABSOL_deleteCookie(name, path, domain) {
  if (ABSOL_getCookie(name)) {
    document.cookie = name + "=" + 
    ((path) ? "; path=" + path : "") +
    ((domain) ? "; domain=" + domain : "") +
    "; expires=Thu, 04-Jan-01 00:00:01 GMT";
  }
}

function ABSOL_fixDate(date) {
  var base = new Date(0);
  var skew = base.getTime();
  if (skew > 0)
    date.setTime(date.getTime() - skew);
}

function ABSOL_extractDomain(url)
{
	var pos = url.indexOf("//");
	var pos2 = url.indexOf("/",pos+2);
	if (pos2 == -1)
	{
		pos2 = url.length();
	}
	return url.substring(pos+2,pos2);
}

function ABSOL_checkCookie(URL)
{
		var dt = new Date();
		dt.setYear(dt.getYear()+1);
		ABSOL_setCookie("TestCookie", "test", dt, "/", ABSOL_extractDomain(URL) , false);
		cookieval = ABSOL_getCookie("TestCookie");
		ABSOL_deleteCookie("TestCookie", "/", ABSOL_extractDomain(URL));
		if (cookieval == "test")
		{
			return true;
		}
		else
		{
			return false;
		}
}

var ABSOL_ImageURL = 'http://tracking.absolstats.co.za/images/Trackedby10.gif'
var ABSOL_oldOnLoad = window.onload;
var ABSOL_executed = false;

function ABSOL_imageSetter()
{

	if (ABSOL_oldOnLoad != null && !ABSOL_executed)
	{
		ABSOL_executed = true;
		ABSOL_oldOnLoad();
	}
	ABSOL_execute = true;
	document.all('STATSIMAGE').src=ABSOL_ImageURL;
}

function trackPage(OwnerID, Group)
{
	
	if(OwnerID!=11800) //excluded cellularonline due to high traffic - Lawrence
	{
		trackPageByURL(OwnerID, Group, location.href)
	}
}


function trackPageOnload(OwnerID, Group, dontCheckOnload)
{
	if(OwnerID!=11800) //excluded cellularonline due to high traffic - Lawrence
	{
		trackPageByURLOnload(OwnerID, Group, location.href,dontCheckOnload)
	}
}

function trackPageByURL(OwnerID, Group, Pid)
{
	trackPageByURLOnload(OwnerID, Group, Pid, false)
}

function trackPageByURLOnload(OwnerID, Group, Pid, dontCheckOnload)
{
	var URL = Pid;
	var cookies="0";
	var oldid="unknown";
	var dt = new Date();
	if (ABSOL_checkCookie(URL)==true)
	{
		oldid = ABSOL_getCookie("AbsolStatsUID");
		if (oldid == null)
		{
			dt.setYear(dt.getYear()+1);
			rannum = Math.random()*100000;
			rannum = Math.round(rannum);
			var newid = ""+dt.getTime()+"-"+rannum;
			ABSOL_setCookie("AbsolStatsUID", newid, dt, "/", ABSOL_extractDomain(URL) , false);
			//alert("AbsolStatsUID - "+newid+" - "+ dt+" - "+ "/" +" - "+ ABSOL_extractDomain(URL)+" - "+ false);
	  	    	oldid = newid;
			cookies = "1";	
		}
		else
		{
			cookies = "2";
		}
	}


	var dt = new Date();

	//  if window.onload has not been defined then display the image right away

	if (dontCheckOnload || typeof window.onload == "undefined")
	{
		document.write('<a target="_blank" href="http://reporting.absolstats.co.za/showstats.asp?ownerid='+OwnerID+'"><img src="http://tracking.absolstats.co.za/image.asp?ownerid='+OwnerID+'&atc='+Math.random()+'&ref='+escape(document.referrer)+'&ttl='+escape(document.title)+'&scr='+screen.width + 'X' + screen.height+'&cd='+screen.colorDepth+'&tzn='+dt.getTimezoneOffset()+'&js=yes&uid='+oldid+'&cky='+cookies+'&grp='+Group+'&pid='+escape(Pid)+'" id="STATSIMAGE" border=0></a>');
		//window.status='no window onloader '+window.onload;
	}

	// else let the existing window.onload execute first before loading the stats image
	else
	{
		document.write('<a target="_blank" href="http://reporting.absolstats.co.za/showstats.asp?ownerid='+OwnerID+'"><img src="http://tracking.absolstats.co.za/images/blank.gif" id="STATSIMAGE" border=0></a>');
	
		ABSOL_ImageURL = 'http://tracking.absolstats.co.za/image.asp?ownerid='+OwnerID+'&atc='+Math.random()+'&ref='+escape(document.referrer)+'&ttl='+escape(document.title)+'&scr='+screen.width + 'X' + screen.height+'&cd='+screen.colorDepth+'&tzn='+dt.getTimezoneOffset()+'&js=yes&uid='+oldid+'&cky='+cookies+'&grp='+Group+'&pid='+escape(Pid);
	
		//window.status='window onloader: '+window.onload;

		ABSOL_oldOnLoad = window.onload;
	
		window.onload=ABSOL_imageSetter;
	}
}