-- (C) 2011, Marco Cirillo (LW.Org)
-- Display server stats in readable XML format
module:set_global()
local ports = module:get_option_array("xml_status_http_ports", {{ port = 5280 }})
local show_hosts = module:get_option_array("xml_status_show_hosts", nil)
local show_comps = module:get_option_array("xml_status_show_comps", nil)
local httpserver = require "net.httpserver"
-- code begin
if not prosody.stanza_counter and not show_hosts and not show_comps then
module:log ("error", "mod_xml_status requires at least one of the following things:")
module:log ("error", "mod_stanza_counter loaded, or either xml_status_show_hosts or xml_status_show_comps configuration values set.")
module:log ("error", "check the module wiki at: http://code.google.com/p/prosody-modules/wiki/mod_xml_status")
return false
end
local r_err = "\n\n\nProsody's XML Status - Error %s\n\n\n\n\n%s
\n\n\n\n"
local response_table = {}
response_table.header = ''
response_table.doc_header = ''
response_table.doc_closure = ''
response_table.stanzas = {
elem_header = ' ', elem_closure = ' ',
incoming = ' ',
outgoing = ' '
}
response_table.hosts = {
elem_header = ' ', elem_closure = ' ',
status = ' '
}
response_table.comps = {
elem_header = ' ', elem_closure = ' ',
status = ' '
}
local function forge_response()
local hosts_s = {}; local components = {}; local stats = {}; local hosts_stats = {}; local comps_stats = {}
local function t_builder(t,r) for _, bstring in ipairs(t) do r[#r+1] = bstring end end
if show_hosts then t_builder(show_hosts, hosts_s) end
if show_comps then t_builder(show_comps, components) end
-- build stanza stats if there
if prosody.stanza_counter then
stats[1] = response_table.stanzas.elem_header
stats[2] = response_table.stanzas.incoming:format(prosody.stanza_counter.iq["incoming"],
prosody.stanza_counter.message["incoming"],
prosody.stanza_counter.presence["incoming"])
stats[3] = response_table.stanzas.outgoing:format(prosody.stanza_counter.iq["outgoing"],
prosody.stanza_counter.message["outgoing"],
prosody.stanza_counter.presence["outgoing"])
stats[4] = response_table.stanzas.elem_closure
end
-- build hosts stats if there
if hosts_s[1] then
hosts_stats[1] = response_table.hosts.elem_header
for _, name in ipairs(hosts_s) do
hosts_stats[#hosts_stats+1] = response_table.hosts.status:format(
name, hosts[name] and "online" or "offline")
end
hosts_stats[#hosts_stats+1] = response_table.hosts.elem_closure
end
-- build components stats if there
if components[1] then
comps_stats[1] = response_table.comps.elem_header
for _, name in ipairs(components) do
comps_stats[#comps_stats+1] = response_table.comps.status:format(
name, hosts[name].modules.component and hosts[name].modules.component.connected and "online" or
hosts[name] and hosts[name].modules.component == nil and "online" or "offline")
end
comps_stats[#comps_stats+1] = response_table.comps.elem_closure
end
-- build xml document
local result = {}
result[#result+1] = response_table.header; result[#result+1] = response_table.doc_header -- start
t_builder(stats, result); t_builder(hosts_stats, result); t_builder(comps_stats, result)
result[#result+1] = response_table.doc_closure -- end
return table.concat(result, "\n")
end
-- http handlers
local function response(code, r, h)
local response = {
status = code;
body = r;
}
if h then response.headers = h; end
return response
end
local function request(method, body, request)
if method == "GET" then
return response(200, forge_response())
else
local err405 = r_err:format("405", "Only GET is supported")
return response(405, err405, {["Allow"] = "GET"})
end
end
-- initialization.
-- init http interface
local function setup()
httpserver.new_from_config(ports, request, { base = "xml-status" })
end
if prosody.start_time then
setup();
else
module:hook("server-started", setup);
end