Fred Moyer wrote:
On Fri, Nov 23, 2012 at 2:18 PM, André Warnier <a...@ice-sa.com> wrote:
Fred Moyer wrote:
You might want to take a look at a mod_perl based proxy module I wrote
- https://metacpan.org/module/Apache2::Proxy

It was used in conjunction with Perlbal and a couple other tricks, but
was pretty speedy given the crude nature of how I implemented it.

No offense intended, Fred, but without much of a documentation, this is bit
above my level.  I have trouble even understanding where it fits in.

None taken, you're quite right, this needs (more) documentation. It
was open sourced when still in rough form. I'll send a ping when I get
it cleaned up and 0.05 released. Anyway, here's the basic way I used
it. Torsten's solution is probably technically more adept, but I
couldn't do what I needed to using filtering, so I had to write this.

<Location />
    SetHandler          modperl
    PerlHeaderParserHandler Apache2::Const::OK
    PerlAccessHandler       Apache2::Const::OK
    PerlAuthenHandler       Apache2::Const::OK
    PerlAuthzHandler        Apache2::Const::OK
    PerlTypeHandler         Apache2::Const::OK
    PerlFixupHandler        Apache2::Const::OK
    PerlResponseHandler     My::Proxy->handler
</Location>

package My::Proxy;
use base 'Apache2::Proxy';

sub handler {
    my ($r, $class) = @_;

    # examine request to see if it needs to be modified

    # if not, pass to Apache2::Proxy
    return $class->SUPER::handler($r);

    # else fixup the request as needed.
}

Ok, get it, thanks.
All-in-one, as a substitute for mod_proxy.
I will have a second look now.

Reply via email to