sub Contacter {local($To,$x1,$x2) = @_; 
 local($y,$k); 
 local $From = $nomBox."contact\@ca-demenage.com"; 
 if (($k=index($x1,","))==-1) {return 1}; $y = substr($x1,0,$k); $x1 = substr($x1,$k+1);
 if (($k=index($x1,","))==-1) {return 1}; $y = substr($x1,0,$k); $x1 = substr($x1,$k+1);
 local $flag = "false"; local($i); 
if (substr($x1,0,3) eq "cc:") {
 $x1 = substr($x1,3);
 if ($y ne "") {if (($i=&tstEmail($y))!=0) {return 100+$i}; $flag = "true"};
}
 local $x = ""; 
 $x .= "Suite à votre inscription sur le site, vous avez reçu le message suivant :\n\n";
 $x .= "Retrouvez votre correspondant sur le site pour lui répondre".(($y ne "")?" ou contactez-le par e-mail : ".$y."":"").".\n";
 $x .= "Message : \n".$x1."\n";
 return &Mailer(&MailDo($To,$From,(($flag eq "true")?$y:""),&parseMail("Ça-déménage.com - ".$x2.""),"",$x));
}

function Contacter(To,x1,x2) { 
 var y,k; 
 var From = nomBox+"contact\@ca-demenage.com"; 
 if ((k=x1.indexOf(","))==-1) {return 1}; y = x1.substr(0,k); x1 = x1.substr(k+1);
 if ((k=x1.indexOf(","))==-1) {return 1}; y = x1.substr(0,k); x1 = x1.substr(k+1);
 var flag = "false"; var i; 
if (x1.substr(0,3)=="cc:") {
 x1 = x1.substr(3);
 if (y!="") {if ((i=tstEmail(y))!=0) {return 100+i}; flag = "true"};
}
 var x = ""; 
 x += "Suite à votre inscription sur le site, vous avez reçu le message suivant :\n\n";
 x += "Retrouvez votre correspondant sur le site pour lui répondre"+((y!="")?" ou contactez-le par e-mail : "+y+"":"")+".\n";
 x += "Message : \n"+x1+"\n";
 return Mailer(MailDo(To,From,((flag=="true")?y:""),parseMail("Ça-déménage.com - "+x2+""),"",x));
}