# HG changeset patch
# User Kim Alvefur <zash@zash.se>
# Date 1572782185 -3600
# Node ID 362c45f6770413110c252af601c1ecf1101a170d
# Parent  19e43b7a969de3942789c35895e33ab611ef3a4b
mod_warn_legacy_tls: Copy of mod_sslv3_warn for TLS now that <1.2 is becoming obsolete

diff -r 19e43b7a969d -r 362c45f67704 mod_warn_legacy_tls/mod_warn_legacy_tls.lua
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/mod_warn_legacy_tls/mod_warn_legacy_tls.lua	Sun Nov 03 12:56:25 2019 +0100
@@ -0,0 +1,22 @@
+local st = require"util.stanza";
+local host = module.host;
+
+local warning_message = module:get_option_string("sslv3_warning", "Your connection is encrypted using the SSL 3.0 protocol, which has been demonstrated to be insecure and will be disabled soon.  Please upgrade your client.");
+
+module:hook("resource-bind", function (event)
+	local session = event.session;
+	module:log("debug", "mod_%s sees that %s logged in", module.name, session.username);
+
+	local ok, protocol = pcall(function(session)
+		return session.conn:socket():info"protocol";
+	end, session);
+	if not ok then
+		module:log("debug", protocol);
+	elseif protocol == "SSLv3" then
+		module:add_timer(15, function ()
+			if session.type == "c2s" and session.resource then
+				session.send(st.message({ from = host, type = "headline", to = session.full_jid }, warning_message));
+			end
+		end);
+	end
+end);