Perl-JavaScript - Requêtes > load – Admin > contactAdmin

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

contactAdmin

Requêtes de Ça-déménage.com
Accès professionnel
Prendre contact

Errer

Prendre contact — Fin en erreur de la requête

Syntaxe

Errer(cas,FORM,msg)

Paramètres

nom	type	Description
cas	IN	Cas d'appel = "0" ou "9" : l'erreur est inscrite dans la log = autre valeur : le cas d'appel représente le message d'erreur
FORM	IN	Hash des champs reçus du client – utilisé si l'erreur est loguée Perl : hash passé par référence – JavaScript : tableau à 1 élément
msg	IN	Message d'erreur – utilisé si l'erreur est loguée
retourne	OUT	Page HTML

Fonctions util.

printLog	Ecriture de la log
errFile	Construit l'enregistrement d'erreur d'accès aux fichiers
errParse	Construit l'enregistrement du parse des données client

Code Perl



sub Errer {local($cas,$FORM,$msg) = @_; 
if (($cas ne "0")&&($cas ne "9")) {$msg = $cas} else {if ($msg ne "4") {
 local $Flag = "false"; &printLog("Err",'Log','/#T(Msg):'.&errFile($msg,\$Flag).'/#T(Data):'.&errParse($cas,$FORM)); if ($Flag eq "true") {$msg = "9"}; 
}}
 $msg =~ s/\"/&quot;/g;
 print "Content-type: text/html\n\n<html>\n<head>\n<title></title>\n</head>\n";
 print "<body onLoad=\"window.parent.base.sendErrer(\'".$msg."\')\">\n&nbsp;\n</body>\n</html>\n";
}

Code JavaScript



function Errer(cas,FORM,msg) { 
if ((cas!="0")&&(cas!="9")) {msg = cas} else {if (msg!="4") {
 var Flag = Array("false"); printLog("Err",'Log','/#T(Msg):'+errFile(msg,Flag)+'/#T(Data):'+errParse(cas,FORM)); if (Flag[0]=="true") {msg = "9"}; 
}}
with(window.parent.client.erreur) {
 window.parent.base.sendErrer(msg); 
}
}