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,