Seguridad

[Maguak]

Estimados:

Debo crear un cgi que me permita asignar seguridad a un módulo. Para ello he pensado asegurarme que la ip del host sea siempre la misma y no me cambien de host mi código.
Esto es lo básico.
Ya que soy neófito en el tema me animo a preguntar dos cosas:

1) Puedo dejar mi script cgi escrito en perl protejido contra leectura y escritura?
2) He intentado crear un pequeño script de prueba el cual valida la ip del hosting, pero no me redirecciona... Lo adjunto para que me digan que estoy haciendo mal, ya que no veo cual sea mi problema.

#!/usr/bin/perl

print "Content-type: text/html\n\n";
$ip = "127.0.0.1";
$host_name = "Localhost";
$host_name = $ENV{'SERVER_NAME'};
$ip = $ENV{'SERVER_ADDR'};
if($ip != "127.0.0.1"){
print "Location: ../error.html\n\n";
}else{
print "Location: ../formulario.html\n\n";
}

Este archivo solo me devuelve la URL impresa. Lo que quiero es que direccione dependiendo la condicional.

Les agradesco...

[kidd]

Hola:

Tu error es la linea de print "Content-type: text/html\n\n";

Quita esa linea y te debe de funcionar.

SALUDOS

[Maguak]

#!/usr/bin/perl

$ip_valida = "127.0.0.1";
$ip_old = $ENV{'SERVER_ADDR'};
print $ip_old."<br>";
if ($ip_valida != $ip_old)
{
print "Error\n\n";
}
else
{
print "Location: http://localhost/formulario.html\n\n";
}
exit();

Lo cambié por este pero no redirecciona, se queda en una pantalla en blanco?

Gracias por tu ayuda...

[Maguak]

Ok, caso resuelto... Muchas gracias por tu ayuda

[monoswim]

Que bueno que te funcionó...

Fíjate que en el faq coloqué un post que dice como hacer para que tu script solo sea ejecutado por tu host y no por otro...

Talvés te sirva

Saludos