File

net/httpserver_listener.lua @ 2947:ff7f6668b34f

tools/erlparse: Discard erlang PIDs instead of choking on them as a syntax error
author Matthew Wild <mwild1@gmail.com>
date Thu, 25 Mar 2010 19:34:41 +0000
parent 2925:692b3c6c5bd2
child 3047:820ae39e06de
line wrap: on
line source

-- Prosody IM
-- Copyright (C) 2008-2010 Matthew Wild
-- Copyright (C) 2008-2010 Waqas Hussain
-- 
-- This project is MIT/X11 licensed. Please see the
-- COPYING file in the source package for more information.
--



local connlisteners_register = require "net.connlisteners".register;
local new_request = require "net.httpserver".new_request;
local request_reader = require "net.httpserver".request_reader;

local requests = {}; -- Open requests

local httpserver = { default_port = 80, default_mode = "*a" };

function httpserver.onincoming(conn, data)
	local request = requests[conn];

	if not request then
		request = new_request(conn);
		requests[conn] = request;
		
		-- If using HTTPS, request is secure
		if conn:ssl() then
			request.secure = true;
		end
	end

	if data then
		request_reader(request, data);
	end
end

function httpserver.ondisconnect(conn, err)
	local request = requests[conn];
	if request and not request.destroyed then
		request.conn = nil;
		request_reader(request, nil);
	end
	requests[conn] = nil;
end

connlisteners_register("httpserver", httpserver);