Foro - Perl en Español

por **hippo** » 2012-10-12 08:29 @395

¡¡Muy buenas!! Espero que me puedan ayudar con mi problema :mrgreen:

Pues resulta que tengo un formulario que funciona como login, y al validar el acceso lo hago desde ese mismo fichero. Entonces, si es erróneo me sale el error, pero si es correcto me gustaría que me enviara a otra página.

¿¿Cómo puedo hacerlo??

Saludos y gracias de antemano

use CGI ':standard';
 
# ...
 
# aquí llegamos si es correcta la identificación
undef $/;                             # lectura del archivo de una sola vez
open my $HTML, '<', 'inicial.html';   # lo abrimos
print
    header(),                         # cabecera HTTP de respuesta al navegador
    <$HTML>,                          # leemos el archivo del disco y lo mandamos al navegador
    ;
close $HTML;                          # cerramos
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Seguro que hay más maneras...

por **hippo** » 2012-10-12 09:52 @453

Hola, gracias por tu ayuda.

He usado el método redirect() y me sale lo siguiente:

Status: 302 Found Location: loquesea.pl

y no me cambia el location ¿qué puede ser?

por **explorer** » 2012-10-12 10:16 @470

A redirect() le tienes que pasar la URL de la dirección destino.

Lo que te sale es lo que hay que enviar (con el print()) al navegador del usuario.

por **hippo** » 2012-10-12 10:33 @481

Lo he puesto así:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

use CGI;
 
$form = new CGI;
 
print $form->redirect('fichero.pl');
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

¿Está mal?

por **explorer** » 2012-10-12 14:18 @637

Debes poner la URL completa:

print $form->redirect('http://mi.servidor/ruta_cgi/fichero.pl');

por **hippo** » 2012-10-12 16:10 @715

Bueno al final lo he solucionado... pero ahora me surge otro problema...

¿Cómo puedo codificar una URL con datos GET, para después decodificarla en el otro fichero?

He visto que existe uri_escape() pero la verdad es que no me aclaro.

Me gustaría que al redireccionar a esa página lo pase así:

fichero2.pl?name=pepe... -> esto codificado

por **explorer** » 2012-10-12 19:28 @853

En efecto, debes usar la función uri_escape() del módulo URI::Escape.

Solo tienes que pasarle el URL que quieres codificar y te lo devuelve URL-escapado.

Foro - Perl en Español

Validar formulario

Validar formulario

Publicidad

Re: Validar formulario

Re: Validar formulario

Re: Validar formulario

Re: Validar formulario

Re: Validar formulario

Re: Validar formulario

Re: Validar formulario

¿Quién está conectado?