From e9438b7d04e3f5b82f7d027050fdd1f7a29ab476 Mon Sep 17 00:00:00 2001 From: Waqas Hussain Date: Fri, 26 Jun 2009 23:36:12 +0500 Subject: mod_pep: Added function get_caps_hash_from_presence --- plugins/mod_pep.lua | 17 +++++++++++++++++ 1 file changed, 17 insertions(+) (limited to 'plugins/mod_pep.lua') diff --git a/plugins/mod_pep.lua b/plugins/mod_pep.lua index e4a1767b..95c18eec 100644 --- a/plugins/mod_pep.lua +++ b/plugins/mod_pep.lua @@ -48,6 +48,23 @@ local function publish(session, node, item) end end +local function get_caps_hash_from_presence(stanza, current) + if not stanza.attr.type then + for _, child in pairs(stanza.tags) do + if child.name == "c" and child.attr.xmlns == "http://jabber.org/protocol/caps" then + local attr = child.attr; + if attr.hash then -- new caps + if attr.hash == 'sha-1' and attr.node and attr.ver then return attr.ver, attr.node.."#"..attr.ver; end + else -- legacy caps + if attr.node and attr.ver then return attr.node.."#"..attr.ver.."#"..(attr.ext or ""), attr.node.."#"..attr.ver; end + end + return; -- bad caps format + end + end + return current; -- no caps, could mean caps optimization, so return current + end +end + module:hook("presence/bare", function(event) -- inbound presence to bare JID recieved local origin, stanza = event.origin, event.stanza; -- cgit v1.2.3