Foro - Perl en Español

Publicado: **2012-03-22 20:08 @880**

Hola. Tengo un servidor corriendo con dansguardian + squid. Desde el squid redirijo a un script en Perl donde quisiera identificar la IP de la navegación. En PHP lo puedo hacer y me tira las dos IP, la del dansguardian + squid y la de la PC, pero en Perl solo me tira una IP. Agradecería alguna ayuda.

Saludos

Publicado: **2012-03-22 21:19 @930**

Bienvenido a los foros de Perl en Español, soporteigwifi.

Sería interesante ver algo del código hecho, al menos la parte de PHP que usas para sacar la IP.

A lo mejor podemos convertir ese código a Perl.

Publicado: **2012-03-23 09:05 @420**

Sí, mira el código de PHP es el siguiente

Sintáxis: [ Descargar ] [ Ocultar ]

Using php Syntax Highlighting

<?
$ip = $_SERVER["HTTP_X_FORWARDED_FOR"];
$ip = explode(",", $ip);
echo $ip;
?>
Coloreado en 0.020 segundos,  usando GeSHi 1.0.8.4

La primera línea me tira la IP que pasan por el proxy, es decir me tira lo siguiente: 192.168.0.2, 172.10.2.2, siendo la primera IP la de la PC y la segunda la del proxy.

La segunda línea lo único que hace es dejarme solamente la IP de la PC.

Lo que quisiera lograr es que con un script en Perl me detecte la IP de la PC ya que hice un par de pruebas y solo me detecta la 172.10.2.2 (server).

Muchas gracias.

Publicado: **2012-03-23 09:25 @434**

Con el ejemplo básico para cgi en Perl puedes ver en qué variable se almacena el IP. Lo normal es $ENV{REMOTE_ADDR}, claro que no he probado usando algún proxy.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl -w
 
print "Content-type:text/html\n\n";
print <<EndOfHTML;
<html><head><title>Print Environment</title></head>
<body>
EndOfHTML
 
foreach $key (sort(keys %ENV)) {
    print "$key = $ENV{$key}<br>\n";
}
 
print "</body></html>";
 
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Publicado: **2012-03-23 09:31 @438**

Mira, también probé con este código pero me sigue largando la IP del proxy, solamente.

$ip = $req->header('Client-IP') || $req->header('Remote-Addr');
if ($req->header('X-Forwarded-For')) {
$proxy = $ip;
$ip = $req->header('X-Forwarded-For');
}

Publicado: **2012-03-23 10:42 @488**

El valor X-Forwarded-For está en la cabecera HTTP que los sucesivos proxy van agregando a medida de que la respuesta fluye entre cliente y servidor.

En un cgi Perl, podemos acceder a ese valor por medio de $ENV{HTTP_X_FORWARDED_FOR}, o usando los métodos del módulo CGI:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

print $q->http('X-Forwarded-For');
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

(ver sección FETCHING ENVIRONMENT VARIABLES en la página de manual de CGI).

Publicado: **2012-03-23 13:06 @588**

Gracias a todos. Voy a investigar las opciones que me dieron.

Saludos

Foro - Perl en Español

Identificar IP

Identificar IP

Re: Identificar IP

Re: Identificar IP

Re: Identificar IP

Re: Identificar IP

Re: Identificar IP

Re: Identificar IP