Perl-JavaScript - Requêtes > load – User > toClient

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

toClient

Requêtes de Ça-déménage.com
Accès particulier
Construit le code JavaScript à retourner au client

saveUser

Construit le code JavaScript à retourner au client — Enregistrement des données

Syntaxe

toClient(cas,FORM,msg)

Paramètres

nom	type	Description
x	IN	Cas d'appel
To	IN	Cas d'appel
IN	IN	Code JavaScript à retourner Perl : scalaire passé par référence – JavaScript : tableau à 1 élément
OUT	OUT	Code JavaScript retourné Perl : scalaire passé par référence – JavaScript : tableau à 1 élément
retourne	OUT	0 : Traitement correct non nul : Erreur de traitement

Fonctions util.

uneval	Fonction réciproque de la fonction "eval"
wsRunVar	Paramètres de gestion des valeurs

Code Perl



sub toClient {local($x,$To,$IN,$OUT) = @_; 
 local($y); 
 $$IN .= "var Owner = \"".$wwIdent."\";\nvar Pass = \"".$wwAuth."\";\n";
 $$IN .= "var Compta = ".&uneval($wwNum).";\n";
 $y = "charge"; 
 $$OUT .= "<script language=\"JavaScript\">\n";
 $$OUT .= "var target = ".&uneval($y).";\n";
 $$OUT .= "var value = ".&uneval($$IN).";\n";
 $$OUT .= "<"."/script>\n";
 return 0;
}

Code JavaScript



function toClient(x,To,IN,OUT) { 
 var y; 
 IN[0] += "var Owner = \""+wwIdent[0]+"\";\nvar Pass = \""+wwAuth[0]+"\";\n";
 IN[0] += "var Compta = "+uneval(wwNum[0])+";\n";
 y = "charge";
 OUT[0] += "<script language=\"JavaScript\">\n";
 OUT[0] += "var target = "+uneval(y)+";\n";
 OUT[0] += "var value = "+uneval(IN[0])+";\n";
 OUT[0] += "<"+"/script>\n";
 return 0;
}