var gVersion="1.0";
var gImages=new Array;
var gIndex=0;
var DCS=new Object();
var WT=new Object();
var DCSext=new Object();

//var gDomain="sdc.merck.com";
var gDomain=getSDCDomain();
var gDcsId="";
// Add customizations here
//WT.sp="@@SPLITVALUE@@";

function dcsVar(){
	var dCurrent=new Date();
	WT.tz=dCurrent.getTimezoneOffset()/60*-1;
	WT.bh=dCurrent.getHours();
	WT.ul=navigator.appName=="Netscape"?navigator.language:navigator.userLanguage;
	if (typeof(screen)=="object"){
		WT.cd=screen.colorDepth;
		WT.sr=screen.width+"x"+screen.height;
	}
	if (typeof(navigator.javaEnabled())=="boolean"){
		WT.jo=navigator.javaEnabled()?"Yes":"No";
	}
	if (document.title){
		WT.ti=document.title;
	}
	WT.js="Yes";
	if (typeof(gVersion)!="undefined"){
		WT.jv=gVersion;
	}
	DCS.dcsdat=dCurrent.getTime();
	DCS.dcssip=window.location.hostname;
	DCS.dcsuri=window.location.pathname;
	if (window.location.search){
		DCS.dcsqry=window.location.search;
	}
	//if ((window.document.referrer!="")&&(window.document.referrer!="-")){
	//	if (!(navigator.appName=="Microsoft Internet Explorer"&&parseInt(navigator.appVersion)<4)){
			DCS.dcsref=window.document.referrer;
	//	}
	//}
}

function A(N,V){
	return "&"+N+"="+dcsEscape(V);
}

function dcsEscape(S){
	if (typeof(RE)!="undefined"){
		var retStr = new String(S);
		for (R in RE){
			retStr = retStr.replace(RE[R],R);
		}
		return retStr;
	}
	else{
		return escape(S);
	}
}

function dcsCreateImage(dcsSrc){
	if (document.images){
		gImages[gIndex]=new Image;
		gImages[gIndex].src=dcsSrc;
		gIndex++;
	}
	else{
		document.write('<img border="0" name="DCSIMG" width="1" height="1" src="'+dcsSrc+'"/>');
	}
}

function dcsMeta(){
	var myDocumentElements;
	if (document.all){
		myDocumentElements=document.all.tags("meta");
	}
	else if (document.documentElement){
		myDocumentElements=document.getElementsByTagName("meta");
	}
	if (typeof(myDocumentElements)!="undefined"){
		for (var i=1;i<=myDocumentElements.length;i++){
			myMeta=myDocumentElements.item(i-1);
			if (myMeta.name){
				if (myMeta.name.indexOf('WT.')==0){
					WT[myMeta.name.substring(3)]=myMeta.content;
				}
				else if (myMeta.name.indexOf('DCSext.')==0){
					DCSext[myMeta.name.substring(7)]=myMeta.content;
				}
				else if (myMeta.name.indexOf('DCS.')==0){
					DCS[myMeta.name.substring(4)]=myMeta.content;
				}
			}
		}
	}
}

function dcsTag(){

//alert (gDomain);

	var P="http"+(window.location.protocol.indexOf('https:')==0?'s':'')+"://"+gDomain+(gDcsId==""?'':'/'+gDcsId)+"/dcs.gif?";
	for (N in DCS){
		if (DCS[N]) {
			P+=A(N,DCS[N]);
		}
	}
	for (N in WT){
		if (WT[N]) {
			P+=A("WT."+N,WT[N]);
		}
	}
	for (N in DCSext){
		if (DCSext[N]) {
			P+=A(N,DCSext[N]);
		}
	}
	if (P.length>2048&&navigator.userAgent.indexOf('MSIE')>=0){
		P=P.substring(0,2040)+"&WT.tu=1";
	}
//alert (P);

	dcsCreateImage(P);


}

	function getSDCDomain() {
		if ((window.location.hostname.indexOf("-localhost.") > 0) || (window.location.hostname.indexOf("wpus") > 0)){
			return "sdc.merck.com";
		} else if((window.location.hostname.indexOf("-ut.") > 0) || (window.location.hostname.indexOf("-it.") > 0)) {
			return "sdc.merck.com";
		} else {
			return "www.sdcmerck.com";
		}
	}


function tagBinary(itm) {
	var tag = "";
	//set path to the item passed in 
	try {
		//should be a link
		DCS.dcsuri=itm.pathname;
		//set referrer to the current page
		DCS.dcsref=window.location.pathname;
		//if undefined, set uri equal to item
		if (DCS.dcsuri == "undefined")
			DCS.dcsuri=itm.replace(DCS.dcssip,"");
	} catch (er) {
		//should be a string
		DCS.dcsuri=itm.replace(DCS.dcssip,"");
	}

	try {
		//create new tag for binary file
		dcsTag();
	} catch (er2) {}
	//printVariables();
	//always return true
	return true;
}



function tagExternal(itm) {
	DCS.dcsuri=itm;
	dcsTag();
}

function dcs_cookie(NAME){
	var cookies = document.cookie;
	var pos = cookies.indexOf(NAME + "=");
	if (pos != -1){
		var start = pos + NAME.length +1;
		var end = cookies.indexOf(";", start);
		if (end == -1) end = cookies.length;
		var cookievalue = cookies.substring(start,end);
		cookievalue = unescape(cookievalue);
		DCSext[NAME] = cookievalue;
	}
}

function printVariables(){
	var names=" ";
	var mylist=" ";
	for (var i in WT){
		names=i;
		mylist += 'WT.'+names+' = '+WT[names]+'\n';
	}
	for (var i in DCS){
		names=i;
		mylist += 'DCS.'+names+' = '+DCS[names]+'\n';
	}
	for (var i in DCSext){
		names=i;
		mylist += 'DCSext.'+names+' = '+DCSext[names]+'\n';
	}
	alert(mylist);
}	
dcsVar();
dcsMeta();
dcs_cookie("unique_visitor");
dcsTag();
//printVariables();