function getCookieVal(offset) 
{
var endstr=document.cookie.indexOf (";", offset);
if (endstr==-1)
	endstr=document.cookie.length;
	return unescape(document.cookie.substring(offset, endstr));
}

function GetCookie (name) 
{
var arg=name+"=";
var alen=arg.length;
var clen=document.cookie.length;
var i=0;
while (i<clen) 
	{
	var j=i+alen;
	if (document.cookie.substring(i, j)==arg)
		return getCookieVal (j);
	i=document.cookie.indexOf(" ",i)+1;
	if (i==0) 
		break;
	}
return null;
}

function SetCookie (name, value) 
{
var argv=SetCookie.arguments;
var argc=SetCookie.arguments.length;
var expires=(argc > 2) ? argv[2] : null;
var path=(argc > 3) ? argv[3] : null;
var domain=(argc > 4) ? argv[4] : null;
var secure=(argc > 5) ? argv[5] : false;
document.cookie=name+"="+escape(value)+
((expires==null) ? "" : ("; expires="+expires.toGMTString()))+
((path==null) ? "" : ("; path="+path))+
((domain==null) ? "" : ("; domain="+domain))+
((secure==true) ? "; secure" : "");
}

function Extraitdomaine(domain)
{
var i1=0;
var i2=0;
var i3=0;
i2=domain.indexOf(".",0);
while (i2!=-1)
	{
	i3=i1;
	i1=i2;
	i2=domain.indexOf(".",i1+1);
	}
domain = domain.substring(i3+1,domain.length);
return domain;
}

function gotag()
{
var expires=new Date();
var listedomaine="*lemonde.fr*193.149.121.20*interactif.lemonde.fr*sortir.lemonde.fr*archives.lemonde.fr*emploi.lemonde.fr*forums.lemonde.fr*musexpo.com*tout.lemonde.fr*"; 
var domaine = Extraitdomaine(document.domain);
var posdebfirstdomaine=0;
var posfinfirstdomaine=0;
var param="";
var posonedomaine=-1;
var param="";
var onedomaine="";
var expires=new Date();
expires.setTime (expires.getTime() + (30 * 60 * 1000)); // 30 mins
while ((posfinfirstdomaine!=-1) && (posonedomaine==-1))
	{
	posfinfirstdomaine=listedomaine.indexOf("*",posdebfirstdomaine+1);
	if (posfinfirstdomaine!=-1)
		{
		onedomaine=listedomaine.substring(posdebfirstdomaine+1,posfinfirstdomaine);
		posonedomaine=document.domain.toUpperCase().indexOf(onedomaine.toUpperCase(),0);
		posdebfirstdomaine=posfinfirstdomaine;
		}
	}
if (posonedomaine!=-1)
	{
	if (document.domain.length-posonedomaine-onedomaine.length==0)
		{
		if (GetCookie('DFC') == null)
			{
			SetCookie("DFC","1",expires," ",domaine);
			if (GetCookie('DFC') == null)
				param="?c=^off^&d=^"+document.domain+"^&r=^"+document.referrer;
			else
				param="?c=^on^&d=^"+document.domain+"^&r=^"+document.referrer;
			param=param.substring(1,210)
			param=param+"^\" border=0>"
			document.write("<img src=\"http://tag.lemonde.fr/img/"+Math.random()*1000000000+".gif"+param)
			}
		else
			{
			SetCookie("DFC","0",expires," ",domaine);
			}
		}
	}
}