Mercurial > prosody-modules
view mod_carbons_adhoc/mod_carbons_adhoc.lua @ 2491:5fbca7de2088
mod_smacks: Send out more ack requests where needed
Under some circumstances it was possible that more than "max_unacked_stanzas"
where left in the outgoing stanza queue without forcing an ack.
This could happen, when more stanzas entered the queue while the last ack request
was still unanswered.
Now the test "#queue > max_unacked_stanzas" is done upon receiving
an ack as well as when sending out stanzas, which fixes this bug.
author | tmolitor <thilo@eightysoft.de> |
---|---|
date | Sun, 12 Feb 2017 19:27:50 +0100 |
parents | 7dbde05b48a9 |
children | a6c51f380777 |
line wrap: on
line source
-- Implement a Adhoc command which will show a user -- the status of carbons generation in regard to his clients -- -- Copyright (C) 2012 Michael Holzt -- -- This file is MIT/X11 licensed. local st = require "util.stanza"; local jid_bare = require "util.jid".bare; local adhoc_new = module:require "adhoc".new; local xmlns_carbons_v2 = "urn:xmpp:carbons:2"; local xmlns_carbons_v1 = "urn:xmpp:carbons:1"; local xmlns_carbons_v0 = "urn:xmpp:carbons:0"; local bare_sessions = bare_sessions; local function adhoc_status(self, data, state) local result; local bare_jid = jid_bare(data.from); local user_sessions = bare_sessions[bare_jid]; local result = ""; user_sessions = user_sessions and user_sessions.sessions; for _, session in pairs(user_sessions) do if session.full_jid then result = result .. session.full_jid .. ": " .. ( (session.want_carbons == xmlns_carbons_v2 and "v2" ) or (session.want_carbons == xmlns_carbons_v1 and "v1" ) or (session.want_carbons == xmlns_carbons_v0 and "v0" ) or "none" ) .. "\n"; end end return { info = result, status = "completed" }; end local status_desc = adhoc_new("Carbons: Get Status", "mod_carbons_adhoc#status", adhoc_status); module:add_item("adhoc", status_desc);