I am stuck on the following problem trying to access an Apache::Server
object within a PerlRequire startup script.
No matter what I try, the object never gives me back any useful values.
The following code for example:
<snip>
use Apache();
use Apache::Server();
use Data::Dumper();
...
my $s = Apache->server;
open LOG, ">>/tmp/apache_server_problem.log";
print LOG ("port = " . $s->port . "\n");
print LOG ("server_admin = " . $s->server_admin . "\n");
print LOG ("server_hostname = " .
Data::Dumper::Dumper($s->server_hostname));
print LOG ("names = " . Data::Dumper::Dumper($s->names));
close LOG;
</snip>
...always returns this in the logfile:
<snip>
port = 0
server_admin = [no address given]
server_hostname = undef
names = []
</snip>
This is on Perl version 5.00503 for Apache/1.3.12 (Unix)
mod_perl/1.21_02 BTW.
Anyone else had this problem? Any pointers greatly appreciated!
--
Tom Maes | Quios Inc, Europe
