From 7057e92248db937e845d0a7b3b1a092544bdfa34 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Wed, 16 Jun 2010 08:42:15 -0700
Subject: [PATCH] Use the Plack::Request object to get the server hostname.

---
 lib/WebGUI/Macro/UsersOnline.pm | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/lib/WebGUI/Macro/UsersOnline.pm b/lib/WebGUI/Macro/UsersOnline.pm
index 65dc7f918..53f6008b3 100644
--- a/lib/WebGUI/Macro/UsersOnline.pm
+++ b/lib/WebGUI/Macro/UsersOnline.pm
@@ -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();