Re: Virtual host with mod_perl

[Valerio]

Hi all,

thank you so much for you help :)

I will try to use other solutions a part from mod_perl
(mod_vhost_alias for example)

but I managed to do quite what I want by this way:

<Perl>
        package My::Trans;
        use Apache2::Const -compile => qw(OK DECLINED);
        use DBI;
        use Data::Dumper;
        sub handler {
                my $r = shift;
                my $url = $r->uri();
                my $rlog = $r->log;
                my $db_name = 'xxx';
                my $db_host = 'xxx';
                my $db_port = 'xxx';
                my $db_user = 'xxx';
                my $db_pw = 'xxx';
                my $dsn = 
"DBI:mysql:database=$db_name;host=$db_host;port=$db_port";
                our $dbh = DBI->connect($dsn, $db_user, $db_pw);
                my $hostname = $r->hostname();
                my $sql = "select vpath from vhosts where vhost = '$hostname'";
                my $sth = $dbh->prepare($sql);
                $sth->execute;
                $row=$sth->fetchrow_hashref;
                $sth->finish;
                $r->document_root($row->{vpath});
                $r->filename($row->{vpath}.'index.html');
                return Apache2::Const::OK;      
        }
</Perl>

PerlModule ModPerl::Registry
PerlTransHandler My::Trans


It seems to work fine, Apache is serving me the right page.
I'm on the right way?
Another question:
I set both document_root and filename: can I set just only the
filename or the document-root or I have to set both them?

Valerio

2008/3/28, Perrin Harkins <[EMAIL PROTECTED]>:
> On Fri, Mar 28, 2008 at 11:36 AM, Ryan Gies <[EMAIL PROTECTED]> wrote:
>  >  I'm curious, how would this be possible with mod_perl?
>
>
> I'd probably use mod_vhost_alias and make a mod_perl handler that just
>  checks whether the current IP or hostname is legit.
>
>
>  - Perrin
>