Re: Problem with EXEC_ON_READ, custom block content

Frederic Paillart Sun, 20 Apr 2008 09:58:47 -0700

Hi John,

I've written such custom container few weeks ago,
and meet the same problems as you.


First, don't use the EXEC_ON_READ option.
Indeed, it doesn't work. Unfortunately, I don't know why.
But it doesn't care, you can perform your job  without using it.

I've written a small perl function to solve the as_string issue.

# Unfortunately, directive->as_string doesn't expand
# the content of all embeded sub-containers.
# Because directive->as_string seems to be buggy
# We load the content of the custom container
# by recursing into the directive tree
sub loadContent {
   my ($directive, $contentRef) = @_;

   my @newContent;

for (my $currentDirective = $directive->first_child;$currentDirective; $currentDirective = $currentDirective->next) {

       if ($currentDirective->first_child) {

my ($containerName) = $currentDirective->directive =~m/<\s*(.+)$/;

die "Container directive expected instead of " .$currentDirective->directive unless ($containerName);

my $containerBegin = $currentDirective->directive . " " .$currentDirective->args;

           push(@newContent, $containerBegin);
           loadContent($currentDirective, [EMAIL PROTECTED]);
           my $containerEnd = "</" . $containerName . ">";
           push(@newContent, $containerEnd);
       } else {

my $line = $currentDirective->directive . " " .$currentDirective->args;

           push(@newContent, $line);
       }
   }

   push(@$contentRef, @newContent);
}

Finally, you can write your custom container using this function :

use strict;
use warnings FATAL => 'all';
use Apache2::Const -compile => qw(NO_ARGS OR_ALL RAW_ARGS);

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

my @directives = (
       {
       name         => '<StdVHost',
       func         => __PACKAGE__ . '::StdVHost',
       req_override => Apache2::Const::OR_ALL,
       args_how     => Apache2::Const::RAW_ARGS,
       errmsg       => 'Std vhosts container',
       },
       {
       name         => '</StdVHost>',
       func         => __PACKAGE__ . "::StdVHost_END",
       errmsg       => 'end of StdVHost without beginning?',
       args_how     => Apache2::Const::NO_ARGS,
       req_override => Apache2::Const::OR_ALL,
       },
       );
Apache2::Module::add(__PACKAGE__, [EMAIL PROTECTED]);

sub StdVHost {
   my ($self, $parms, $arg) = @_;

   # Load the container configuration content
   my $directive = $parms->directive;
   my @content;
   loadContent($directive, [EMAIL PROTECTED]);

   # ... Do your custom job

# For example dynamically add apache configuration directives readinside the custom container :

   Apache2::ServerUtil->server->add_config([EMAIL PROTECTED]);
}


sub StdVHost_END {
   die "</StdVHost> outside a <StdVHost> container\n";
}


Hope this example can help you.

Best regards

Fred


Le 23.12.-28158 20:59, John Hallam a écrit :

I'm trying to create a custom block directive, following thedocumentation in the ModPerl2 book (or the on-line documentation).The minimal code for the problem I am seeing is below. I have thefollowing block in apache2.conf for the new block <StdVHost ...> andthe module is in the /root/apache2 tree as required.
---
PerlSwitches -wT -Mlib=/root/apache2
PerlLoadModule MyApache::StdVHost;

<StdVHost test arguments>

<Directory /var/www >
    Order deny,allow
    Deny from all
</Directory>
</StdVHost>
---
I see two behaviours: if EXEC_ON_READ is set, by removing thestring ', #' in the code below, the handler is never invoked -- atleast die "..." is not visibly executed; if EXEC_ON_READ is unset,the handler is invoked but $cont is just the first line <Directory/var/www> and not the whole block. Neither is what I wanted :-((.
The problem seems to have been reported back in 2005, with similarcode, and an implication that it was to be fixed. So what am I doingwrong?
Thanks in advance,

    John Hallam

---
# PERL module for automating a standard virtual host configuration forApache
package MyApache::StdVHost;

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

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

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

use Apache2::ServerUtil ();

my @directives
   = (
      # Definition of a StdVHost container
      #
      # Note that EXEC_ON_READ is necessary, according to the
      # mod_perl2 book, but in fact breaks things if included
      # by stopping the handler from being called.

      {
      name        => '<StdVHost',
      func        => __PACKAGE__ . '::StdVHost',
      errmsg    => 'StdVHost minimal test package',
      args_how    => Apache2::Const::RAW_ARGS,
req_override => Apache2::Const::RSRC_CONF, #|Apache2::Const::EXEC_ON_READ,
      },
     );

Apache2::Module::add( __PACKAGE__, [EMAIL PROTECTED] );

# Handler for the config directive.
#
# It is unclear how to get the content of the <StdVHost> directive
# container:  maybe it has not been read when this routine is called?
# With RAW_ARGS, the first line of the content is available as
# $parms->directive->as_string but how do you get the rest??

sub StdVHost {
    my ($self,$parms,$arg) = @_;
    my $cont = $parms->directive->as_string();

    die "StdVHost arg='$arg' cont='$cont'";
}

1;

begin:vcard
fn:Frederic Paillart
n:Paillart;Frederic
org:gemalto;WSDS
adr:ZI Athelia IV;;La Vigie;La Ciotat;;13705;France
email;internet:[EMAIL PROTECTED]
title:Development Engineer
tel;work:04 42 36 43 38
tel;fax:04 42 36 32 00
x-mozilla-html:TRUE
url:http://www.gemalto.com
version:2.1
end:vcard

Re: Problem with EXEC_ON_READ, custom block content

Reply via email to