Perl-JavaScript - Bibliothèque CaD > Fichiers > Erreur

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

Requêtes de Ça-déménage.com
Accès professionnel
Fin en erreur de la requête

Bibliothèque CaD

Fichiers

Erreur

Bibliothèque de Ça-déménage.com
Accès aux fichiers
Fonctions de gestion des erreurs

errFile | errParse

errParse

Construit l'enregistrement du parse des données client

Syntaxe

errParse(cas,FORM)

Paramètres

nom	type	Description
cas	IN	Cas d'appel — L'enregistrement n'est construit que si la cas d'appel vaut "9"
FORM	IN	Hash des champs reçus du client Perl : hash passé par référence – JavaScript : tableau à 1 élément
retourne	OUT	Les données reçues du client (champ/valeur)

Fonctions util.

Néant

Code Perl


sub errParse {local($cas,$FORM) = @_; 
 local($x1,$y); 
 local $x = ""; 
 $x .= '(';
if ($cas eq "9") {foreach $y (keys %{$FORM}) {
 $x1 = $y.'='.$$FORM{$y};
 if ($x1 ne "") {$x1 =~ s/\n/\\n/gi; $x1 =~ s/\r/\\r/gi; $x1 =~ s/\/#/\\\/\\#/gi};
 $x .= '#L:'.$x1.'/';
}}
 $x .= '#L)';
 return $x;
}

Code JavaScript


function errParse(cas,FORM) { 
 var x1,y; 
 var x = ""; 
 x += '(';
if (cas=="9") {for(y in FORM[0]) {
 x1 = y+'='+FORM[0][y];
 if (x1!="") {x1 = x1.replace(/\n/gi,"\\n"); x1 = x1.replace(/\r/gi,"\\r"); x1 = x1.replace(/\/#/gi,"\\\/\\#")};
 x += '#L:'+x1+'/';
}}
 x += '#L)';
 return x;
}