sub toClient {local($IN) = @_; 
 local($From,$To); $From = $To = &getBox('contact'); 
 local $x = ""; 
 $To = $wwEmail;
 local(@T,$k); 
 if ($$IN eq "") {return 0}; @T = split(/\//,substr($$IN,1));
 $x .= "To: ".$To."\nFrom: ".$From."\nSubject: Ça-déménage.com\nContent-Type: text/plain; charset=iso-8859-1\n\n";
 $x .= "Une demande a été reçue concernant vos codes de connexions.\n";
for($k=0;$k<scalar(@T);$k++) {if ($T[$k]=~/^(\w+),(.*)/) {
 $x .= "Identifiant : ".$1."\nMot de passe : ".$2."\n";
}}
 return &Mailer($x);
}

function toClient(IN) { 
 var From,To; From = To = getBox('contact'); 
 var x = ""; 
 To = wwEmail;
 var T,k; 
 if (IN[0]=="") {return 0}; T = IN[0].substr(1).split(/\//);
 x += "To: "+To+"\nFrom: "+From+"\nSubject: Ça-déménage.com\nContent-Type: text/plain; charset=iso-8859-1\n\n";
 x += "Une demande a été reçue concernant vos codes de connexions.\n";
for(k=0;k<T.length;k++) {if (T[k].match(/^(\w+),(.*)/)) {
 x += "Identifiant : "+RegExp.$1+"\nMot de passe : "+RegExp.$2+"\n";
}}
 return Mailer(x); return 0
}