check-certificates: handle formatting of self signed cert

This commit is contained in:
Christian Hesse 2024-03-06 12:13:15 +01:00
parent 53ff8fbf97
commit 09393d3ef5

View file

@ -98,8 +98,12 @@
:global ParseKeyValueStore;
:local CertVal [ /certificate/get $Cert ];
:local Return "";
:if ([ :typeof ($CertVal->"issuer") ] = "nothing") do={
:return "self-signed";
}
:local Return "";
:for I from=0 to=5 do={
:set Return ($Return . [ $EitherOr ([ $ParseKeyValueStore ($CertVal->"issuer") ]->"CN") \
([ $ParseKeyValueStore (($CertVal->"issuer")->0) ]->"CN") ]);