Mailing-List: contact modperl-help@perl.apache.org; run by ezmlm
Precedence: bulk
Received-SPF: error (athena.apache.org: local policy)
MIME-Version: 1.0
In-Reply-To: <45425815-EBA2-4711-8BA1-16CFA6168529@justatheory.com>
References: <45425815-EBA2-4711-8BA1-16CFA6168529@justatheory.com>
Date: Mon, 2 Mar 2015 20:27:14 -0800
Message-ID: 
 <CAHrynWB4XxjM__L10CJXQ10gkFomK5ZZ2arSowHMpD-TatV+eQ@mail.gmail.com>
Subject: Re: How Do I change the Document Root Per Request
From: Fred Moyer <fred@redhotpenguin.com>
To: "David E. Wheeler" <david@justatheory.com>
Cc: mod_perl list <modperl@perl.apache.org>
Content-Type: text/plain; charset=UTF-8

Can you show us your relevant httpd.conf snippet? No guesses right
now, but that might help.

On Sun, Mar 1, 2015 at 4:46 PM, David E. Wheeler <david@justatheory.com> wrote:
> Hi,
>
> I want to set the document root for a request to map to the basic auth username. I tried this in a PerlFixupHandler:
>
>     sub handler {
>         my $r = shift;
>
>         # We only want to do this once per request.
>         return DECLINED unless $r->is_initial_req;
>
>         # Get the username.
>         my $user = $r->user or return HTTP_UNAUTHORIZED;
>
>         # Return forbidden if the username subdiectory does not exist.
>         my $doc_root = File::Spec->catdir($r->document_root, $user);
>         return HTTP_FORBIDDEN unless -d $doc_root;
>
>         # Set the document root for the duration of this request and return.
>         $r->document_root($doc_root);
>         return DECLINED;
>     }
>
> But alas, it still serves the original document root. How can I get it to change the document root on a per-request basis? If I cant, should I change the URI or the filename, instead?
>
> Thnks,
>
> David