You are viewing a plain text version of this content. The canonical link for it is here.

Posted to modperl@perl.apache.org by David Stewart <da...@eviesays.com> on 2009/03/25 15:57:12 UTC

PerlTransHandler Redirect (2.0)

How do you replicate the redirect functionality of mod_rewrite in a  
mod_perl 2 PerlTransHandler?

I'm writing a PerlTransHandler to overcome some limitation of  
mod_rewrite and want to redirect requests to canonical URLs in some  
cases (e.g. replicate the functionality of the [R,L] flags in  
mod_rewrite).  What's the best way to do this from the handler?

-David Stewart

Re: PerlTransHandler Redirect (2.0)

Posted by David Stewart <da...@eviesays.com>.

Thanks Adam,

I was pretty sure about returning the constant, but I didn't see where  
the location should go.  Looks like err_headers_out works, thanks.

-David Stewart



On Mar 25, 2009, at 12:36 PM, Adam Prime wrote:

> David Stewart wrote:
>> How do you replicate the redirect functionality of mod_rewrite in a  
>> mod_perl 2 PerlTransHandler?
>> I'm writing a PerlTransHandler to overcome some limitation of  
>> mod_rewrite and want to redirect requests to canonical URLs in some  
>> cases (e.g. replicate the functionality of the [R,L] flags in  
>> mod_rewrite).  What's the best way to do this from the handler?
>
> Here are some obviously simplified, untested examples, i think R is  
> a 302, but i've included the 301 as well.
>
> for a 302:
>
> use Apache2::RequestRec;
> use Apache2::Const -compile => qw(REDIRECT);
>
> sub handler {
>    my $r = shift
>    $r->err_headers_out->add(Location => q[your url here]);
>    return Apache2::Const::REDIRECT;
> }
>
> 1;
>
>
> for a 301:
>
> use Apache2::RequestRec;
> use Apache2::Const -compile => qw(HTTP_MOVED_PERMANENTLY);
>
> sub handler {
>    my $r = shift;
>    $r->err_headers_out->add(Location => q[your url here]);
>    return Apache2::Const::HTTP_MOVED_PERMANENTLY;
> }
>
> 1;
>
> Adam

Re: PerlTransHandler Redirect (2.0)

Posted by Adam Prime <ad...@utoronto.ca>.

David Stewart wrote:
> How do you replicate the redirect functionality of mod_rewrite in a 
> mod_perl 2 PerlTransHandler?
> 
> I'm writing a PerlTransHandler to overcome some limitation of 
> mod_rewrite and want to redirect requests to canonical URLs in some 
> cases (e.g. replicate the functionality of the [R,L] flags in 
> mod_rewrite).  What's the best way to do this from the handler?
> 

Here are some obviously simplified, untested examples, i think R is a 
302, but i've included the 301 as well.

for a 302:

use Apache2::RequestRec;
use Apache2::Const -compile => qw(REDIRECT);

sub handler {
     my $r = shift
     $r->err_headers_out->add(Location => q[your url here]);
     return Apache2::Const::REDIRECT;
}

1;


for a 301:

use Apache2::RequestRec;
use Apache2::Const -compile => qw(HTTP_MOVED_PERMANENTLY);

sub handler {
     my $r = shift;
     $r->err_headers_out->add(Location => q[your url here]);
     return Apache2::Const::HTTP_MOVED_PERMANENTLY;
}

1;

Adam