prosody-hg: plugins/mod_s2s/mod

comparison plugins/mod_s2s/mod_s2s.lua @ 6054:7a5ddbaf758d

Merge 0.9->0.10

author	Matthew Wild <mwild1@gmail.com>
date	Wed, 02 Apr 2014 17:41:38 +0100
parents	d21ea6001bba
children	e626ee2fe106

comparison

equal deleted inserted replaced

-:2f93a04564b2
+:7a5ddbaf758d
 -- 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.
 --
 module:set_global();
 		return false;
 	end
 	return true;
 end
+local function keepalive(event)
+	return event.session.sends2s(' ');
+end
+module:hook("s2s-read-timeout", keepalive, -1);
 function module.add_host(module)
 	if module:get_option_boolean("disallow_s2s", false) then
 		module:log("warn", "The 'disallow_s2s' config option is deprecated, please see http://prosody.im/doc/s2s#disabling");
 		return nil, "This host has disallow_s2s set";
 	end
 	module:hook("route/remote", route_to_existing_session, -1);
 	module:hook("route/remote", route_to_new_session, -10);
 	module:hook("s2s-authenticated", make_authenticated, -1);
+	module:hook("s2s-read-timeout", keepalive, -1);
 end
 -- Stream is authorised, and ready for normal stanzas
 function mark_connected(session)
 	local sendq, send = session.sendq, session.sends2s;
 	local from, to = session.from_host, session.to_host;
-	session.log("info", "%s s2s connection %s->%s complete", session.direction, from, to);
+	session.log("info", "%s s2s connection %s->%s complete", session.direction:gsub("^.", string.upper), from, to);
 	local event_data = { session = session };
 	if session.type == "s2sout" then
 		fire_global_event("s2sout-established", event_data);
 		hosts[from].events.fire_event("s2sout-established", event_data);
 		end;
 		fire_global_event("s2sin-established", event_data);
 		hosts[to].events.fire_event("s2sin-established", event_data);
 	end
 	if session.direction == "outgoing" then
 		if sendq then
 			session.log("debug", "sending %d queued stanzas across new outgoing connection to %s", #sendq, session.to_host);
 			for i, data in ipairs(sendq) do
 				send(data[1]);
 				sendq[i] = nil;
 			end
 			session.sendq = nil;
 		end
 		session.ip_hosts = nil;
 		session.srv_hosts = nil;
 	end
 end
 		session.hosts[host].authed = true;
 	else
 		return false;
 	end
 	session.log("debug", "connection %s->%s is now authenticated for %s", session.from_host, session.to_host, host);
 	mark_connected(session);
 	return true;
 end
 --- Helper to check that a session peer's certificate is valid
 local function check_cert_status(session)
 local xmlns_xmpp_streams = "urn:ietf:params:xml:ns:xmpp-streams";
 function stream_callbacks.streamopened(session, attr)
 	local send = session.sends2s;
 	session.version = tonumber(attr.version) or 0;
 	-- TODO: Rename session.secure to session.encrypted
 	if session.secure == false then
 		session.secure = true;
+		session.encrypted = true;
-		-- Check if TLS compression is used
 		local sock = session.conn:socket();
 		if sock.info then
-			session.compressed = sock:info"compression";
+			local info = sock:info();
-		elseif sock.compression then
+			(session.log or log)("info", "Stream encrypted (%s with %s)", info.protocol, info.cipher);
-			session.compressed = sock:compression(); --COMPAT mw/luasec-hg
+			session.compressed = info.compression;
+		else
+			(session.log or log)("info", "Stream encrypted");
+			session.compressed = sock.compression and sock:compression(); --COMPAT mw/luasec-hg
 		end
 	end
 	if session.direction == "incoming" then
 		-- Send a reply stream header
 		-- Validate to/from
 		local to, from = nameprep(attr.to), nameprep(attr.from);
 		if not to and attr.to then -- COMPAT: Some servers do not reliably set 'to' (especially on stream restarts)
 			session:close({ condition = "improper-addressing", text = "Invalid 'to' address" });
 			return;
 		end
 		if not from and attr.from then -- COMPAT: Some servers do not reliably set 'from' (especially on stream restarts)
 			session:close({ condition = "improper-addressing", text = "Invalid 'from' address" });
 			return;
 		end
 		-- Set session.[from/to]_host if they have not been set already and if
 		-- this session isn't already authenticated
 		if session.type == "s2sin_unauthed" and from and not session.from_host then
 			session.from_host = from;
 		elseif from ~= session.from_host then
 			session.to_host = to;
 		elseif to ~= session.to_host then
 			session:close({ condition = "improper-addressing", text = "New stream 'to' attribute does not match original" });
 			return;
 		end
 		-- For convenience we'll put the sanitised values into these variables
 		to, from = session.to_host, session.from_host;
 		session.streamid = uuid_gen();
 		(session.log or log)("debug", "Incoming s2s received %s", st.stanza("stream:stream", attr):top_tag());
 		if to then
 			if not hosts[to] then
 				-- Attempting to connect to a host we don't serve
 		end
 		session:open_stream(session.to_host, session.from_host)
 		if session.version >= 1.0 then
 			local features = st.stanza("stream:features");
 			if to then
 				hosts[to].events.fire_event("s2s-stream-features", { origin = session, features = features });
 			else
 				(session.log or log)("warn", "No 'to' on stream header from %s means we can't offer any features", from or session.ip or "unknown host");
 			end
 			log("debug", "Sending stream features: %s", tostring(features));
 			send(features);
 		end
 	elseif session.direction == "outgoing" then
 		-- If we are just using the connection for verifying dialback keys, we won't try and auth it
 				session.sends2s(tostring(data));
 				send_buffer[i] = nil;
 			end
 		end
 		session.send_buffer = nil;
 		-- If server is pre-1.0, don't wait for features, just do dialback
 		if session.version < 1.0 then
 			if not session.dialback_verifying then
 				hosts[session.from_host].events.fire_event("s2sout-authenticate-legacy", { origin = session });
 			else
 			end
 		end
 		session.sends2s("</stream:stream>");
 		function session.sends2s() return false; end
 		local reason = remote_reason or (reason and (reason.text or reason.condition)) or reason;
-		session.log("info", "%s s2s stream %s->%s closed: %s", session.direction, session.from_host or "(unknown host)", session.to_host or "(unknown host)", reason or "stream closed");
+		session.log("info", "%s s2s stream %s->%s closed: %s", session.direction:gsub("^.", string.upper), session.from_host or "(unknown host)", session.to_host or "(unknown host)", reason or "stream closed");
 		-- Authenticated incoming stream may still be sending us stanzas, so wait for </stream:stream> from remote
 		local conn = session.conn;
 		if reason == nil and not session.notopen and session.type == "s2sin" then
 			add_task(stream_close_timeout, function ()
 				if not session.destroyed then
 -- Session initialization logic shared by incoming and outgoing
 local function initialize_session(session)
 	local stream = new_xmpp_stream(session, stream_callbacks);
 	session.stream = stream;
 	session.notopen = true;
 	function session.reset_stream()
 		session.notopen = true;
 		session.stream:reset();
 	end
 	session.open_stream = session_open_stream;
 	local filter = session.filter;
 	function session.data(data)
 		data = filter("bytes/in", data);
 		if data then
 			local ok, err = stream:feed(data);
 				if t then
 					return w(conn, t);
 				end
 			end
 		end
 		initialize_session(session);
 	else -- Outgoing session connected
 		session:open_stream(session.from_host, session.to_host);
 	end
+	session.ip = conn:ip();
 end
 function listener.onincoming(conn, data)
 	local session = sessions[conn];
 	if session then
 		session.data(data);
 	end
 end
 function listener.onstatus(conn, status)
 	if status == "ssl-handshake-complete" then
 		local session = sessions[conn];
 		if session and session.direction == "outgoing" then
 			session.log("debug", "Sending stream header...");
 	if session then
 		sessions[conn] = nil;
 		if err and session.direction == "outgoing" and session.notopen then
 			(session.log or log)("debug", "s2s connection attempt failed: %s", err);
 			if s2sout.attempt_connection(session, err) then
-				(session.log or log)("debug", "...so we're going to try another target");
 				return; -- Session lives for now
 			end
 		end
 		(session.log or log)("debug", "s2s disconnected: %s->%s (%s)", tostring(session.from_host), tostring(session.to_host), tostring(err or "connection closed"));
 		s2s_destroy_session(session, err);
+	end
+end
+function listener.onreadtimeout(conn)
+	local session = sessions[conn];
+	if session then
+		return (hosts[session.host] or prosody).events.fire_event("s2s-read-timeout", { session = session });
 	end
 end
 function listener.register_outgoing(conn, session)
 	session.direction = "outgoing";
 	if not must_secure and secure_domains[host] then
 		must_secure = true;
 	elseif must_secure and insecure_domains[host] then
 		must_secure = false;
 	end
 	if must_secure and (session.cert_chain_status ~= "valid" or session.cert_identity_status ~= "valid") then
 		module:log("warn", "Forbidding insecure connection to/from %s", host or session.ip or "(unknown host)");
 		if session.direction == "incoming" then
 			session:close({ condition = "not-authorized", text = "Your server's certificate is invalid, expired, or not trusted by "..session.to_host });
 		else -- Close outgoing connections without warning

Mercurial > prosody-hg

comparison plugins/mod_s2s/mod_s2s.lua @ 6054:7a5ddbaf758d