mod_sasl2_fast: Fix harmless off-by-one error (invalidates existing tokens!) Problem: This was causing the key to become "<token>--cur" instead of the expected "<token>-cur". As the same key was used by the code to both set and get, it still worked. Rationale for change: Although it worked, it's unintended, inconsistent and messy. It increases the chances of future bugs due to the unexpected format. Side-effects of change: Existing '--cur' entries will not be checked after this change, and therefore existing FAST clients will fail to authenticate until they attempt password auth and obtain a new FAST token. Existing '--cur' entries in storage will not be cleaned up by this commit, but this is considered a minor issue, and okay for the relatively few FAST deployments.

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