perl-dev mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From Geoffrey Young <ge...@modperlcookbook.org>
Subject Re: <perl> sections and A-T autoconfig virtual host expansion magic
Date Mon, 05 Sep 2005 17:37:51 GMT


Geoffrey Young wrote:
>><Perl>
>>my $val = get_val();
>>$VirtualHost{myhost} = {
>>   PerlSetVar => ["foo", $bar],
>>}
>></Perl>
> 
> 
> 
>>I don't see how we can make A-T aware of <Perl> in any other ways. Ideas?
> 
> 
> maybe something like (untested :)
> 
>     $VirtualHost{'_default_:@PORT@'} = {

ok, that won't work - @PORT@ will be wrong.

what about something like this

  <Perl>
    use Apache::Test;
    my $vhost = Apache::Test::config->{vhosts}->{myhost}->{hostport};
    $VirtualHost{$vhost} = {
  ...
  </Perl>

if that doesn't work it probably should :)

--Geoff

---------------------------------------------------------------------
To unsubscribe, e-mail: dev-unsubscribe@perl.apache.org
For additional commands, e-mail: dev-help@perl.apache.org


Mime
View raw message