var dragon = String(this.window.location) ;
var cookies=document.cookie;

if (dragon.length == 38 ) {
	GOTOvar = "GoTo";
}
else {
	GOTOvar = "" ;
}

function carpCookie() {
	var myBars = 'directories=no,location=no,menubar=no,status=yes';
	myBars += ',titlebar=yes,toolbar=no';
	var myOptions ='scrollbars=yes,width=475,height=305,resizable=yes';
	var myFeatures = myBars + ',' + myOptions;
	var refWindow = open('../subpop.html', 'ref_Win', myFeatures);
}

function readCookie(name) {
	var start = cookies.indexOf(name + "=");
	var week = cookies.indexOf("week");
	var never = cookies.indexOf("never");
	//if ((start == -1) && (week == -1) && (never == -1)) {
	if ((start == -1)) {
		carpCookie();
	}
	start=cookies.indexOf("=",start)+1;
	var end=cookies.indexOf(";",start);
	if (end==-1) {
		end=cookies.length;
	}
	var value=unescape(cookies.substring(start,end));
	//if (value==null) {
	//	alert("Cookie not found");
	//}
	//else {
	//	alert("Cookie value is: "+value);
	//}
}

function writeReferrerCookie() {
	var cookies = document.cookie;
	var start = cookies.indexOf("origReferrer=");
	now = new Date;
	expireDate=new Date;
	expireDate.setYear(expireDate.getYear()+2);
	if (start == -1) {
		document.cookie = "origReferrer=" + GOTOvar + document.referrer + ";expires=" + expireDate.toGMTString() + ";path=cgi-bin/";
	
	}
	document.cookie = "sessionReferrer=" + GOTOvar + document.referrer + ";expires=" + expireDate.toGMTString() +";path=cgi-bin/";
	readCookie('useremail');
}