Mercurial > prosody-modules
diff mod_carbons_adhoc/mod_carbons_adhoc.lua @ 890:7ac1b8a799be
mod_carbons_adhoc: Initial commit.
This module will add an Adhoc-command by which a user can see if Message
Carbons (XEP-0280) are generated for his clients and also which version
is used for the individual client. Clients which receive copies as per
mod_carbons_copies will be listed as Version 0 carbons.
| author | Michael Holzt <kju@fqdn.org> |
|---|---|
| date | Sun, 23 Dec 2012 19:36:31 +0100 |
| parents | |
| children | 7dbde05b48a9 |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/mod_carbons_adhoc/mod_carbons_adhoc.lua Sun Dec 23 19:36:31 2012 +0100 @@ -0,0 +1,42 @@ +-- 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);