Perl-JavaScript - Requêtes > wsCaD_chgMail > mailUser

Naviguation dans :	Perl	JavaScript	Détail	- wsCaD_chgMail.cgi?Appel=mailUser
présentée :	par cas d'appel par traitements

mailUser

Requêtes de Ça-déménage.com
Requête d'envoi de mail
Demande de codes particulier

submit

Demande de codes particulier — Appel de la requête

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	Demande de codes particulier — Fin correcte de la requête
Errer	Demande de codes particulier — Fin en erreur de la requête
Execer	Demande de codes particulier — Exécution de la requête
passParse	Demande de codes particulier — Passe les données issues du client
passIdent	Demande de codes particulier — Passe le contrôle d'identifiant

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();
}