# HG changeset patch
# User Kim Alvefur <zash@zash.se>
# Date 1689597915 -7200
# Node ID b264ea91e9308f280733988b45db7c3708f41440
# Parent  fcc052ca16524106928247a3b331007152d599d7
util.prosodyctl.check: Validate format of module list options

Should detect things like misplaced settings inside modules_enabled

diff -r fcc052ca1652 -r b264ea91e930 util/prosodyctl/check.lua
--- a/util/prosodyctl/check.lua	Mon Jul 17 14:03:13 2023 +0200
+++ b/util/prosodyctl/check.lua	Mon Jul 17 14:45:15 2023 +0200
@@ -496,6 +496,34 @@
 			print();
 		end
 
+		local function validate_module_list(host, name, modules)
+			if modules == nil then
+				return -- okay except for global section, checked separately
+			end
+			local t = type(modules)
+			if t ~= "table" then
+				print("    The " .. name .. " in the " .. host .. " section should not be a " .. t .. " but a list of strings, e.g.");
+				print("    " .. name .. " = { \"name_of_module\", \"another_plugin\", }")
+				print()
+				ok = false
+				return
+			end
+			for k, v in pairs(modules) do
+				if type(k) ~= "number" or type(v) ~= "string" then
+					print("    The " .. name .. " in the " .. host .. " section should not be a map of " .. type(k) .. " to " .. type(v)
+									.. " but a list of strings, e.g.");
+					print("    " .. name .. " = { \"name_of_module\", \"another_plugin\", }")
+					ok = false
+					break
+				end
+			end
+		end
+
+		for host, options in enabled_hosts() do
+			validate_module_list(host, "modules_enabled", options.modules_enabled);
+			validate_module_list(host, "modules_disabled", options.modules_disabled);
+		end
+
 		do -- Check for modules enabled both normally and as components
 			local modules = global:get_option_set("modules_enabled");
 			for host, options in enabled_hosts() do