stats();


function stats(){

	var res = screen.width + "x" + screen.height;
	var qi = null;
	var et = new Date();
	var dt = "";
	var st = new Date();
	var dt = (et.getTime()-st.getTime())/1000;



	var lo = window.document.location.toString();
	var loe = urlencode(lo);


	var re = document.referrer.toString();
	var ree = urlencode(re);



	if (re.indexOf('&oq=')>0){
		var q = re.split('&oq=');
		if (q[1].indexOf('&')>0){
			var qi = q[1].substr(0,q[1].indexOf('&'));
		} else {
			var qi = q[1];
		}
	}

	if (re.indexOf('_nkw=')>0){
		var q = re.split('_nlw=');
		if (q[1].indexOf('&')>0){
			var qi = q[1].substr(0,q[1].indexOf('&'));
		} else {
			var qi = q[1];
		}
	}

	if (re.indexOf('query=')>0){
		var q = re.split('query=');
		if (q[1].indexOf('&')>0){
			var qi = q[1].substr(0,q[1].indexOf('&'));
		} else {
			var qi = q[1];
		}
	}


	if (re.indexOf('?q=')>0){
		var q = re.split('?q=');
		if (q[1].indexOf('&')>0){
			var qi = q[1].substr(0,q[1].indexOf('&'));
		} else {
			var qi = q[1];
		}
	}

	if (re.indexOf('&q=')>0){
		var q = re.split('&q=');
		if (q[1].indexOf('&')>0){
			var qi = q[1].substr(0,q[1].indexOf('&'));
		} else {
			var qi = q[1];
		}
	}


	if (re.indexOf('&searchfor=')>0){
		var q = re.split('searchfor=');
		if (q[1].indexOf('&')>0){
			var qi = q[1].substr(0,q[1].indexOf('&'));
		} else {
			var qi = q[1];
		}
	}





	if (lo.indexOf('ki=')>0){
		var k = lo.split('ki=');
		if (k[1].indexOf('&')>0){
			var ki = k[1].substr(0,k[1].indexOf('&'));
		} else {
			var ki = k[1];
		}
		
		var oScript = document.createElement("script");
		oScript.src = "https://t.pergoal.co.uk/Track/p2/3001058/"+ki+"-"+qi+"-"+dt+"-"+res+"-"+"-"+ree+"";
		document.body.appendChild(oScript);
	} else {
		fixlinks();	
	}
}

function get_cookie ( cookie_name )
{
 var results = document.cookie.match ( '(^|;) ?' + cookie_name + '=([^;]*)(;|$)' );

  if ( results )
    return ( unescape ( results[2] ) );
  else
    return null;
}

function fixlinks(){	
   var tds = document.getElementsByTagName("a");
    if (window.attachEvent) { b=1; } else if (window.addEventListener) { b=2; }
   for ( var t = 0; t < tds.length; ++t )
   {
	   curlink = tds[t].href;
       tds[t].href = curlink.replace('XXSubIDXX',get_cookie("Track"));

		if(curlink.indexOf("XXSubIDXX")>0){
            switch (b) {
                case 1:
                    tds[t].attachEvent("onclick",linkclick);
                    break;
                case 2:
                    tds[t].setAttribute("onclick","return linkclick()")
                    break;
                default:
                    //do nothing
            }
        }
   }
}

function linkclick(){
	var oScript3 = document.createElement("script");
	oScript3.src = "https://t.pergoal.co.uk/Track/p4/3001058/"+get_cookie("Track")+"";
	document.body.appendChild(oScript3);
}

function urlencode( str ) {
    // URL-encodes string  
    // 
    // version: 905.3122
    // discuss at: http://phpjs.org/functions/urlencode
    // +   original by: Philip Peterson
    // +   improved by: Kevin van Zonneveld (http://kevin.vanzonneveld.net)
    // +      input by: AJ
    // +   improved by: Kevin van Zonneveld (http://kevin.vanzonneveld.net)
    // +   improved by: Brett Zamir (http://brett-zamir.me)
    // +   bugfixed by: Kevin van Zonneveld (http://kevin.vanzonneveld.net)
    // +      input by: travc
    // +      input by: Brett Zamir (http://brett-zamir.me)
    // +   bugfixed by: Kevin van Zonneveld (http://kevin.vanzonneveld.net)
    // +   improved by: Lars Fischer
    // %          note 1: info on what encoding functions to use from: http://xkr.us/articles/javascript/encode-compare/
    // *     example 1: urlencode('Kevin van Zonneveld!');
    // *     returns 1: 'Kevin+van+Zonneveld%21'
    // *     example 2: urlencode('http://kevin.vanzonneveld.net/');
    // *     returns 2: 'http%3A%2F%2Fkevin.vanzonneveld.net%2F'
    // *     example 3: urlencode('http://www.google.nl/search?q=php.js&ie=utf-8&oe=utf-8&aq=t&rls=com.ubuntu:en-US:unofficial&client=firefox-a');
    // *     returns 3: 'http%3A%2F%2Fwww.google.nl%2Fsearch%3Fq%3Dphp.js%26ie%3Dutf-8%26oe%3Dutf-8%26aq%3Dt%26rls%3Dcom.ubuntu%3Aen-US%3Aunofficial%26client%3Dfirefox-a'
                             
    var histogram = {}, unicodeStr='', hexEscStr='';
    var ret = (str+'').toString();
    
    var replacer = function(search, replace, str) {
        var tmp_arr = [];
        tmp_arr = str.split(search);
        return tmp_arr.join(replace);
    };
    
    // The histogram is identical to the one in urldecode.
    histogram["'"]   = '%27';
    histogram['(']   = '%28';
    histogram[')']   = '%29';
    histogram['*']   = '%2A';
    histogram['~']   = '%7E';
    histogram['%2F']   = 'xxxx';
    histogram['!']   = '%21';
    histogram['%20'] = '+';
    histogram['\u00DC'] = '%DC';
    histogram['\u00FC'] = '%FC';
    histogram['\u00C4'] = '%D4';
    histogram['\u00E4'] = '%E4';
    histogram['\u00D6'] = '%D6';
    histogram['\u00F6'] = '%F6';
    histogram['\u00DF'] = '%DF';
    histogram['\u20AC'] = '%80';
    histogram['\u0081'] = '%81';
    histogram['\u201A'] = '%82';
    histogram['\u0192'] = '%83';
    histogram['\u201E'] = '%84';
    histogram['\u2026'] = '%85';
    histogram['\u2020'] = '%86';
    histogram['\u2021'] = '%87';
    histogram['\u02C6'] = '%88';
    histogram['\u2030'] = '%89';
    histogram['\u0160'] = '%8A';
    histogram['\u2039'] = '%8B';
    histogram['\u0152'] = '%8C';
    histogram['\u008D'] = '%8D';
    histogram['\u017D'] = '%8E';
    histogram['\u008F'] = '%8F';
    histogram['\u0090'] = '%90';
    histogram['\u2018'] = '%91';
    histogram['\u2019'] = '%92';
    histogram['\u201C'] = '%93';
    histogram['\u201D'] = '%94';
    histogram['\u2022'] = '%95';
    histogram['\u2013'] = '%96';
    histogram['\u2014'] = '%97';
    histogram['\u02DC'] = '%98';
    histogram['\u2122'] = '%99';
    histogram['\u0161'] = '%9A';
    histogram['\u203A'] = '%9B';
    histogram['\u0153'] = '%9C';
    histogram['\u009D'] = '%9D';
    histogram['\u017E'] = '%9E';
    histogram['\u0178'] = '%9F';
    
    // Begin with encodeURIComponent, which most resembles PHP's encoding functions
    ret = encodeURIComponent(ret);

    for (unicodeStr in histogram) {
        hexEscStr = histogram[unicodeStr];
        ret = replacer(unicodeStr, hexEscStr, ret); // Custom replace. No regexing
    }
    
    // Uppercase for full PHP compatibility
    return ret.replace(/(\%([a-z0-9]{2}))/g, function(full, m1, m2) {
        return "%"+m2.toUpperCase();
    });
}