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 = "";
 local($k,$x1); 
 $k = index($val,"/#"); if ($k==-1) {return 'Erreur données'}; $wwIn[0] = substr($val,0,$k); $val = substr($val,$k+2);
 $k = index($val,"/#"); if ($k==-1) {return 'Erreur données'}; $wwIn[1] = substr($val,0,$k); $val = substr($val,$k+2);
 $wwIn[2] = $val;
 $x1 = $wwIn[0]; if (index($x1," ")!=-1) {$x1 = substr($x1,0,index($x1," "))}
 if (($i=&tstEmail($x1))!=0) {return 'Erreur mail: '.$i.''}; $wwEmail = $wwIn[0];
 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 = "";
 var k,x1; 
 k = val.indexOf("/#"); if (k==-1) {return 'Erreur données'}; wwIn[0][0] = val.substr(0,k); val = val.substr(k+2);
 k = val.indexOf("/#"); if (k==-1) {return 'Erreur données'}; wwIn[0][1] = val.substr(0,k); val = val.substr(k+2);
 wwIn[0][2] = val;
 x1 = wwIn[0][0]; if (x1.indexOf(" ")!=-1) {x1 = x1.substr(0,x1.indexOf(" "))}
 if ((i=tstEmail(x1))!=0) {return 'Erreur mail: '+i.toString()}; wwEmail = wwIn[0][0];
 return '';
}