sub splitAddr {local($To,$nom,$ON) = @_; 
 if ($$ON eq "") {return 0}
 if ($$ON=~/\/#T\(ctc$To\):$nom\/#T/) {return 0}
 local($x1,$x2,$k,@T); 
 local $x = $$ON; 
if (($k=index($x,"/#T(resVMail):"))!=-1) {
 $x1 = substr($x,0,$k+14); $x = substr($x,$k+14); if (($k=index($x,"/#T"))==-1) {return 1}; $x = $x1.substr($x,$k);
}
 if (($k=index($x,"/#T(gloTLieu):"))==-1) {return 0}; $x1 = substr($x,0,$k+14); $x = substr($x,$k+14);
 if (substr($x,0,15) ne "(#L(gloTLieux):") {return 1}; $x1 .= substr($x,0,15); $x = substr($x,15);
while($x ne "") {
 if (substr($x,0,4) ne "(#L:") {return 2}; $x = substr($x,4);
 if (($k=index($x,"/#L)"))==-1) {return 2}; $x2 = substr($x,0,$k); $x = substr($x,$k+4);
 @T = split(/\/#L/,$x2); $T[11+1] = ":"; $x2 = join("\/#L",@T);
 $x1 .= "(#L:".$x2."/#L)";
 if (substr($x,0,4) ne "/#L:") {last}; $x1 .= "/#L:"; $x = substr($x,4);
}
 if (substr($x,0,4) ne "/#L)") {return 1}; $x1 .= "/#L)"; $x = substr($x,4);
 $$ON = $x1.$x;
 return 0;
}

function splitAddr(To,nom,ON) { 
 if (ON[0]=="") {return 0}
 if (ON[0].match(new RegExp("\\\/#T\\\(ctc"+To+"\\\):"+nom+"\\\/#T"))) {return 0}
 var x1,x2,k,T; 
 var x = ON[0]; 
if ((k=x.indexOf("/#T(resVMail):"))!=-1) {
 x1 = x.substr(0,k+14); x = x.substr(k+14); if ((k=x.indexOf("/#T"))==-1) {return 1}; x = x1+x.substr(k);
}
 if ((k=x.indexOf("/#T(gloTLieu):"))==-1) {return 0}; x1 = x.substr(0,k+14); x = x.substr(k+14);
 if (x.substr(0,15)!="(#L(gloTLieux):") {return 1}; x1 += x.substr(0,15); x = x.substr(15);
while(x!="") {
 if (x.substr(0,4)!="(#L:") {return 2}; x = x.substr(4);
 if ((k=x.indexOf("/#L)"))==-1) {return 2}; x2 = x.substr(0,k); x = x.substr(k+4);
 T = x2.split(/\/#L/); T[11+1] = ":"; x2 = T.join("\/#L");
 x1 += "(#L:"+x2+"/#L)";
 if (x.substr(0,4)!="/#L:") {break}; x1 += "/#L:"; x = x.substr(4);
}
 if (x.substr(0,4)!="/#L)") {return 1}; x1 += "/#L)"; x = x.substr(4);
 ON[0] = x1+x;
 return 0;
}