# HG changeset patch
# User tmolitor <thilo@eightysoft.de>
# Date 1479845687 -3600
# Node ID d1e975c24545a3d190c5c4a001444b819cc6037f
# Parent  85d04dd87f141592d4bb2b8fe1e078c16e36af43
mod_smacks_noerror: Initial commit

diff -r 85d04dd87f14 -r d1e975c24545 mod_smacks_noerror/README.markdown
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/mod_smacks_noerror/README.markdown	Tue Nov 22 21:14:47 2016 +0100
@@ -0,0 +1,37 @@
+---
+labels:
+- 'Stage-Alpha'
+summary: Monkeypatch mod_smacks to silently discard unacked message stanzas when a hibernation times out
+...
+
+Introduction
+============
+
+By default mod_smacks sends back error stanzas for every unacked message
+stanza when the hibernation times out.
+This leads to "message not delivered" errors displayed in clients.
+
+When you are certain that *all* your clients use MAM, this is unneccessary and
+confuses users (the message will eventually be delivered via MAM).
+
+This module therefore monkeypatches mod_smacks to silently drop those
+unacked message stanzas instead of sending error replies.
+Unacked iq stanzas are still answered with an error reply though.
+
+Warning
+=======
+
+You most certainly *should not* use this module if you cannot be certain
+that *all* your clients support and use MAM!
+
+Compatibility
+=============
+
+  ----- -------------------------------------------------------------------
+  trunk Untested
+  0.10  Works
+  0.9   Untested but should work
+  0.8   Untested but should work, use version [7693724881b3] of mod_smacks
+  ----- -------------------------------------------------------------------
+
+[7693724881b3]: //hg.prosody.im/prosody-modules/raw-file/7693724881b3/mod_smacks/mod_smacks.lua
diff -r 85d04dd87f14 -r d1e975c24545 mod_smacks_noerror/mod_smacks_noerror.lua
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/mod_smacks_noerror/mod_smacks_noerror.lua	Tue Nov 22 21:14:47 2016 +0100
@@ -0,0 +1,33 @@
+local t_insert = table.insert;
+
+local mod_smacks = module:depends"smacks"
+
+local function discard_unacked_messages(session)
+	local queue = session.outgoing_stanza_queue;
+	local replacement_queue = {};
+	session.outgoing_stanza_queue = replacement_queue;
+
+	for _, stanza in ipairs(queue) do
+		if stanza.name == "message" and stanza.attr.xmlns == nil and
+				( stanza.attr.type == "chat" or ( stanza.attr.type or "normal" ) == "normal" ) then
+			-- do nothing here for normal messages and don't send out "message delivery errors",
+			-- because messages are already in MAM at this point (no need to frighten users)
+		else
+			t_insert(replacement_queue, stanza);
+		end
+	end
+end
+
+local handle_unacked_stanzas = mod_smacks.handle_unacked_stanzas;
+
+mod_smacks.handle_unacked_stanzas = function (session)
+	-- Only deal with authenticated (c2s) sessions
+	if session.username then
+		discard_unacked_messages(session)
+	end
+	return handle_unacked_stanzas(session);
+end
+
+function module.unload()
+	mod_smacks.handle_unacked_stanzas = handle_unacked_stanzas;
+end