Thanks for your response. I tried that, but got an error:
[Mon Aug 22 14:43:52 2005] [error] Global $r object is not available.
Set:\n\t
PerlOptions +GlobalRequest\nin httpd.conf at
/usr/local/apache2/conf/startup.pl
line 82.\nCompilation failed in require at (eval 2) line 1.\n
[Mon Aug 22 14:43:52 2005] [error] Can't load Perl file:
/usr/local/apache2/conf
/startup.pl for server (null):0, exiting...
I also tried adding the PerlOptions values as indicated, but that didn't
help.
Philip M. Gollucci wrote:
In mp2 I am doing this:
-----------------------
use Apache2::ServerRec ();
use Apache2::ServerUtil ();
my $s = Apache2::ServerUtil->server();
warn "port = ",$s->port(),"\n";
Try
use Apache2::RequestUtil ();
Apache2::RequestUtil->request()->get_server_port()
Though I don't see why your method doesn't work. I'll give it a spin
in a bit.
