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 = "ident"; $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")};
 if ($wwIdent eq "") {$i = 21} else {$i = &idtLire($To,\$wwIdent,\$wwAuth)}; 
 if($i==0){ 
 }elsif($i==2){ 
  return &Errer("2");
 }elsif($i==11){ return &Errer("1");
 }elsif($i==12){ 
  if (&idtEcrire($To,\$wwIdent,\$wwAuth)!=0) {return &Errer("9",\%form,"Erreur identification")}; 
 }elsif($i==21){ 
  if ($wwIdent ne "") {return &Errer("1")}; $wwAuth = ""; if (&idtCreer($To,\$wwIdent,\$wwAuth)!=0) {return &Errer("9",\%form,"Erreur identification")}; $nom = $wwIdent; 
 }elsif($i==100){ return &Errer("9",\%form,"Erreur identification");
 }
 if ($wwAuth ne "") {$wwAuth = "*"}
 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 = "ident"; 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")};
 if (wwIdent[0]=="") {i = 21} else {i = idtLire(To,wwIdent,wwAuth)}; switch(i) {
 case 0: break;
 case 2: 
  return Errer("2");
 case 11: return Errer("1");
 case 12: 
  if (idtEcrire(To,wwIdent,wwAuth)!=0) {return Errer("9",form,"Erreur identification")}
 case 21: 
  if (wwIdent[0]!="") {return Errer("1")}; wwAuth[0] = ""; if (idtCreer(To,wwIdent,wwAuth)!=0) {return Errer("9",form,"Erreur identification")}; nom = wwIdent[0];
 case 100: return Errer("9",form,"Erreur identification");
 }
 if (wwAuth[0]!="") {wwAuth[0] = "*"}
 var msg,Rtn; 
 Rtn = Array('');
 if ((msg=Execer(x,To,date,nom,val,Rtn))!='') {return Errer("9",form,msg)};
 return Finer(Rtn,nom,cible);
}