Adding virtual hosts dynamically via mod_perl

[Clinton Gormley]

I am trying to configure virtual hosts dynamically in mod_perl2.

I have a startup file which sets up an 'application' based on my own
framework. Part of that inflation creates a number of virtual hosts.

I have been trying the following:

-------------------------
In httpd.conf:
  PerlConfigRequire /path/startup.pl
-------------------------

In startup.pl:
 ....
 my $config = <<VHOST
   <VirtualHost 127.0.0.1>

   </VirtualHost>
 VHOST

 Apache2::Server->server->add_config([split /\n/ $config]);

-------------------------

When I tried with PerlRequire or PerlPostConfigRequire, adding the
virtual host would give me a segfault.

With PerlConfigRequire, it runs fine, but if I do:
  @vhosts = Apache2::Directive::conftree->lookup("VirtualHost")
it doesn't find any virtual hosts.

I want to keep the line in httpd.conf as simple as possible.  How should
I go about doing this?

I could use PerlSections, but how?
  <Perl>
    my $config = do 'startup.pl';
    #parse config into @vhosts
    foreach my $vhost (@vhosts) {
      $VirtualHost{$vhost}=>$config->{$vhost}
    }
  </Perl>

Or should I use something like:
  <Perl handler="startup.pl">
  </Perl>

Or:
  PerlOpenLogsHandler startup.pl


Help appreciated

________________________________________________________________________

Clinton Gormley [EMAIL PROTECTED]

www.TravelJury.com - For travellers, By travellers