sub submit { 
 local(%form,$i); 
 local($date,$nom,$val); 
 local $cible = ""; 
 %form = ();
 if (($i=&Parser(\%form))!=0) {return &Errer("0",\%form,'Erreur parse: '.$i.'')};
 local($x,$To); 
 $appel = $form{'Appel'};
 $x = "histo"; $To = "User";
 $date = "";
 $nom = $form{'Owner'};
 $val = $form{'Donnees'};
 if ($val ne "") {$val =~ s/\r\n/\n/gi; $val =~ s/\r/\n/gi};
 $wwIdent = $form{'Owner'};
 $wwAuth = $form{'Pass'};
 if (&wsFile("check",$To,$nom,"")!=0) {return &Errer("1")};
 local($msg,$Rtn); 
 $Rtn = '';
 if (($msg=&Execer($x,$To,$date,$nom,$val,\$Rtn)) ne '') {return &Errer("9",\%form,$msg)};
 return &Finer(\$Rtn,$nom,$cible);
}

function submit() { 
 var form,i; 
 var date,nom,val; 
 var cible = ""; 
 form = new Array(Array());
 if ((i=Parser(form))!=0) {return Errer("0",form,'Erreur parse: '+i.toString())};
 var x,To; 
 appel = form[0]['Appel'];
 x = "histo"; To = "User";
 date = "";
 nom = form[0]['Owner'];
 val = form[0]['Donnees'];
 if (val!="") {val = val.replace(/\r\n/gi,"\n"); val = val.replace(/\r/gi,"\n")};
 wwIdent = Array(form[0]['Owner']);
 wwAuth = Array(form[0]['Pass']);
 if (wsFile("check",To,nom,"")!=0) {return Errer("1")};
 var msg,Rtn; 
 Rtn = Array('');
 if ((msg=Execer(x,To,date,nom,val,Rtn))!='') {return Errer("9",form,msg)};
 return Finer(Rtn,nom,cible);
}