You are viewing a plain text version of this content. The canonical link for it is here.
Posted to modperl@perl.apache.org by Devrim Yasar <de...@kodingen.com> on 2009/11/16 19:54:52 UTC

Getting domain info on each hit.

Hi,

We want to retrieve URL and use it inside our vhosts, realtime.

To demonstrate my case, I placed random numbers on ServerAdmin  
directive (just to test),

<Perl>
$ServerAdmin = int(rand(100))."loko\@koko.com";
</Perl>




As you may know, this random number is assigned only when you restart  
the server, and never changes until another restart.

This is what we want:

if julie.myperl.com is the requested domain, then $ServerAdmin = julie@myperl.com 
, that is, realtime.

Hopefully there is a solution, since this will help us remove  
thousands of config files, and save us from thousands of apache reloads.

Thanks,
Devrim

here is kind of similar situation and solution,

> http://httpd.apache.org/docs/1.3/mod/mod_vhost_alias.html


and here is why ask this question,
we have built an API in which subdomains signify unix account names,
so variable part of {$user}.kodingen.com must be used within vhost conf.
http://serverfault.com/questions/84582/using-variables-within-apache-virtualhost-containers

Re: Getting domain info on each hit.

Posted by "Philippe M. Chiasson" <go...@ectoplasm.org>.
On 09-11-16 13:54 , Devrim Yasar wrote:
> Hi,
> 
> We want to retrieve URL and use it inside our vhosts, realtime.
> 
> To demonstrate my case, I placed random numbers on ServerAdmin directive
> (just to test),
> 
> <Perl>
> $ServerAdmin = int(rand(100))."loko\@koko.com";
> </Perl>
> 
> 
> 
> 
> As you may know, this random number is assigned only when you restart
> the server, and never changes until another restart.
> 
> This is what we want: 
> 
> if julie.myperl.com <http://julie.myperl.com/> is the requested domain,
> then $ServerAdmin = julie@myperl.com <ma...@myperl.com>, that is,
> realtime.
> 
> Hopefully there is a solution, since this will help us remove thousands
> of config files, and save us from thousands of apache reloads.

Something like this is probably what you are looking like

$r->server->server_hostname;
$r->server->server_admin('julie@myperl.com');

Read from here:

<http://perl.apache.org/docs/2.0/api/Apache2/ServerRec.html#C_server_admin_>

-- 
Philippe M. Chiasson     GPG: F9BFE0C2480E7680 1AE53631CB32A107 88C3A5A5
http://gozer.ectoplasm.org/       m/gozer\@(apache|cpan|ectoplasm)\.org/