sub passParse {local($form) = @_; 
 local($appel,$val,$i); 
 local $cas = "0"; 
 $appel = $$form{'Appel'};
 if ($appel eq "") {$cas = "1"; $appel = "mailUser"}
 if (($appel eq "Admin")||($appel eq "User")) {$cas = "1"; $appel = "new".$appel}
 $val = $$form{'Donnees'};
 if ($val ne "") {$val =~ s/\r\n/\n/gi; $val =~ s/\r/\n/gi};
 $appel!~/(\w+)(Admin|User)/;
 if ($cas ne "0") {$appel = $1."1".$2}
 $wwAppel = $appel; $wwFct = $1; $wwFrom = $2; $wwFromId = "";
 if (($i=&tstEmail($val))!=0) {return 'Erreur mail: '.$i.''}; $wwEmail = $val;
 return '';
}

function passParse(form) { 
 var appel,val,i; 
 var cas = "0"; 
 appel = form[0]['Appel'];
 if (appel=="") {cas = "1"; appel = "mailUser"}
 if ((appel=="Admin")||(appel=="User")) {cas = "1"; appel = "new"+appel}
 val = form[0]['Donnees'];
 if (val!="") {val = val.replace(/\r\n/gi,"\n"); val = val.replace(/\r/gi,"\n")};
 appel.match(/(\w+)(Admin|User)/);
 if (cas!="0") {appel = RegExp.$1+"1"+RegExp.$2}
 wwAppel = appel; wwFct = RegExp.$1; wwFrom = RegExp.$2; wwFromId = "";
 if ((i=tstEmail(val))!=0) {return 'Erreur mail: '+i.toString()}; wwEmail = val;
 return '';
}