From a08df7bdec4a7ddbd758d5066fc59ebb17709413 Mon Sep 17 00:00:00 2001
From: Christian Hesse <mail@eworm.de>
Date: Mon, 4 Dec 2023 12:14:52 +0100
Subject: [PATCH] check-certificates: prevent infinte loop

---
 check-certificates.rsc | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/check-certificates.rsc b/check-certificates.rsc
index b6336ff..c501a28 100644
--- a/check-certificates.rsc
+++ b/check-certificates.rsc
@@ -95,7 +95,7 @@
     :local CertVal [ /certificate/get $Cert ];
     :local Return "";
 
-    :while (true) do={
+    :for I from=0 to=3 do={
       :set Return ($Return . [ $ParseKeyValueStore ($CertVal->"issuer") ]->"CN");
       :if (($CertVal->"akid") = "" || ($CertVal->"akid") = ($CertVal->"skid")) do={
         :return $Return;
@@ -103,6 +103,7 @@
       :set Return ($Return . " -> ");
       :set CertVal [ /certificate/get [ find where skid=($CertVal->"akid") ] ];
     }
+    :return ($Return . "...");
   }
 
   :local CertVal [ /certificate/get $Cert ];