Naviguation dans :  Perl  JavaScript  Détail  - wsCaD_chgMail.cgi?Appel=mailAdmin
 présentée :  par cas d'appel   par traitements 
Retour à l'accueil
  
 
 Requêtes 

 wsCaD_chgMail 

 submit 

 Requêtes de Ça-déménage.com
Requête d'envoi de mail
Appel de la requête


 mailAdmin  Appel de la requête — Demande de codes professionnel
Syntaxe submit_mail()
Paramètres 
nom  type  Description 
–  IN Données issues du client
retourne  OUT Page HTML
Fonctions util. 
 Parser Recevoir des données issues du client
 Finer Fin correcte de la requête — Demande de codes professionnel
 Errer Fin en erreur de la requête — Demande de codes professionnel
 Execer Exécution de la requête — Demande de codes professionnel
 passParse Passe les données issues du client — Demande de codes professionnel
 passIdent Passe le contrôle d'identifiant — Demande de codes professionnel


Code Perl 


sub submit_mail { 
 local(%form,$i); 
 %form = ();
 if (($i=&Parser(\%form))!=0) {return &Errer("0",\%form,'Erreur parse: '.$i.'')};
 $wwFct = ""; $wwFrom = ""; $wwFromId = ""; $wwEmail = ""; @wwIn = ('');
 $wwIdent = ''; $wwAuth = ''; $wwMsg = '';
 local($msg); 
 if (($msg=&passParse(\%form)) ne "") {return &Errer("9",\%form,(($msg eq "9")?"APPEL INCORRECT":$msg))};
 if (($msg=&passIdent()) ne "") {if ($msg eq "9") {return &Errer("9",\%form,"Erreur identification")}; return &Errer($msg)};
 if (($msg=&Execer()) ne '') {return &Errer($msg)};
 return &Finer();
}
Code JavaScript 


function submit_mail() { 
 var form,i; 
 form = new Array(Array());
 if ((i=Parser(form))!=0) {return Errer("0",form,'Erreur parse: '+i.toString())};
 wwFct = ""; wwFrom = ""; wwFromId = ""; wwEmail = ""; wwIn = Array(Array(''));
 wwIdent = Array(''); wwAuth = Array(''); wwMsg = Array('');
 var msg; 
 if ((msg=passParse(form))!="") {return Errer("9",form,((msg=="9")?"APPEL INCORRECT":msg))};
 if ((msg=passIdent())!="") {if (msg=="9") {return Errer("9",form,"Erreur identification")}; return Errer(msg)};
 if ((msg=Execer())!='') {return Errer(msg)};
 return Finer();
}