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
Enregistrement des données

Bibliothèque CaD

Fichiers

Erreur

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

errFile | errParse

errFile

Construit l'enregistrement d'erreur d'accès aux fichiers

Syntaxe

errFile(msg,FLAG)

Paramètres

nom	type	Description
msg	IN	Message d'erreur — L'erreur est une erreur d'écriture dans les fichiers si le message est au format : ">\d+"
FLAG	OUT	Indicateur d'erreur = "true" : l'erreur est une erreur d'écriture dans les fichiers = "false" : l'erreur est une autre erreur Perl : scalaire passé par référence – JavaScript : tableau à 1 élément
retourne	OUT	Message d'erreur — Dans le cas d'une erreur d'écriture dans les fichiers, le message d'erreur correspond au contenu du buffer d'écriture conservé dans la variable globale wwBuf

Fonctions util.

wwBuf

Buffer dans le cas d'écritures multiples simultanées

Code Perl


sub errFile {local($msg,$FLAG) = @_; 
if ($msg!~/^>\d+/) {return $msg};
 local($x1,$k); 
 local $x = ""; 
 $x .= '(';
for($k=0;$k<scalar(@wwBuf);$k++) {
 $x1 = $wwBuf[$k][0].'='.$wwBuf[$k][1];
 if ($x1 ne "") {$x1 =~ s/\n/\\n/gi; $x1 =~ s/\r/\\r/gi; $x1 =~ s/\/#/\\\/\\#/gi};
 $x .= '#L:'.$x1.'/';
}
 $x .='#L)';
 $$FLAG = "true";
 return $x;
}

Code JavaScript


function errFile(msg,FLAG) { 
if (!msg.match(/^>\d+/)) {return msg};
 var x1,k; 
 var x = ""; 
 x += '(';
for(k=0;k<wwBuf.length;k++) {
 x1 = wwBuf[k][0]+'='+wwBuf[k][1];
 if (x1!="") {x1 = x1.replace(/\n/gi,"\\n"); x1 = x1.replace(/\r/gi,"\\r"); x1 = x1.replace(/\/#/gi,"\\\/\\#")};
 x += '#L:'+x1+'/';
}
 x +='#L)';
 FLAG[0] = "true";
 return x;
}