Descargar CGI remote_addr - Descargar código fuente CGI remote

CGI remote_addr

Otras categorias

1.0.0

Descargar

NOMBRE

CGI :: Remote_Addr - Versión mejorada de "REMOVED_ADDR ()" de CGI.PM

SINOPSIS

 use CGI;
use CGI::remote_addr;

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

DESCRIPCIÓN

CGI::remote_addr implementa una versión mejorada del método remote_addr() proporcionado por CGI.pm , que intenta devolver la dirección IP original de la que se originó la conexión (que no es necesariamente la dirección IP de la que recibimos la conexión).

Simplemente cargando CGI::remote_addr hace que se revuelva el método remote_addr() existente. Sin embargo, tenga en cuenta que este es un viaje excesivo global; Si se está ejecutando en Mod_perl, lo ha superado en exceso para todas sus aplicaciones.

Diferencias de CGI.pm

Comprobamos no solo $ENV{REMOTE_ADDR} para encontrar la dirección IP, sino que también buscamos $ENV{HTTP_X_FORWARDED_FOR} para encontrar la dirección IP. Si $ENV{HTTP_X_FORWARDED_FOR} está definido, lo intentamos primero.
Solo se devuelven direcciones IP válidas, independientemente de lo que exista en $ENV{REMOTE_ADDR} o $ENV{HTTP_X_FORWARDED_FOR} . He visto muchos casos en los que los valores para $ENV{HTTP_X_FORWARDED_FOR} estaban llenos de basura, y nos aseguramos de que solo recupere una IP real.
Devuelven IPS tanto en un contexto escalar como en un contexto de lista. En el contexto escalar, obtienes la primera dirección IP (de origen). En el contexto de la lista, obtiene una lista única de todos los IP por los que se recibió la conexión.
En el caso de que no podamos encontrar una dirección IP válida, este método devuelve undef , no 127.0.0.1 (como lo hace CGI.pm ).