sub Execer {local($x,$To,$date,$nom,$val,$RTN) = @_; 
 local($i,$In,$Out,$Num,$Mail); 
 $In = ''; $Out = ''; $Num = ''; $Mail = '';
 $wwNum = '';
 &printLog("Load",'Log','/#T(Appel):'.$x.' '.$To.$nom.' '.$val.'');
 local($Dest); 
 if ($val!~/^(Admin|User)/) {return 'Erreur historique: 103'}; $Dest = $1; $val = substr($val,length($1));
 if (&wsFile("check",$Dest,$val,"")!=0) {return 'Erreur mail: 104'};
 if (($i=&cptHisto($To,$nom,$Dest.$val,\$Out))!=0) {return 'Erreur historique: '.$i.''};
 $Out .= "window.parent.de.Ltexte.locEvtHistoFin(\"".$Dest.$val."\");\n";
 if (($i=&toClient($x,$To,\$Out,$RTN))!=0) {return 'Erreur export: '.$i.''};
 return '';
}

function Execer(x,To,date,nom,val,RTN) { 
 var i,In,Out,Num,Mail; 
 In = Array(''); Out = Array(''); Num = Array(''); Mail = Array('');
 wwNum = Array('');
 printLog("Load",'Log','/#T(Appel):'+x+' '+To+nom+' '+val+'');
 var Dest; 
 if (!val.match(/^(Admin|User)/)) {return 'Erreur historique: 103'}; Dest = RegExp.$1; val = val.substr(RegExp.$1.length);
 if (wsFile("check",Dest,val,"")!=0) {return 'Erreur mail: 104'};
 if ((i=cptHisto(To,nom,Dest+val,Out))!=0) {return 'Erreur historique: '+i.toString()};
 Out[0] += "window.parent.de.Ltexte.locEvtHistoFin(\""+Dest+val+"\");\n";
 if ((i=toClient(x,To,Out,RTN))!=0) {return 'Erreur export: '+i.toString()};
 return '';
}