Naviguation dans :  Perl  JavaScript  Détail  - par cas d'appel / par traitements
 présentée :  par cas d'appel   par traitements 
Retour à l'accueil
  
 
 Requêtes 

 wsCaD_run 

 getENV 

 Requêtes de Ça-déménage.com
Requête d'entrée de site
Retourne les propriétés du client (user agent)


 getENV  Retourne les propriétés du client (user agent)
Syntaxe getENV()
Paramètres 
nom  type  Description 
–  IN Le hash d'environnement ENV
retourne  OUT  = "" : client IE4-Windows
= "gec" : client Firefox-Windows
= "inc" : client autre
Fonctions util. 
 ENV  Le hash d'environnement contenant les principales informations d'environnement disponibles sur le serveur :
HTTP_USER_AGENT : propriétés du client (user agent)


Code Perl 

sub getENV { 
 local $x = $ENV{'HTTP_USER_AGENT'}; 
 local($browser,$platform); 
 $browser = "inc"; if ($x ne "") {if ($x=~/MSIE/) {$browser = "IE4"} elsif ($x=~/Gecko/i) {$browser = "Gec"}}
 $platform = "inc"; if ($x ne "") {if ($x=~/Windows/i) {$platform = "PC"} elsif ($x=~/Mac/) {$platform = "Mac"}}
 if (($browser eq "IE4")&&($platform eq "PC")) {return ''}
 if (($browser eq "Gec")&&($platform eq "PC")) {return "gec"}
 return "inc"
}
Code JavaScript 

function getENV() { 
 var x = ENV['HTTP_USER_AGENT']; 
 var browser,platform; 
 browser = "inc"; if (x!="") {if (x.match(/MSIE/)) {browser = "IE4"} else if (x.match(/Gecko/i)) {browser = "Gec"}}
 platform = "inc"; if (x!="") {if (x.match(/Windows/i)) {platform = "PC"} else if (x.match(/Mac/)) {platform = "Mac"}}
 if ((browser=="IE4")&&(platform=="PC")) {return ''}
 if ((browser=="Gec")&&(platform=="PC")) {return "gec"}
 return "inc"
}