Perl en Español

  1. Home
  2. Tutoriales
  3. Foro
  4. Artículos
  5. Donativos
  6. Publicidad
 
Índice general » Mundo Perl » Web » Redireccionar a una pagina de error. Responder al tema
Nuevo tema


Página 1 de 1  [ 4 mensajes ] 
 
Nota 2005-07-31 17:31 @771

Perlero Nuevo
Registrado: 2005-06-14 18:01 @792
Mensajes: 21
Redireccionar a una pagina de error.
Buenas de nuevo. Quiero redireccionar desde una pagina de mi sitio a una de las paginas de error de apache, es decir, comprobar una serie de cosas y en funcion de ellas, "engañar" al usuario redireccionandole a una pagina de error ("Internal Server Error", por ejemplo) cuando en realidad no hay ningun error. Supongo que eso no sera muy complicado hacerlo, pero he probado varias cosas y no he dado con la solucion.

Gracias, mil gracias.


Nota 2005-07-31 18:06 @796
Avatar de Usuario
Creador de Perl en Español
Registrado: 2003-10-15 16:52 @744
Ubicación: México
Mensajes: 1163
Hola:

Es muy sencillo lograr eso usando el módulo CGI.

Código:
use CGI qw(:standard);

print header('text/html','501 Server Error');


El primer párametro que mandas es el el content-type text/html el segundo párametro es el status 501 Server Error, que puede ser cualquiera de los "status codes" de http:
http://www.helpwithpcs.com/courses/html ... _codes.htm


SALUDOS

_________________
Uriel Lizama Perl programmer fundador de Perl en Español


Nota 2005-08-08 12:36 @566

Perlero Nuevo
Registrado: 2005-06-14 18:01 @792
Mensajes: 21
No funciona. No sale ningun error pero no redirige a la pagina de error, sale en blanco.

Les muestro mi script:

use CGI qw/:standard/;

print header('text/html','501 Server Error');
exit;

Gracias.


Nota 2005-08-09 15:44 @697

Maestro Honorario
Registrado: 2004-11-03 21:11 @924
Mensajes: 272
rorris escribió:
No funciona. No sale ningun error pero no redirige a la pagina de error, sale en blanco.

Les muestro mi script:

use CGI qw/:standard/;

print header('text/html','501 Server Error');
exit;

Gracias.


Por qué mejor no creas una pequeña página personalizada de error y lo redirecciones hacia ella? Es una solución limpia y sencilla:

Código:
use CGI qw( :standard );

print redirect( -uri => 'http://foo.com/bar.html',
                -nph => 1,
                -status => 301
              );


o simplemente:
Código:
print redirect( 'http://foo.com/bar.html' );


Saludos,

_________________
Marco A. Manzo
amnesiac@unixmonkeys.com
http://www.unixmonkeys.com/amnesiac/


Responder al tema  [ 4 mensajes ] 

Reglas del Foro
No puedes abrir nuevos temas en este Foro
No puedes responder a temas en este Foro
No puedes editar tus mensajes en este Foro
No puedes borrar tus mensajes en este Foro
No puedes enviar adjuntos en este Foro

Publicidad

Socializa

Síguenos por Twitter

Suscríbete GRATUITAMENTE al Boletín de Perl en Español

Saltar a:  
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
Traducción al español por Huan Manwë para phpbb-es.com
phpBB SEO