On Wed, 19 Feb 2003, Stas Bekman wrote:
> Nick Tonkin wrote:
> > Does anyone know the equivalent directive for
> > $r->server()->server_hostname()
>
> it's right there:
>
> use Apache::Server;
> $r->server->server_name;
Well, it doesn't work as advertised, I think.
package NPT::MyTest;
use strict;
use warnings;
use Apache::RequestRec;
use Apache::RequestUtil;
use Apache::Server;
sub handler {
my $r = shift;
warn $r->server->server_name;
return 200;
}
1;
~
[Tue Feb 18 15:08:58 2003] [error] [client 192.168.0.33] Can't locate
object method "server_name" via package "Apache::Server" at
/home/nick/perl/NPT/MyTest.pm line 14.
- nick
--
~~~~~~~~~~~~~~~~~~~~
Nick Tonkin {|8^)>
