# HG changeset patch
# User Kim Alvefur <zash@zash.se>
# Date 1471524639 -7200
# Node ID d430573fe9f87ceca5ac00943f08c873c042548d
# Parent  65bf55fdf971bb8bf634ba4989ab762be36fba14
net.http.server: Expose way to set http server options

diff -r 65bf55fdf971 -r d430573fe9f8 net/http/server.lua
--- a/net/http/server.lua	Thu Aug 18 14:50:06 2016 +0200
+++ b/net/http/server.lua	Thu Aug 18 14:50:39 2016 +0200
@@ -19,6 +19,7 @@
 local listener = {};
 local hosts = {};
 local default_host;
+local options = {};
 
 local function is_wildcard_event(event)
 	return event:sub(-2, -1) == "/*";
@@ -130,7 +131,10 @@
 		sessions[conn] = nil;
 		conn:close();
 	end
-	sessions[conn] = parser_new(success_cb, error_cb);
+	local function options_cb()
+		return options;
+	end
+	sessions[conn] = parser_new(success_cb, error_cb, "server", options_cb);
 end
 
 function listener.ondisconnect(conn)
@@ -300,6 +304,9 @@
 function _M.fire_event(event, ...)
 	return events.fire_event(event, ...);
 end
+function _M.set_option(name, value)
+	options[name] = value;
+end
 
 _M.listener = listener;
 _M.codes = codes;