Mercurial > prosody-modules
view mod_private_adhoc/mod_private_adhoc.lua @ 5383:df11a2cbc7b7
mod_http_oauth2: Implement RFC 7628 Proof Key for Code Exchange
Likely to become mandatory in OAuth 2.1.
Backwards compatible since the default 'plain' verifier would compare
nil with nil if the relevant parameters are left out.
author | Kim Alvefur <zash@zash.se> |
---|---|
date | Sat, 29 Apr 2023 13:09:46 +0200 |
parents | deb79c2357bb |
children |
line wrap: on
line source
-- Prosody IM -- Copyright (C) 2008-2010 Matthew Wild -- Copyright (C) 2008-2010 Waqas Hussain -- -- This project is MIT/X11 licensed. Please see the -- COPYING file in the source package for more information. -- -- Module by Thomas Raschbacher 2014 -- lordvan@lordvan.com module:depends"adhoc"; local dataforms_new = require "util.dataforms".new; local st = require "util.stanza"; local jid_split = require "util.jid".split; local private_storage = module:open_store("private"); local private_adhoc_result_layout = dataforms_new{ { name = "FORM_TYPE", type = "hidden", value = "http://jabber.org/protocol/admin" }; { name = "privatexmldata", type = "text-multi", label = "Private XML data" }; }; function private_adhoc_command_handler (self, data, state) local username, hostname = jid_split(data.from); local data, err = private_storage:get(username); local dataString = ""; if not data then dataString = "No data found."; if err then dataString = dataString..err end; else for key,value in pairs(data) do dataString = dataString..tostring(st.deserialize(value)):gsub("><",">\n<") dataString = dataString.."\n\n"; end end return { status = "completed", result= { layout = private_adhoc_result_layout, values = {privatexmldata=dataString.."\n"}} }; end local adhoc_new = module:require "adhoc".new; local descriptor = adhoc_new("Query private data", "private_adhoc", private_adhoc_command_handler, "local_user"); module:add_item ("adhoc", descriptor);