# HG changeset patch
# User Kim Alvefur <zash@zash.se>
# Date 1470745410 -7200
# Node ID 29e3a09275c5c79b2ae37c6ae7a5cc44218f9172
# Parent  463e43dc0c4db967ac45a670ab23df7977d8d3bd
mod_http_hostaliases: Give HTTP hosts additional aliases

diff -r 463e43dc0c4d -r 29e3a09275c5 mod_http_hostaliases/mod_http_hostaliases.lua
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/mod_http_hostaliases/mod_http_hostaliases.lua	Tue Aug 09 14:23:30 2016 +0200
@@ -0,0 +1,17 @@
+module:set_global();
+
+local host_map = { };
+
+module:wrap_object_event(require "net.http.server"._events, false, function (handlers, event_name, event_data)
+	local verb, host, path = event_name:match("^(%w+ )(.-)(/.*)");
+	host = host_map[host];
+	event_name = verb .. host .. path;
+	return handlers(event_name, event_data);
+end);
+
+function module.add_host(module)
+	local http_host = module:get_option_string("http_host");
+	for host in module:get_option_set("http_host_aliases", {}) do
+		host_map[host] = http_host;
+	end
+end