Re: Perl Sections and Virtual Host

[Pierre-Yves BONNETAIN <bo...@acm.org>]

> > my $realname = 'http://www.main.org';
> > my %vnames = ( 'sec.ondary.com' => 'second', 'third.dom.com' => 'third' );
>      ^^^^^^^
> > foreach (keys %vnames) {
>                 ^^^^^^^
> >     $VirtualHost{'192.168.1.2:80'} = {
> >         ServerName => $_,
> >         RedirectPermanent => ( ['/', "$realname/$vname{$_}/index.phtml"] )
>                                                   ^^^^^^

> Maybe this is just in your example, but you might have cut-and-pasted from
> yor config, so I'll mention it: In your RedirectPermanent, you are referencing
> %vname, not %vnames. Without strict turned on in your <Perl> section, Perl 
> won't tell you.

   Yep, I caught this one a few minutes ago (but if I had read my mail earlier,
your message would have saved half of my day. Well, there are times like 
that...).

   I'm getting somewhat closer, I think it's now just a matter of understanding
more precisely 'what' should be used as the RedirectPermanent value. This
work just fine now :

<Perl>
my $realname = 'real.domain.com';
        
my %vnames = ( 'prim.ary.com' => 'first', 'sec.ondary.com' => 'second' );

$VirtualHost{'192.168.1.2:80'} = [ { ServerName => $realname } ];
    
foreach (keys %vnames) {
    my $vhref = {
        ServerName => $_,
        RedirectPermanent => "/ http://$realname/$vnames{$_}/"
    };

    push @{$VirtualHost{'192.168.1.2:80'}}, $vhref;
}
</Perl>

   Whenever I ask for http://prim.ary.com, I get transparently redirected to
http://real.domain.com/first. Cute. Almost there.

   But I have other URLs I want to remap. Say, prim.ary.com/europe should be
mapped to real.domain.com/europe. With the above setup, I am redirected to
real.domain.com/first/europe. So I need now to have _several_ RedirectPermanent
(or anything that could save my whole day -- well, night, it's 23 pm here).
   I have tried a helluva lot of syntaxes, I'm ashamed to say, to no avail. The
right one just escapes me.
   Any hints ?
   Tia,
-- Pierre-Yves BONNETAIN
   CTO -- http://www.rouge-blanc.com  --  Fastest wines in Europe.