Foro - Perl en Español

por **soporteigwifi** » 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

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.

por **irving** » 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

por **soporteigwifi** » 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');
}

por **explorer** » 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).

por **soporteigwifi** » 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

Publicidad

Re: Identificar IP

Re: Identificar IP

Re: Identificar IP

Re: Identificar IP

Re: Identificar IP

Re: Identificar IP

¿Quién está conectado?