# HG changeset patch
# User Kim Alvefur <zash@zash.se>
# Date 1699865406 -3600
# Node ID 76b6556c0f67ab010dbc389b408382f497bedb4e
# Parent  f32faaea3461ba789a9651b374ac21ed6281c11e
util.prosodyctl.check: Check cert for HTTPS if http module enabled

diff -r f32faaea3461 -r 76b6556c0f67 util/prosodyctl/check.lua
--- a/util/prosodyctl/check.lua	Mon Nov 13 09:44:40 2023 +0100
+++ b/util/prosodyctl/check.lua	Mon Nov 13 09:50:06 2023 +0100
@@ -313,6 +313,7 @@
 	local set = require "prosody.util.set";
 	local it = require "prosody.util.iterators";
 	local ok = true;
+	local function contains_match(hayset, needle) for member in hayset do if member:find(needle) then return true end end end
 	local function disabled_hosts(host, conf) return host ~= "*" and conf.enabled ~= false; end
 	local function enabled_hosts() return it.filter(disabled_hosts, pairs(configmanager.getconfig())); end
 	local checks = {};
@@ -973,9 +974,6 @@
 			end
 
 			local known_http_modules = set.new { "bosh"; "http_files"; "http_file_share"; "http_openmetrics"; "websocket" };
-			local function contains_match(hayset, needle)
-				for member in hayset do if member:find(needle) then return true end end
-			end
 
 			if modules:contains("http") or not set.intersection(modules, known_http_modules):empty()
 				or contains_match(modules, "^http_") or contains_match(modules, "_web$") then
@@ -1183,6 +1181,18 @@
 							print("    Not valid for server-to-server connections to "..host..".")
 							cert_ok = false
 						end
+
+						local known_http_modules = set.new { "bosh"; "http_files"; "http_file_share"; "http_openmetrics"; "websocket" };
+						local http_loaded = modules:contains("http")
+							or not set.intersection(modules, known_http_modules):empty()
+							or contains_match(modules, "^http_")
+							or contains_match(modules, "_web$");
+
+						local http_host = api(host):get_option_string("http_host", host);
+						if http_loaded and not x509_verify_identity(http_host, nil, cert) then
+							print("    Not valid for HTTPS connections to "..host..".")
+							cert_ok = false
+						end
 						if use_dane then
 							if cert.pubkey then
 								print("    DANE: TLSA 3 1 1 "..sha256(pem2der(cert:pubkey()), true))