// logpsychoanalyst_tracker.js, v0.1
//-------------------------------------------------------------------
// see the documentation page: http://www.logpsychoanalyst.com/documentation.html
//-------------------------------------------------------------------

var lpamisctrackerurl="/lpa/logpsychoanalyst_tracker.js";

function lpa_setCookie(TRKNameOfCookie, TRKvalue, TRKexpirehours) {
	var TRKExpireDate = new Date ();
  TRKExpireDate.setTime(TRKExpireDate.getTime() + (TRKexpirehours * 3600 * 1000));
  document.cookie = TRKNameOfCookie + "=" + escape(TRKvalue) + "; path=/" + ((TRKexpirehours == null) ? "" : "; expires=" + TRKExpireDate.toGMTString());
}

function lpa_detectIE(TRKClassID) {
	TRKresult = false;
	document.write('<SCR' + 'IPT LANGUAGE="VBScript">\n on error resume next \n TRKresult = IsObject(CreateObject("' + TRKClassID + '"))</SCR' + 'IPT>\n');
	if (TRKresult) return 'y';
	else return 'n';
}

function lpa_detectNS(TRKClassID) {
	TRKn = "n";
	if (TRKnse.indexOf(TRKClassID)>=0) if (navigator.mimeTypes[TRKClassID].enabledPlugin != null) TRKn = "y";
	return TRKn;
}

function lpa_getCookie(TRKNameOfCookie){
	if (document.cookie.length>0){
		TRKbegin = document.cookie.indexOf(TRKNameOfCookie+"=");
	  if (TRKbegin>=0) {
			TRKbegin += TRKNameOfCookie.length+1; 
			TRKend = document.cookie.indexOf(";", TRKbegin);
			if (TRKend<0) TRKend = document.cookie.length;
    	return unescape(document.cookie.substring(TRKbegin, TRKend));
		}
  }
	return null; 
}


if (window.location.search == "") {

	TRKnow = new Date();
	TRKscreen=screen.width+"x"+screen.height;
	if (navigator.appName != "Netscape") {TRKcdi=screen.colorDepth}
	else {TRKcdi=screen.pixelDepth};
	TRKjava=navigator.javaEnabled();
	TRKuserid=lpa_getCookie("LPAUSER_ID");
	TRKsessionid=lpa_getCookie("LPASESSION_ID");
	var TRKrandomnumber=Math.floor(Math.random()*10000);
	if (TRKuserid == null || (TRKuserid=="")) {TRKuserid = "" + TRKnow.getTime() +"r"+ TRKrandomnumber};
	if (TRKsessionid == null || (TRKsessionid=="")) {TRKsessionid = "" + TRKnow.getTime() +"r"+ TRKrandomnumber};
	lpa_setCookie("LPAUSER_ID", TRKuserid, 10000);
	lpa_setCookie("LPASESSION_ID", TRKsessionid, 1);
	TRKuserid=""; TRKuserid=lpa_getCookie("LPAUSER_ID");
	TRKsessionid=""; TRKsessionid=lpa_getCookie("LPASESSION_ID");
	
	var TRKagt=navigator.userAgent.toLowerCase();
	var TRKie  = (TRKagt.indexOf("msie")>=0);
	var TRKns  = (navigator.appName.indexOf("Netscape")>=0);

	var TRKwin = ((TRKagt.indexOf("win")>=0) || (TRKagt.indexOf("32bit")>=0));
	var TRKmac = (TRKagt.indexOf("mac")>=0);

  var TRKbl = "-" // browser language (BL)
  if (navigator.language) {
    TRKbl = navigator.language;    // BL for Netscape4
  } else if (navigator.browserLanguage) {
    TRKbl = navigator.userLanguage;    // BL for IE
  }
	
	if (TRKie && TRKwin) {
		var TRKshk = lpa_detectIE("SWCtl.SWCtl.1")
		var TRKfla = lpa_detectIE("ShockwaveFlash.ShockwaveFlash.1")
		var TRKrp  = lpa_detectIE("rmocx.RealPlayer G2 Control.1")
		var TRKmov = lpa_detectIE("QuickTimeCheckObject.QuickTimeCheck.1")
		var TRKwma = lpa_detectIE("MediaPlayer.MediaPlayer.1")
		var TRKpdf = 'n'; 
		var TRKpdfv = 'NA';
    if (lpa_detectIE("PDF.PdfCtrl.1") == 'y') { TRKpdf = 'y'; TRKpdfv='4';} // Acrobat 4
	  if (lpa_detectIE('PDF.PdfCtrl.5') == 'y') { TRKpdf = 'y'; TRKpdfv='5';} // Acrobat 5
		if (lpa_detectIE('PDF.PdfCtrl.6') == 'y') { TRKpdf = 'y'; TRKpdfv='6';} // Acrobat 6
    if (lpa_detectIE('AcroPDF.PDF.1') == 'y') { TRKpdf = 'y'; TRKpdfv='7';} // Acrobat 7
    var TRKjws = 'NA';//lpa_detectIE("JavaWebStart.isInstalled") // removed temporarily to avoid warning under MSIE
		var TRKsvg = lpa_detectIE("Adobe.SVGCtl");
	}
	if (TRKns || !TRKwin) {
		TRKnse = ""; for (var TRKi=0;TRKi<navigator.mimeTypes.length;TRKi++) TRKnse += navigator.mimeTypes[TRKi].type.toLowerCase();
		var TRKshk = lpa_detectNS("application/x-director")
		var TRKfla = lpa_detectNS("application/x-shockwave-flash")
		var TRKrp  = lpa_detectNS("audio/x-pn-realaudio-plugin")
		var TRKmov = lpa_detectNS("video/quicktime")
		var TRKwma = lpa_detectNS("application/x-mplayer2")
		var TRKpdf = lpa_detectNS("application/pdf");
		var TRKpdfv = 'NA';
		var TRKjws = 'n'; if (navigator.mimeTypes['application/x-java-jnlp-file']) { TRKjws='y';} // java web start
		var TRKsvg = (document.implementation.hasFeature("org.w3c.dom.svg", "1.0")?'y':lpa_detectNS("image/svg-xml")); // the first part is for Firefox1.5 and SeaMonkey. For other browsers, we check the mime-type processed by any plugin (e.g Adobe SVG viewer)
	}//end if
	var imgsrc=lpamisctrackerurl+'?screen='+TRKscreen+'&cdi='+TRKcdi+'&java='+TRKjava+'&bl='+TRKbl+'&shk='+TRKshk+'&fla='+TRKfla+'&rp='+TRKrp+'&mov='+TRKmov+'&wma='+TRKwma+'&pdf='+TRKpdf+'&pdfv='+TRKpdfv+'&jws='+TRKjws+'&svg='+TRKsvg+'&uid='+TRKuserid+'&sid='+TRKsessionid;
  if(document.images || document.createElementNS) {
  	// if possible, create the image using clean XHTML code
	  var tempImage = new Image(1,1);// 1x1 images to force loading in some browsers (e.g. Mozilla)
  	tempImage.src = imgsrc;
  } else {
  	// patch code for "old" browsers
	  document.write('<img src="'+imgsrc+'" height=1 width=1 border=0>')
  }//end if


}