CGI remote_addr Download - CGI remote_addr Código -fonte Download

CGI remote_addr

Outras categorias

1.0.0

Baixar

NOME

CGI :: Remote_addr - Versão aprimorada de "Remote_addr ()" do CGI.PM "

SINOPSE

 use CGI;
use CGI::remote_addr;

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

DESCRIÇÃO

CGI::remote_addr implementa uma versão aprimorada do método remote_addr() fornecido pelo CGI.pm , que tenta retornar o endereço IP original da qual a conexão originou (que não é necessariamente o endereço IP da qual recebemos a conexão).

Simplesmente carregar CGI::remote_addr faz com que ele suba demais o método existente remote_addr() . Observe, porém, que este é um excesso global; Se você estiver executando com mod_perl, acabou de escapar para todos os seus aplicativos.

Diferenças de CGI.PM

Verificamos não apenas $ENV{REMOTE_ADDR} para encontrar o endereço IP, mas também procuramos $ENV{HTTP_X_FORWARDED_FOR} para encontrar o endereço IP. Se $ENV{HTTP_X_FORWARDED_FOR} estiver definido, tentamos isso primeiro.
Somente endereços IP válidos são retornados, independentemente do que existe em $ENV{REMOTE_ADDR} ou $ENV{HTTP_X_FORWARDED_FOR} . Eu já vi muitos casos em que os valores de $ENV{HTTP_X_FORWARDED_FOR} foram recheados com lixo e garantimos que você tenha apenas um IP real de volta.
Retornamos o IPS em um contexto escalar e de lista. No contexto escalar, você obtém o primeiro endereço IP (originário). No contexto da lista, você obtém uma lista única de todos os IPs pelos quais a conexão foi recebida.
No caso de não conseguirmos encontrar um endereço IP válido, esse método retorna undef , não 127.0.0.1 (como CGI.pm faz).