perl-modperl mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From Dorian Taylor <dor...@foobarsystems.com>
Subject EXEC_ON_READ configuration block directives
Date Sat, 18 Jun 2005 10:21:40 GMT
is there a working example of a block directive implementation
available? i just tried setting one up the way
http://perl.apache.org/docs/2.0/user/config/custom.html#C_Apache2__Const__RAW_ARGS_
says, and i'm not appearing to get my config subroutine run.

the config parser doesn't complain about the directive, but the
hook doesn't seem to get run.

i did the following:

package Apache2::TestBlock;

use strict;
use warnings FATAL => 'all';

use Apache2::Module     ();
use Apache2::Directive  ();

use Apache2::Const  -compile => qw(TAKE1 RAW_ARGS OR_ALL EXEC_ON_READ);

my @directives = (
    {
        name            => '<TestBlock',
        func            => __PACKAGE__ . '::TestBlock',
        args_how        => Apache2::Const::RAW_ARGS,
        req_override    => Apache2::Const::OR_ALL | Apache2::Const::EXEC_ON_READ
    },
    {
        name            => 'TestScalar',
        func            => __PACKAGE__ . '::TestScalar',
        args_how        => Apache2::Const::TAKE1,
        req_override    => Apache2::Const::OR_ALL,
    },
);

Apache2::Module::add(__PACKAGE__, \@directives);

sub TestBlock {
    my ($self, $parms, $args) = @_;
    warn "wtf TestBlock dude";
    require Data::Dumper;
    warn Data::Dumper->Dump($parms->directive->as_hash);
}

sub TestScalar {
    my ($self, $parms, $arg) = @_;
    warn "TestScalar: $arg";
}

1;

the config is this:

PerlLoadModule Apache2::TestBlock

<TestBlock foo>
TestScalar bar
</TestBlock>


am i missing anything?

.d

Mime
View raw message