# HG changeset patch
# User Matthew Wild <mwild1@gmail.com>
# Date 1335290832 -3600
# Node ID c1374e083c97b7e4901c76d3cdb43eb3c9501d4f
# Parent  9d90c70b63585f038b20b5d96d091cd11cd4ec18
net.http.server: Handle results returned by handlers, and send as a response. Also removes explicit firing of '*', which can now be done via wildcard events.

diff -r 9d90c70b6358 -r c1374e083c97 net/http/server.lua
--- a/net/http/server.lua	Tue Apr 24 19:05:45 2012 +0100
+++ b/net/http/server.lua	Tue Apr 24 19:07:12 2012 +0100
@@ -168,19 +168,27 @@
 			host = host:match("[^:]*"):lower();
 			local event = request.method.." "..host..request.path:match("[^?]*");
 			local payload = { request = request, response = response };
-			--[[repeat
-				if events.fire_event(event, payload) ~= nil then return; end
-				event = (event:sub(-1) == "/") and event:sub(1, -1) or event:gsub("[^/]*$", "");
-				if event:sub(-1) == "/" then
-					event = event:sub(1, -1);
-				else
-					event = event:gsub("[^/]*$", "");
+			--log("debug", "Firing event: %s", event);
+			local result = events.fire_event(event, payload);
+			if result ~= nil then
+				if result ~= true then
+					local code, body = 200, "";
+					local result_type = type(result);
+					if result_type == "number" then
+						response.status_code = result;
+					elseif result_type == "string" then
+						body = result;
+					elseif result_type == "table" then
+						body = result.body;
+						result.body = nil;
+						for k, v in pairs(result) do
+							response[k] = v;
+						end
+					end
+					response:send(body);
 				end
-			until not event:find("/", 1, true);]]
-			--log("debug", "Event: %s", event);
-			if events.fire_event(event, payload) ~= nil then return; end
-			-- TODO try adding/stripping / at the end, but this needs to work via an HTTP redirect
-			if events.fire_event("*", payload) ~= nil then return; end
+				return;
+			end
 		end
 
 		-- if handler not called, fallback to legacy httpserver handlers