On Tue, 13 Jun 2000, Richard L. Goerwitz wrote:
> Matt Sergeant wrote:
>
> > OK then, try this:
> >
> > for ($s = Apache->server; $s; $s = $s->next) {
> > my ($server, $port) = ($s->server_hostname, $s->port);
> > $r->print('server: ', $server, "\n");
> > $r->print('port: ', $port, "\n");
> >
> > my $subreq = $r->lookup_uri("http://$server:$port/");
> > $r->print('variable value: ', $subreq->dir_config('SomePerlVariable'),
>"\n");
> > }
>
> Ah. But what if the server is running SSL - or what if the root page is
> protected by basic or some other such form of auth or access control? I
> can work up some elaborate setup in which a request from the server's own
> IP address will pass all these checks. Or I can push auth modules that
> return OK on non-main requests.
Why don't you just try it? It should work regardless. The auth stuff
should only happen if you actually call $subreq->run()
--
<Matt/>
Fastnet Software Ltd. High Performance Web Specialists
Providing mod_perl, XML, Sybase and Oracle solutions
Email for training and consultancy availability.
http://sergeant.org http://xml.sergeant.org
