--- a/net/server_event.lua	Fri Jan 29 21:15:33 2010 +0500
+++ b/net/server_event.lua	Fri Jan 29 16:46:28 2010 +0000
@@ -426,6 +426,11 @@
 		return false, "setoption not implemented";
 	end
 	
+	function interface_mt:setlistener(listener)
+		self.onconnect, self.ondisconnect, self.onincoming, self.ontimeout
+			= listener.onconnect, listener.ondisconnect, listener.onincoming, listener.ontimeout;
+	end
+	
 	-- Stub handlers
 	function interface_mt:onconnect()
 	end