Friday, July 16, 2004, 5:31:35 PM, you wrote:

SB> Ah, sorry, I'm lost in the sea of methods

hahaha I know the feeling.

SB> -- I think we have exactly
SB> what you want. It should appear in here:
SB> http://perl.apache.org/docs/2.0/api/Apache/HookRun.html

This was the key I needed. I installed my module as a HeaderParser
handler (because when I installed it as an Access handler, it recursed
on itself!):

===
package CTT::302;

use Apache::HookRun ();
use Apache::Const -compile => qw(:common);

# comment this out when we're done fixing it.
use Apache::Reload;

use strict;
use warnings;

my $url = "http://www.yahoo.com";;

sub handler {
    my $r = shift;

    my $rc = $r->run_access_checker();
    if ($rc != Apache::OK and $rc != Apache::DECLINED) {
        $r->headers_out->set(Location => $url);
        $rc = Apache::REDIRECT if $rc == Apache::FORBIDDEN;
        return $rc;
    }

    return Apache::DECLINED;
}

1;
===

Now my only remaining question becomes, does the access_checker (eg
mod_access) now run twice, if I *don't* see a FORBIDDEN response? Even
if it does, this still does what I want. :-)

Thx for the help!

L8r,
Rob


-- 
Report problems: http://perl.apache.org/bugs/
Mail list info: http://perl.apache.org/maillist/modperl.html
List etiquette: http://perl.apache.org/maillist/email-etiquette.html

Reply via email to