Use the Plack::Request object to get the server hostname.

This commit is contained in:
Colin Kuskie 2010-06-16 08:42:15 -07:00
parent 73319bf6c0
commit 7057e92248

View file

@ -171,9 +171,7 @@ sub _visitors {
my $ip_clause;
# Check whether instance of Apache2::ServerRec is available
if($session->server) {
# Query hostname of server
my $hostname = $session->server->server_hostname();
if(my $hostname = $session->request->uri->host) {
# Look up server IP addresses
my $res = Net::DNS::Resolver->new();