Perl-JavaScript - Requêtes > wsCaD_run > oldUser

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

oldUser

Requêtes de Ça-déménage.com
Requête d'entrée de site
Ancien particulier

submit | Finer | Specer | Errer

submit

Ancien particulier — Appel de la requête

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

Finer	Ancien particulier — Fin correcte de la requête
Specer	Ancien particulier — Fin spéciale de la requête
Errer	Ancien particulier — Fin en erreur de la requête
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 = "User ".(($appel eq "User")?"":$appel)." ".$form{'Cible'};
 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 = "User "+((appel=="User")?"":appel)+" "+form[0]['Cible'];
 if (getENV()!="") {return Specer(appel)}
 return Finer(appel);
}