sub resLire {local($To) = @_; 
local $nomFic = &getFile($To,"","Res"); 
 local $x = ""; 
 srand $$; until(open(F1,"<".$nomFic)) {select(undef,undef,undef,rand)}; $x .= join("",<F1>); close(F1);
 local($k,$x0,$y,$nom,$y1,$y2,$y3,$x2); 
 local %T0 = (); 
 local($date,$err); 
while(true) {
 if ($x ne "") {$x =~ s/^\s*//};
 if ($x eq '') {last}; $k = index($x,"/#T)");
 if ($k==-1) {return 101}; $k = $k+4; $x0 = substr($x,0,$k); $x = substr($x,$k);
 if ($x0!~/\(#T\(Resume\)new:\/\/(\w+)\/#T\(resOwner\):(\w+)\/#T\(resError\):(\w+)\/#T\(resVCrit\):(.*)\/#T\(resVData\):(.*)\/#T/) {next};
 $date = $1; $nom = $2; $err = $3; $y1 = $4; $y2 = $5; $y3 = "";
 if ($y2=~/(.*)\/#T\(resVMail\):(.*)/) {$y2 = $1; $y3 = $2};
 if ($y2=~/(.*)\/#T\(resVDate\):(.*)/) {$y2 = $1; if ($2 ne "") {$date = $2}};
 if ($nom eq "1000") {next};
 $x2 = $To.$nom; %{$T0{$x2}} = (); $T0{$x2}{'resOwner'} = $nom; $T0{$x2}{'resError'} = $err; $T0{$x2}{'resVCrit'} = $y1; $T0{$x2}{'resVData'} = $y2; $T0{$x2}{'resVDate'} = $date; $T0{$x2}{'resVMail'} = $y3;
}
foreach $x2 (keys %T0) {
 if ($T0{$x2}{'resError'} eq "1") {next};
 $k = scalar(@wwEnr); %{$wwEnr[$k]} = (); foreach $y (keys %{$T0{$x2}}) {$wwEnr[$k]{$y} = $T0{$x2}{$y}}
}
 return 0;
}

function resLire(To) { 
var nomFic = getFile(To,"","Res"); 
 var x = ""; 
 x += eval(nomFic); 
 var k,x0,y,nom,y1,y2,y3,x2; 
 var T0 = []; 
 var date,err; 
while(true) {
 if (x!="") {x = x.replace(/^\s*/,"")};
 if (x=='') {break}; k = x.indexOf("/#T)");
 if (k==-1) {return 101}; k = k+4; x0 = x.substr(0,k); x = x.substr(k);
 if (!x0.match(/\(#T\(Resume\)new:\/\/(\w+)\/#T\(resOwner\):(\w+)\/#T\(resError\):(\w+)\/#T\(resVCrit\):(.*)\/#T\(resVData\):(.*)\/#T/)) {continue};
 date = RegExp.$1; nom = RegExp.$2; err = RegExp.$3; y1 = RegExp.$4; y2 = RegExp.$5; y3 = "";
 if (y2.match(/(.*)\/#T\(resVMail\):(.*)/)) {y2 = RegExp.$1; y3 = RegExp.$2};
 if (y2.match(/(.*)\/#T\(resVDate\):(.*)/)) {y2 = RegExp.$1; if (RegExp.$2!="") {date = RegExp.$2}};
 if (nom=="1000") {continue};
 x2 = To+nom; T0[x2] = []; T0[x2]['resOwner'] = nom; T0[x2]['resError'] = err; T0[x2]['resVCrit'] = y1; T0[x2]['resVData'] = y2; T0[x2]['resVDate'] = date; T0[x2]['resVMail'] = y3;
}
for(x2 in T0) {
 if (T0[x2]['resError']=="1") {continue};
 k = wwEnr.length; wwEnr[k] = []; for(y in T0[x2]) {wwEnr[k][y] = T0[x2][y]}
}
 return 0;
}