mod_welcome: Use module:hook instead of module:add_event_hook
[prosody.git] / plugins / mod_bosh.lua
index df89f88ec1b3c633031be41f0a282c3f3f66626f..46e9a95f6e466073b4ba04c7c7fbdb4628d067c2 100644 (file)
@@ -1,6 +1,7 @@
 
 module.host = "*" -- Global module
 
+local hosts = _G.hosts;
 local lxp = require "lxp";
 local init_xmlhandlers = require "core.xmlhandlers"
 local server = require "net.server";
@@ -11,7 +12,8 @@ local new_uuid = require "util.uuid".generate;
 local fire_event = require "core.eventmanager".fire_event;
 local core_process_stanza = core_process_stanza;
 local st = require "util.stanza";
-local log = require "util.logger".init("bosh");
+local logger = require "util.logger";
+local log = logger.init("mod_bosh");
 local stream_callbacks = { stream_tag = "http://jabber.org/protocol/httpbind|body" };
 local config = require "core.configmanager";
 local xmlns_bosh = "http://jabber.org/protocol/httpbind"; -- (hard-coded into a literal in session.send)
@@ -22,6 +24,8 @@ local BOSH_DEFAULT_POLLING = tonumber(config.get("*", "core", "bosh_max_polling"
 local BOSH_DEFAULT_REQUESTS = tonumber(config.get("*", "core", "bosh_max_requests")) or 2;
 local BOSH_DEFAULT_MAXPAUSE = tonumber(config.get("*", "core", "bosh_max_pause")) or 300;
 
+local default_headers = { ["Content-Type"] = "text/xml; charset=utf-8" };
+
 local t_insert, t_remove, t_concat = table.insert, table.remove, table.concat;
 local os_time = os.time;
 
@@ -32,6 +36,19 @@ local inactive_sessions = {}; -- Sessions which have no open requests
 local waiting_requests = {};
 function on_destroy_request(request)
        waiting_requests[request] = nil;
+       local session = sessions[request.sid];
+       if session then
+               local requests = session.requests;
+               for i,r in pairs(requests) do
+                       if r == request then requests[i] = nil; break; end
+               end
+               
+               -- If this session now has no requests open, mark it as inactive
+               if #requests == 0 and session.bosh_max_inactive and not inactive_sessions[session] then
+                       inactive_sessions[session] = os_time();
+                       (session.log or log)("debug", "BOSH session marked as inactive at %d", inactive_sessions[session]);
+               end
+       end
 end
 
 function handle_request(method, body, request)
@@ -87,7 +104,7 @@ end
 
 local function bosh_reset_stream(session) session.notopen = true; end
 
-local session_close_reply = st.stanza("body", { xmlns = xmlns_bosh, type = "terminate" });
+local session_close_reply = { headers = default_headers, body = st.stanza("body", { xmlns = xmlns_bosh, type = "terminate" }), attr = {} };
 local function bosh_close_stream(session, reason)
        (session.log or log)("info", "BOSH client disconnected");
        session_close_reply.attr.condition = reason;
@@ -110,8 +127,9 @@ function stream_callbacks.streamopened(request, attr)
                -- TODO: Sanity checks here (rid, to, known host, etc.)
                if not hosts[attr.to] then
                        -- Unknown host
+                       log("debug", "BOSH client tried to connect to unknown host: %s", tostring(attr.to));
                        session_close_reply.attr.condition = "host-unknown";
-                       request:send(tostring(session_close_reply));
+                       request:send{ headers = default_headers, body = tostring(session_close_reply) };
                        request.notopen = nil
                        return;
                end
@@ -120,11 +138,13 @@ function stream_callbacks.streamopened(request, attr)
                sid = new_uuid();
                local session = { type = "c2s_unauthed", conn = {}, sid = sid, rid = attr.rid, host = attr.to, bosh_version = attr.ver, bosh_wait = attr.wait, streamid = sid, 
                                                bosh_hold = BOSH_DEFAULT_HOLD, bosh_max_inactive = BOSH_DEFAULT_INACTIVITY,
-                                               requests = { }, send_buffer = {}, reset_stream = bosh_reset_stream, close = bosh_close_stream, dispatch_stanza = core_process_stanza };
+                                               requests = { }, send_buffer = {}, reset_stream = bosh_reset_stream, close = bosh_close_stream, 
+                                               dispatch_stanza = core_process_stanza, log = logger.init("bosh"..sid) };
                sessions[sid] = session;
+               
                log("info", "New BOSH session, assigned it sid '%s'", sid);
                local r, send_buffer = session.requests, session.send_buffer;
-               local response = { }
+               local response = { headers = default_headers }
                function session.send(s)
                        log("debug", "Sending BOSH data: %s", tostring(s));
                        local oldest_request = r[1];
@@ -151,10 +171,6 @@ function stream_callbacks.streamopened(request, attr)
                                end
                        elseif s ~= "" then
                                log("debug", "Saved to send buffer because there are %d open requests", #r);
-                               if session.bosh_max_inactive and not inactive_sessions[session] then
-                                       inactive_sessions[session] = os_time();
-                                       (session.log or log)("debug", "BOSH session marked as inactive at %d", inactive_sessions[session]);
-                               end
                                -- Hmm, no requests are open :(
                                t_insert(session.send_buffer, tostring(s));
                                log("debug", "There are now %d things in the send_buffer", #session.send_buffer);
@@ -168,9 +184,9 @@ function stream_callbacks.streamopened(request, attr)
                --xmpp:version='1.0' xmlns:xmpp='urn:xmpp:xbosh'
                local response = st.stanza("body", { xmlns = xmlns_bosh, 
                                                                        inactivity = tostring(BOSH_DEFAULT_INACTIVITY), polling = tostring(BOSH_DEFAULT_POLLING), requests = tostring(BOSH_DEFAULT_REQUESTS), hold = tostring(session.bosh_hold), maxpause = "120", 
-                                                                       sid = sid, ver  = '1.6', from = session.host, secure = 'true', ["xmpp:version"] = "1.0", 
+                                                                       sid = sid, authid = sid, ver  = '1.6', from = session.host, secure = 'true', ["xmpp:version"] = "1.0", 
                                                                        ["xmlns:xmpp"] = "urn:xmpp:xbosh", ["xmlns:stream"] = "http://etherx.jabber.org/streams" }):add_child(features);
-               request:send(tostring(response));
+               request:send{ headers = default_headers, body = tostring(response) };
                                
                request.sid = sid;
                return;
@@ -180,7 +196,7 @@ function stream_callbacks.streamopened(request, attr)
        if not session then
                -- Unknown sid
                log("info", "Client tried to use sid '%s' which we don't know about", sid);
-               request:send(tostring(st.stanza("body", { xmlns = xmlns_bosh, type = "terminate", condition = "item-not-found" })));
+               request:send{ headers = default_headers, body = tostring(st.stanza("body", { xmlns = xmlns_bosh, type = "terminate", condition = "item-not-found" })) };
                request.notopen = nil;
                return;
        end
@@ -243,7 +259,6 @@ function on_timer()
                                (session.log or log)("debug", "BOSH client inactive too long, destroying session at %d", now);
                                sessions[session.sid]  = nil;
                                inactive_sessions[session] = nil;
-                               session.bosh_max_inactive = nil; -- Stop us marking this session as active during destroy
                                sm_destroy_session(session, "BOSH client silent for over "..session.bosh_max_inactive.." seconds");
                        end
                else