On Tue, 1 Aug 2000, Rob Giseburt wrote:
> I want to modify the User cofiguration directive in a perl handler ... for
> example in a PerlTransHandler. I'm trying to use mod_perl to implement Named
> Virtual Hosting, and I have everything I need done except User and Group
> mapping so that SuEXEC will pick up the correct user and group to setuid the
> non-mod_perl CGI execution to. I cannot find what variable to change. I know
> that in a <Perl>...</Perl> section it's simple $User, but in a
> PerlTransHandler context it seems you can only view it via $r->server->uid.
> Any suggestions?
you want to change the uid at request time? the patch below will let you
say $r->server->uid($new_uid);
you'll have to maintain changing it back yourself, like so:
my $old_uid = $r->server->uid($new_uid);
$r->register_cleanup(sub { shift->server->uid($old_uid) });
i'm not sure if we should allow this or not, security implications?
--- src/modules/perl/Server.xs 1999/08/20 08:34:43 1.6
+++ src/modules/perl/Server.xs 2000/08/16 05:19:54
@@ -151,11 +151,16 @@
RETVAL
uid_t
-uid(server)
+uid(server, id=0)
Apache::Server server
+ uid_t id
CODE:
RETVAL = server->server_uid;
+
+ if (items > 1) {
+ server->server_uid = id;
+ }
OUTPUT:
RETVAL
