function mkURLInscription()
        {
	prm = document.location.href.split("?");
	pseudo =  prm[1] ;
	document.write("<script src=/cgi-bin/common/club/rubriques/mess/mess_insc?pse=" + pseudo + "></script>") ;
	}

function mkURLReadMess()
        {
	prm = document.location.href.split("?");
	bind =  prm[1] ;
	document.write("<script src=/cgi-bin/common/club/rubriques/mess/mess_lire?bind=" + bind + "></script>") ;
	}

function mkHisto()
	{
	histo = Cplgetcookie("CplHisto" + grp + "-" + num) ;
	if(histo != "")
		{
		document.write(unescape(histo)) ;
		}
	else
		{
		document.write("<i>Ceci est un premier contact.</i>") ;
		}
	}

function mkURLMess()
        {
	pseudo = Cplgetcookie("CplPsd") ;
	if(pseudo == "")
		{
		document.write("<script src=\"/cgi-bin/common/club/rubriques/mess/mess_insc?pse=Anonyme...\"></script>") ;
		}
	bind = Cplgetcookie("CplBnd") ;
//	alert(pseudo+":"+bind) ;
	if(bind != "")
		{
		document.write("<script src=/cgi-bin/common/club/rubriques/mess/mess_liste?bind=" + bind + "></script>") ;
		}
	else
		{
		mess_max = 0 ;
		mess_ready = 0 ;
		}
	}

function demission()
	{
	pseudo = "" ;
	Cplsetcookie("CplPsd", pseudo) ;
	}

function trouveExp(n)
	{
	if(nb_mess == 0)
		{
//		window.location.href = "mess_vide.html" ;
		return ;
		}

	if(cv.length == 0)
		{
		cv = "(Pas de CV)" ;
		}
	if(rapp.length == 0)
		{
		rapp = "(Premier contact)" ;
		}
	}

function mkURLWriteMess()
        {
	pseudo = Cplgetcookie("CplPsd") ;
	prm = document.location.href.split("?");
	dest =  prm[1] ;
	grp =  prm[2] ;
	num =  prm[3] ;
	dep =  prm[4] ;
	cv =  prm[5] ;
	}

function sendMess()
	{
	bind = Cplgetcookie("CplBnd") ;

	Cplsetcookie("CplCntct" + grp + "-" + num, 1) ;

	histo = "<br><i>Votre message :<br>" + document.mess.mess.value + "</i>" ;
	if(mess != "")
		{
		histo += "<br><b>Son message :<br>" + mess + "</b>" ;
		}
	histo += Cplgetcookie("CplHisto" + grp + "-" + num) ;
	Cplsetcookie("CplHisto" + grp + "-" + num, histo) ;

	document.write("<script src=/cgi-bin/common/club/rubriques/mess/mess_ecrire?"
		+ "num=" + num 
		+ "&grp=" + grp
		+ "&bind=" + bind
		+ "&mess=" + escape(document.mess.mess.value)
		+ "&rapp=" + mess
		+ "></script>") ;
	}

function mkSetProfil()
	{
	document.profil.tlist[0].checked = Cplgetcookie("CplSrt") ;
	document.profil.pseudo.value = Cplgetcookie("CplPsd") ;
	document.profil.dep.value = Cplgetcookie("CplDpt") ;
	document.profil.cv.value = Cplgetcookie("CplCv") ;
	}

function setProfil()
	{
	bind = Cplgetcookie("CplBnd") ;

	Cplsetcookie("CplSrt", document.profil.tlist[0].checked) ;
	Cplsetcookie("CplPsd", document.profil.pseudo.value) ;
	Cplsetcookie("CplDpt", document.profil.dep.value) ;
	Cplsetcookie("CplCv", document.profil.cv.value) ;

	document.write("<script src=/cgi-bin/common/club/rubriques/mess/mess_profil?"
		+ "bind=" + bind
		+ "&pse=" + escape(document.profil.pseudo.value)
		+ "&dep=" + escape(document.profil.dep.value)
		+ "&cv=" + escape(document.profil.cv.value)
		+ "&tlist=" + escape(document.profil.tlist[0].checked)
		+ "></script>") ;
	}

function	inscrit(txt)
	{
	pseu = txt.value;

	window.open("/common/club/rubriques/mess/inscrip.html?" + pseu
			, "inscrip"
			, "scrollbars=yes,resizable=yes,width=350,height=400"
		) ;
	}

function	monProfil(txt)
	{
	window.open("/common/club/rubriques/mess/profil.html?"
			, "profil"
			, "scrollbars=yes,resizable=yes,width=350,height=400"
		) ;
	}

function	lireMess(b)
	{
	mess_ready-- ;
	if(mess_ready < 0)
		{
		mess_ready = 0 ;
		}

	if(mess_ready == 0)
		{
		for(i = 0 ; i < document.images.length ; i++)
			{
			if(document.images[i].name == "messPic")
				{
				document.images[i].src = "/common/club/rubriques/mess/img/verif.gif" ;
				}
			}
		}

	window.open("/common/club/rubriques/mess/lire.html?" + bind
			, "liremess" + Math.round(Math.random () * 1000000000000000)
			, "scrollbars=yes,resizable=yes,width=350,height=400"
		) ;
	}

function writeToNum(num)
	{
	openDial(num) ;
	}

function writeTo()
	{
	openDial(liste.options[liste.selectedIndex].value) ;
	}

function openDial(num)
	{
	if(num < 0)
		{
		return ;
		}

	window.open("/common/club/rubriques/mess/write.html?" + mess_pseudo[num]
		+ "?"
		+ mess_grp[num]
		+ "?"
		+ mess_num[num]
		+ "?"
		+ mess_dep[num]
		+ "?"
		+ mess_cv[num]
			, "writeto"
			, "scrollbars=yes,resizable=yes,width=350,height=400"
		) ;
	}

function sort_dep(t1, t2)
	{
        return (mess_dep[t1] < mess_dep[t2] ? -1 : 1) ;
	}

function sort_pseudo(t1, t2)
	{
        return (mess_pseudo[t1] < mess_pseudo[t2] ? -1 : 1) ;
	}

function mkMess()
	{
	pseudo = Cplgetcookie("CplPsd") ;
	grp = Cplgetcookie("CplGrp") ;
	num = Cplgetcookie("CplNum") ;
	bind = Cplgetcookie("CplBnd") ;

	Cplsetcookie("CplPsd", pseudo) ;
	Cplsetcookie("CplGrp", grp) ;
	Cplsetcookie("CplNum", num) ;
	Cplsetcookie("CplBnd", bind) ;

	found = 0 ;
	for(i = 0 ; i < mess_max ; i++)
		{
		if((mess_grp[i] == grp) && (mess_num[i] == num))
			{
			found = 1 ;
			break ;
			}
		}

	str = "" ;

	str = '<TABLE width="100%" border="0" cellspacing="6" cellpadding="0" bgcolor="#550033" class="b">'
		+ '<TR><TD class="intro">' 
		+ '<A href="javascript:;" '
		+ 'onClick="MM_openBrWindow(\'/common/club/rubriques/mess/aide.html\',\'guide\',\'scrollbars=yes,resizable=yes,width=350,height=400\')">'
		+ '<IMG src="/common/public/img/aide.gif" width="15" height="15" align="right" border="0" vspace="0" hspace="0"></A>'
		+ 'Dialogue direct</TD></TR><TR><TD>' ;


	if((pseudo == "") || (found == 0))
		{
		str += "Pseudo : <input type=text size=15 name=pseudo onChange=\"inscrit(this)\" style='margin-right:6px;'>" ;
		str += "<input type=submit name=submit value=OK>" ;
		str += "<br><span class=petit>Vous pouvez taper un pseudo pour dialoguer avec les connect&eacute;s de Xpeep.com</span>" ;
		}
	else
		{
		var i ;

		str += "<a href=javascript:; onClick=\"monProfil()\"  class=novisit style=font-weight:normal><b>" + pseudo + "</b> : Changer de pseudo / CV</a>" ;
		str += '</td></tr><tr><td><a href="javascript:;" onClick="lireMess(bind)"><img hspace=0 border=0 name="messPic" src="/cgi-bin/common/club/rubriques/mess/mess_verif?bind=' + bind + "&uniq=" + Math.round(Math.random () * 1000000000000000) + '">' ;
		str += '</td></tr><tr><td><select id=liste name=liste class=courier>' ;
		str += "<option value=-1>" + mess_max + " connect&eacute;s :" ;

		var tsort = new Array();
		for(i = 0 ; i < mess_max ; i++)
			{
			tsort[i] = i ;
			}

		if(Cplgetcookie("CplSrt") == "true")
			{
			tsort.sort(sort_pseudo);
			}
		else
			{
			tsort.sort(sort_dep);
			}

		for(i = 0 ; i < mess_max ; i++)
			{
			r = tsort[i] ;

			if(mess_num[r] == num)
				{
				col = "moi" ;
				}
			else if((i % 2) == 0)
				{
				col = "2" ;
				}
			else
				{
				col = "" ;
				}
			longmax = 10 ;
			str += '<option value=' + r + ' class=option' + col + '>' ;
			str += "(" + mess_dep[r] + ")" ;
			if(Cplgetcookie("CplCntct" + mess_grp[r] + "-" + mess_num[r]) == 1)
				{
				str += "*" ;
				}
			else
				{
				str += " " ;
				}
			str += unescape(mess_pseudo[r]).substring(0, longmax) ;
			if(unescape(mess_pseudo[r]).length > longmax)
				{
				str += "..." ;
				}

			if(mess_cv[r].length > 0)
				{
				str += '<option value=' + r + ' class=option' + col + '>' ;
				str += unescape(mess_cv[r]).substring(0, longmax+3) ;
				if(unescape(mess_cv[r]).length > longmax+3)
					{
					str += "..." ;
					}
				}
			}
		str += '</select><input type=submit onClick="writeTo(liste)" value="Ecrire" style="margin-left:6px">' ;
		}

	str += '</TD></TR></TABLE>' ;

	document.write(str) ;

	setTimeout('verifMess(' + bind + ', 0)', 10000) ;
	}

function verifMess(b, mode)
	{
	if(mess_ready == 0)
		{
		for(i = 0 ; i < document.images.length ; i++)
			{
			if(document.images[i].name == "messPic")
				{
				document.images[i].src = "/cgi-bin/common/club/rubriques/mess/mess_verif?bind=" + b + "&uniq=" + Math.round(Math.random () * 1000000000000000) ;
				}
			}
		}

	if(mode)
		{
		mkListe() ;
		}

	setTimeout('verifMess(' + b + ',' + mode + ')', 10000) ;
	}
	
function mkListe()
	{
	pseudo = Cplgetcookie("CplPsd") ;
	grp = Cplgetcookie("CplGrp") ;
	num = Cplgetcookie("CplNum") ;
	bind = Cplgetcookie("CplBnd") ;

	Cplsetcookie("CplPsd", pseudo) ;
	Cplsetcookie("CplGrp", grp) ;
	Cplsetcookie("CplNum", num) ;
	Cplsetcookie("CplBnd", bind) ;

	cmd = "<script language=javascript1.2 src=/cgi-bin/common/club/rubriques/mess/mess_liste?bind="
	cmd += bind
	cmd += "&m=1"
	cmd += "&r="
	cmd += Math.round(Math.random () * 10000000)
	cmd += "></script>" ;

	str = "" ;

	str += cmd ;
	str += "<table>" ;
	str += "<tr><td colspan=4>reload : " ;
	str += new Date() ;
	str += " " + mess_max + " " ;
	str += "</td></tr>" ;

/*
	var tsort = new Array();
	for(i = 0 ; i < mess_max ; i++)
		{
		tsort[i] = i ;
		}

	if(Cplgetcookie("CplSrt") == "true")
		{
		tsort.sort(sort_pseudo);
		}
	else
		{
		tsort.sort(sort_dep);
		}

	for(i = 0 ; i < mess_max ; i++)
		{
		r = tsort[i] ;

		if(mess_num[r] == num)
			{
			col = "moi" ;
			}
		else if((i % 2) == 0)
			{
			col = "2" ;
			}
		else
			{
			col = "" ;
			}

		str += "<tr>" ;

		str += "<td>" ;
		str += mess_dep[r] ;
		str += "</td>" ;

		str += "<td>" ;
		if(Cplgetcookie("CplCntct" + mess_grp[r] + "-" + mess_num[r]) == 1)
			{
			str += "*" ;
			}
		else
			{
			str += "&nbsp;" ;
			}
		str += "</td>" ;

		str += "<td>" ;
		str += '<a href=# onClick="writeToNum(' + r + ')">' ;
		str += unescape(mess_pseudo[r]) ;
		str += "</a>" ;
		str += "</td>" ;

		str += "<td>" ;
		str += unescape(mess_cv[r]) ;
		str += "</td>" ;

		str += "</tr>" ;
		}
*/
	str += "</table>" ;

	el = document.getElementById("tList") ;
	src = "DEBUT" + cmd + "FIN" + mess_max ;
	el.innerHTML = src ;
	alert(src) ;

	setTimeout('mkListe()', 10000) ;
	}