From c5377ba75fa5aa15cbb04c565d2d3d4520145cb9 Mon Sep 17 00:00:00 2001
From: Matthew Wild <mwild1@gmail.com>
Date: Thu, 17 Dec 2009 20:30:10 +0000
Subject: net.server_event: Add :serverport() method to be compatible with old
 API

---
 net/server_event.lua | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/net/server_event.lua b/net/server_event.lua
index bcdd6ad1..2f9ab7d9 100644
--- a/net/server_event.lua
+++ b/net/server_event.lua
@@ -352,6 +352,10 @@ do
 		return self._port
 	end
 	
+	function interface_mt:serverport()
+		return self._serverport
+	end
+	
 	function interface_mt:ip()
 		return self._ip
 	end
@@ -464,6 +468,7 @@ do
 			
 			-- Properties
 			_ip = ip, _port = port, _server = server, _pattern = pattern,
+			_serverport = (server and server:port() or nil),
 			_sslctx = sslctx; -- parameters
 			_usingssl = false;  -- client is using ssl;
 		}
-- 
cgit v1.2.3