File

mod_adhoc_cmd_modules/mod_adhoc_cmd_modules.lua @ 203:4927b9737bb7

mod_adhoc_cmd_modules: Initial version. Provides a "List loaded modules" cmd for now
author Florian Zeitz <florob@babelmonkeys.de>
date Fri, 09 Jul 2010 01:36:32 +0200
child 205:a6361a1fda5e
line wrap: on
line source

-- Copyright (C) 2009-2010 Florian Zeitz
--
-- This file is MIT/X11 licensed. Please see the
-- COPYING file in the source package for more information.
--

local _G = _G;

local prosody = _G.prosody;
local hosts = prosody.hosts;

require "util.iterators";
local dataforms_new = require "util.dataforms".new;
local array = require "util.array";
local adhoc_new = module:require "adhoc".new;

function list_modules_handler(self, data, state)
	local list_modules_result = dataforms_new {
		title = "List of loaded modules";

		{ name = "FORM_TYPE", type = "hidden", value = "http://prosody.im/protocol/modules#list" };
		{ name = "modules", type = "text-multi", label = "The following modules are loaded:" };
	};

	local modules = array.collect(keys(hosts[data.to].modules)):sort()
	local modules_str = nil;
	for _, name in ipairs(modules) do
		modules_str = ((modules_str and modules_str .. "\n") or "") .. name;
	end

	return { status = "completed", result = { layout = list_modules_result; data = { modules = modules_str } } };
end

local list_modules_desc = adhoc_new("List loaded modules", "http://prosody.im/protocol/modules#list", list_modules_handler, "admin");

module:add_item("adhoc", list_modules_desc);