Hi,
I have quite a lot of scripts which are run through mod_perl on Apache2
with the ModPerl::Registry module.
In many cases, I want to return status codes different from
Apache2::Const::OK when the scripts ends, for example a
Apache2::Const::REDIRECT in case of the script redirecting the user to
another script.
Currently this is done by
$r->err_headers_out("Location" => "new url");
$r->status(Apache2::Const::REDIRECT);
exit();
and I was simply wondering if forcefully setting the status this way is
the best way to do it. It would be cool if I could somehow (in a simple
and efficient manner) make the handler created by (or should that be
"which is"?) ModPerl::Registry return the value properly, as is customary
when creating proper handlers, i.e.:
sub handler {
my $r = shift;
$r->err_headers_out("Location" => "new url");
return Apache2::Const::REDIRECT;
}
--
Ole Kasper Olsen
Information Systems Developer
Opera Software ASA
