From 4073daa13990076c695a2d9c32208faf7415617b Mon Sep 17 00:00:00 2001
From: Christian Hesse <mail@eworm.de>
Date: Thu, 6 Apr 2023 10:26:24 +0200
Subject: check-certificates: include SANs in information

---
 check-certificates.rsc | 11 +++++++++++
 1 file changed, 11 insertions(+)

(limited to 'check-certificates.rsc')

diff --git a/check-certificates.rsc b/check-certificates.rsc
index 704ea15..6b35cbf 100644
--- a/check-certificates.rsc
+++ b/check-certificates.rsc
@@ -38,9 +38,20 @@
     :return [ $CharacterReplace [ $CharacterReplace [ :tostr $1 ] "w" "w " ] "d" "d " ];
   }
 
+  :local FormatSANs do={
+    :local SANs $1;
+    :local Return "";
+
+    :foreach SAN in=$SANs do={
+      :set Return ($Return . "\n             " . $SAN);
+    }
+    :return $Return;
+  }
+
   :return ( \
     "Name:        " . ($CertVal->"name") . "\n" . \
     [ $IfThenElse ([ :len ($CertVal->"common-name") ] > 0) ("CommonName:  " . ($CertVal->"common-name") . "\n") ] . \
+    [ $IfThenElse ([ :len ($CertVal->"subject-alt-name") ] > 0) ("SubjectAltNames:" . [ $FormatSANs ($CertVal->"subject-alt-name") ] . "\n") ] . \
     "Private key: " . [ $IfThenElse (($CertVal->"private-key") = true) "available" "missing" ] . "\n" . \
     "Fingerprint: " . ($CertVal->"fingerprint") . "\n" . \
     "Issuer:      " . ($CertVal->"ca") . ([ $ParseKeyValueStore ($CertVal->"issuer") ]->"CN") . "\n" . \
-- 
cgit v1.2.3-54-g00ecf