CGI remote_addr Télécharger - CGI remote_addr Code source Télécharger

CGI remote_addr

Autres catégories

1.0.0

Télécharger

NOM

CGI :: Remote_Addr - Version améliorée de "Remote_addr ()" de CGI.pm "de CGI.pm"

SYNOPSIS

 use CGI;
use CGI::remote_addr;

my $cgi  = CGI -> new();
my $addr = $cgi -> remote_addr();

DESCRIPTION

CGI::remote_addr implémente une version améliorée de la méthode remote_addr() fournie par CGI.pm , qui tente de retourner l'adresse IP d'origine d'où la connexion provenait (qui n'est pas nécessairement l'adresse IP d'où nous avons reçu la connexion).

Le chargement du simple chargement CGI::remote_addr le fait sur-ride la méthode existante remote_addr() . Notez, cependant, qu'il s'agit d'un excédent mondial; Si vous utilisez MOD_PERL, vous l'avez sur-manqué pour toutes vos applications.

Différences par rapport à CGI.PM

Nous vérifions non seulement $ENV{REMOTE_ADDR} pour trouver l'adresse IP, mais nous consultez également dans $ENV{HTTP_X_FORWARDED_FOR} pour trouver l'adresse IP. Si $ENV{HTTP_X_FORWARDED_FOR} est défini, nous essayons d'abord cela.
Seules les adresses IP valides sont renvoyées, indépendamment de tout ce qui existe dans $ENV{REMOTE_ADDR} ou $ENV{HTTP_X_FORWARDED_FOR} . J'ai vu beaucoup de cas où les valeurs de $ENV{HTTP_X_FORWARDED_FOR} étaient fourrées de déchets, et nous nous assurons que vous ne recevez qu'une vraie propriété intellectuelle.
Nous retournons IPS dans un scalaire et un contexte de liste. Dans le contexte scalaire, vous obtenez la première adresse IP (d'origine). Dans le contexte de la liste, vous obtenez une liste unique de tous les IPS que la connexion a été reçue.
Dans le cas où nous ne pouvons pas trouver une adresse IP valide, cette méthode renvoie undef , pas 127.0.0.1 (comme CGI.pm le fait).