3 local cert_verify_identity
= require
"util.x509".verify_identity
;
5 local log = module
._log
;
7 module
:hook("s2s-check-certificate", function(event
)
8 local session
, host
, cert
= event
.session
, event
.host
, event
.cert
;
9 local conn
= session
.conn
:socket();
10 local log = session
.log or log;
13 log("warn", "No certificate provided by %s", host
or "unknown host");
17 local chain_valid
, errors
;
18 if conn
.getpeerverification
then
19 chain_valid
, errors
= conn
:getpeerverification();
21 chain_valid
, errors
= false, { { "Chain verification not supported by this version of LuaSec" } };
23 -- Is there any interest in printing out all/the number of errors here?
24 if not chain_valid
then
25 log("debug", "certificate chain validation result: invalid");
26 for depth
, t
in pairs(errors
or NULL
) do
27 log("debug", "certificate error(s) at depth %d: %s", depth
-1, table.concat(t
, ", "))
29 session
.cert_chain_status
= "invalid";
31 log("debug", "certificate chain validation result: valid");
32 session
.cert_chain_status
= "valid";
34 -- We'll go ahead and verify the asserted identity if the
35 -- connecting server specified one.
37 if cert_verify_identity(host
, "xmpp-server", cert
) then
38 session
.cert_identity_status
= "valid"
40 session
.cert_identity_status
= "invalid"
42 log("debug", "certificate identity validation result: %s", session
.cert_identity_status
);