mod_dialback: COMPAT reset session.send function for servers (e.g. ejabberd) which...
[prosody.git] / plugins / mod_dialback.lua
index e1fd5a42e511c3063cf76bfcd870e3cc892b0630..cc076db5ad87a141fd5f76a5b1cc0cdf5df0e4ab 100644 (file)
@@ -6,23 +6,35 @@
 -- COPYING file in the source package for more information.
 --
 
+local format = string.format;
 
 local hosts = _G.hosts;
-local send_s2s = require "core.s2smanager".send_to_host;
 local s2s_make_authenticated = require "core.s2smanager".make_authenticated;
-local s2s_initiate_dialback = require "core.s2smanager".initiate_dialback;
-local s2s_verify_dialback = require "core.s2smanager".verify_dialback;
-local s2s_destroy_session = require "core.s2smanager".destroy_session;
 
 local log = module._log;
 
 local st = require "util.stanza";
+local sha256_hash = require "util.hashes".sha256;
 
 local xmlns_stream = "http://etherx.jabber.org/streams";
-local xmlns_dialback = "jabber:server:dialback";
 
 local dialback_requests = setmetatable({}, { __mode = 'v' });
 
+function generate_dialback(id, to, from)
+       return sha256_hash(id..to..from..hosts[from].dialback_secret, true);
+end
+
+function initiate_dialback(session)
+       -- generate dialback key
+       session.dialback_key = generate_dialback(session.streamid, session.to_host, session.from_host);
+       session.sends2s(format("<db:result from='%s' to='%s'>%s</db:result>", session.from_host, session.to_host, session.dialback_key));
+       session.log("info", "sent dialback key on outgoing s2s stream");
+end
+
+function verify_dialback(id, to, from, key)
+       return key == generate_dialback(id, to, from);
+end
+
 module:hook("stanza/jabber:server:dialback:verify", function(event)
        local origin, stanza = event.origin, event.stanza;
        
@@ -33,7 +45,7 @@ module:hook("stanza/jabber:server:dialback:verify", function(event)
                -- COMPAT: Grr, ejabberd breaks this one too?? it is black and white in XEP-220 example 34
                --if attr.from ~= origin.to_host then error("invalid-from"); end
                local type;
-               if s2s_verify_dialback(attr.id, attr.from, attr.to, stanza[1]) then
+               if verify_dialback(attr.id, attr.from, attr.to, stanza[1]) then
                        type = "valid"
                else
                        type = "invalid"
@@ -61,11 +73,14 @@ module:hook("stanza/jabber:server:dialback:result", function(event)
                        return true;
                end
                
-               dialback_requests[attr.from] = origin;
+               dialback_requests[attr.from.."/"..origin.streamid] = origin;
                
                if not origin.from_host then
                        -- Just used for friendlier logging
                        origin.from_host = attr.from;
+                       -- COMPAT: Fix ejabberd chopness by resetting the send function
+                       origin.log("debug", "Remote server didn't specify a from attr, resetting session.send now that we know where to knock to.");
+                       origin.send = function(stanza) hosts[attr.to].events.fire_event("route/remote", { from_host = origin.to_host, to_host = origin.from_host, stanza = stanza}); end
                end
                if not origin.to_host then
                        -- Just used for friendlier logging
@@ -73,8 +88,7 @@ module:hook("stanza/jabber:server:dialback:result", function(event)
                end
                
                origin.log("debug", "asking %s if key %s belongs to them", attr.from, stanza[1]);
-               send_s2s(attr.to, attr.from,
-                       st.stanza("db:verify", { from = attr.to, to = attr.from, id = origin.streamid }):text(stanza[1]));
+               origin.send(st.stanza("db:verify", { from = attr.to, to = attr.from, id = origin.streamid }):text(stanza[1]));
                return true;
        end
 end);
@@ -84,8 +98,9 @@ module:hook("stanza/jabber:server:dialback:verify", function(event)
        
        if origin.type == "s2sout_unauthed" or origin.type == "s2sout" then
                local attr = stanza.attr;
-               local dialback_verifying = dialback_requests[attr.from];
-               if dialback_verifying then
+               local dialback_verifying = dialback_requests[attr.from.."/"..(attr.id or "")];
+               module:log("debug", tostring(dialback_verifying).." "..attr.from.." "..origin.to_host);
+               if dialback_verifying and attr.from == origin.to_host then
                        local valid;
                        if attr.type == "valid" then
                                s2s_make_authenticated(dialback_verifying, attr.from);
@@ -102,7 +117,7 @@ module:hook("stanza/jabber:server:dialback:verify", function(event)
                                                st.stanza("db:result", { from = attr.to, to = attr.from, id = attr.id, type = valid })
                                                                :text(dialback_verifying.hosts[attr.from].dialback_key));
                        end
-                       dialback_requests[attr.from] = nil;
+                       dialback_requests[attr.from.."/"..(attr.id or "")] = nil;
                end
                return true;
        end
@@ -126,18 +141,35 @@ module:hook("stanza/jabber:server:dialback:result", function(event)
                if stanza.attr.type == "valid" then
                        s2s_make_authenticated(origin, attr.from);
                else
-                       s2s_destroy_session(origin)
+                       origin:close("not-authorized", "dialback authentication failed");
                end
                return true;
        end
 end);
 
+module:hook_stanza("urn:ietf:params:xml:ns:xmpp-sasl", "failure", function (origin, stanza)
+       if origin.external_auth == "failed" then
+               module:log("debug", "SASL EXTERNAL failed, falling back to dialback");
+               initiate_dialback(origin);
+               return true;
+       end
+end, 100);
+
 module:hook_stanza(xmlns_stream, "features", function (origin, stanza)
-       s2s_initiate_dialback(origin);
+       if not origin.external_auth or origin.external_auth == "failed" then
+               module:log("debug", "Initiating dialback...");
+               initiate_dialback(origin);
+               return true;
+       end
+end, 100);
+
+module:hook("s2s-authenticate-legacy", function (event)
+       module:log("debug", "Initiating dialback...");
+       initiate_dialback(event.origin);
        return true;
 end, 100);
 
 -- Offer dialback to incoming hosts
 module:hook("s2s-stream-features", function (data)
-       data.features:tag("dialback", { xmlns='urn:xmpp:features:dialback' }):tag("optional"):up():up();
+       data.features:tag("dialback", { xmlns='urn:xmpp:features:dialback' }):up();
 end);