Perl-JavaScript - Requêtes > wsCaD_run > submit

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

submit

Requêtes de Ça-déménage.com
Requête d'entrée de site
Appel de la requête

newUser | oldUser | newAdmin | oldAdmin

oldAdmin

Appel de la requête — Ancien professionnel

Syntaxe

submit_run()

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
printLog	Ecriture de la log

Finer	Fin correcte de la requête — Ancien professionnel
Specer	Fin spéciale de la requête — Ancien professionnel
Errer	Fin en erreur de la requête — Ancien professionnel
getENV	Retourne les propriétés du client (user agent)

Code Perl



sub submit_run { 
 local(%form,$i); 
 local($appel); 
 %form = ();
 if (($i=&Parser(\%form))!=0) {return &Errer('Erreur parse: '.$i.'')};
 $appel = $form{'Appel'};
 $appel = "Admin ".$appel;
 &printLog("Admin","Log","/#T(Appel):".$appel);
 if (&getENV() ne "") {return &Specer($appel)}
 return &Finer($appel);
}

Code JavaScript



function submit_run() { 
 var form,i; 
 var appel; 
 form = new Array(Array());
 if ((i=Parser(form))!=0) {return Errer('Erreur parse: '+i.toString())};
 appel = form[0]['Appel'];
 appel = "Admin "+appel;
 if (getENV()!="") {return Specer(appel)}
 return Finer(appel);
}