sub resEcrire {local($To,$nom,$noms) = @_; 
 local($x,$k); 
 local $Out = ''; 
 $noms .= "/";
for($k=0;$k<scalar(@wwEnr);$k++) {
 if (index($noms,"/".$wwEnr[$k]{'resOwner'}."/")==-1) {next};
 $x = "";
 $x .= '(#T(Resume)new:';
 $x .= '/#T(resOwner):'.$wwEnr[$k]{'resOwner'};
 $x .= '/#T(resError):'.$wwEnr[$k]{'resError'};
 $x .= '/#T(resVCrit):'.$wwEnr[$k]{'resVCrit'};
 $x .= '/#T(resVData):'.$wwEnr[$k]{'resVData'};
 $x .= '/#T(resVDate):'.$wwEnr[$k]{'resVDate'};
 $x .= '/#T(resVMail):'.$wwEnr[$k]{'resVMail'};
 $x .= '/#T)'."\n";
 $Out .= $x;
}; if ($Out eq "") {return 0};
 &setDate(\$Out);
local $nomFic = &getFile($To,$nom,"Res"); 
 srand $$; until(open(F1,">>".$nomFic)) {select(undef,undef,undef,rand)}; print F1 $Out; close(F1);
local $nomFic = &getFile($To,$nom,""); 
 srand $$; until(open(F1,">>".$nomFic)) {select(undef,undef,undef,rand)}; print F1 $Out; close(F1);
 return 0;
}

function resEcrire(To,nom,noms) { 
 var x,k; 
 var Out = Array(''); 
 noms += "/";
for(k=0;k<wwEnr.length;k++) {
 if (noms.indexOf("/"+wwEnr[k]['resOwner']+"/")==-1) {continue};
 x = "";
 x += '(#T(Resume)new:';
 x += '/#T(resOwner):'+wwEnr[k]['resOwner'];
 x += '/#T(resError):'+wwEnr[k]['resError'];
 x += '/#T(resVCrit):'+wwEnr[k]['resVCrit'];
 x += '/#T(resVData):'+wwEnr[k]['resVData'];
 x += '/#T(resVDate):'+wwEnr[k]['resVDate'];
 x += '/#T(resVMail):'+wwEnr[k]['resVMail'];
 x += '/#T)'+"\n";
 Out[0] += x;
}; if (Out[0]=="") {return 0};
 setDate(Out);
var nomFic = getFile(To,nom,"Res"); 
 eval(nomFic+" += Out[0]"); 
var nomFic = getFile(To,nom,""); 
 eval(nomFic+" += Out[0]"); 
 return 0;
}