Perl-JavaScript - Bibliothèque > Utilitaires

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

Requêtes de Ça-déménage.com
Accès professionnel
Chargement des données

Bibliothèque CaD

Serveur

wsRunVar

Bibliothèque de Ça-déménage.com
Paramètres d'accès au serveur
Paramètres de gestion des valeurs

Bibliothèque

Utilitaires

Trace

Bibliothèque standard
Divers utilitaires
Retourne l'enregistrement de trace du client (user agent)

Trace

Retourne l'enregistrement de trace du client (user agent)

Syntaxe

Trace(nom,val)

Paramètres

nom	type	Description
nom	IN	Nom de la trace (format \w+)
val	IN	Valeur de la trace (toute chaîne contenant une partie d'enregistrement valide)
retourne	OUT	Enregistrement de trace

Fonctions util.

getDate	Permet d'obtenir la date du jour (date+heure)
ENV	Le hash d'environnement contenant les principales informations d'environnement disponibles sur le serveur : REMOTE_HOST : nom de l'hôte distant REMOTE_ADDR : adresse IP de l'hôte distant REMOTE_USER : nom de l'utilisateur distant HTTP_USER_AGENT : propriétés du client (user agent) Le champ REMOTE_HOST est recalculé si l'hébergeur ne l'a pas renseigné

Code Perl


sub Trace {local($nom,$val) = @_; 
 local $Date = ''; local $Jour = ''; &getDate(\$Date,\$Jour); 
 local $name = $ENV{'REMOTE_HOST'}; local $addr = $ENV{'REMOTE_ADDR'}; 
if ($name eq "") {if ($addr=~/\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}/) {
 local @T = gethostbyaddr(pack("C4",split(/\./,$addr)),2); $name = $T[0]; 
}}
 local $x = ""; 
 $x .= '(#T('.$nom.')new:'.$val;
 $x .= '/#T(Date):'.$Date.$Jour;
 $x .= '/#T(REMOTE_HOST):'.$name;
 $x .= '/#T(REMOTE_ADDR):'.$addr;
 $x .= '/#T(REMOTE_USER):'.$ENV{'REMOTE_USER'};
 $x .= '/#T(HTTP_USER_AGENT):'.$ENV{'HTTP_USER_AGENT'};
 $x .= '/#T)'."\n";
 return $x;
}

Code JavaScript


var ENV = new Array(); 
ENV['REMOTE_HOST'] = 'REMOTE_HOST'; ENV['REMOTE_ADDR'] = 'REMOTE_ADDR'; ENV['REMOTE_USER'] = '127.0.0.1'; ENV['HTTP_USER_AGENT'] = navigator.userAgent; 
function Trace(nom,val) { 
 var Date = Array(''); var Jour = Array(''); getDate(Date,Jour); 
 var name = ENV['REMOTE_HOST']; var addr = ENV['REMOTE_ADDR']; 
if (name=="") {if (addr.match(/\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}/)) {
 var T; 
}}
 var x = ""; 
 x += '(#T('+nom+')new:'+val;
 x += '/#T(Date):'+Date[0]+Jour[0];
 x += '/#T(REMOTE_HOST):'+name;
 x += '/#T(REMOTE_ADDR):'+addr;
 x += '/#T(REMOTE_USER):'+ENV['REMOTE_USER'];
 x += '/#T(HTTP_USER_AGENT):'+ENV['HTTP_USER_AGENT'];
 x += '/#T)'+"\n";
 return x;
}