aboutsummaryrefslogtreecommitdiffstats
path: root/check-certificates.rsc
diff options
context:
space:
mode:
authorGravatar Christian Hesse <mail@eworm.de>2023-12-04 12:14:52 +0100
committerGravatar Christian Hesse <mail@eworm.de>2023-12-04 13:05:46 +0100
commita08df7bdec4a7ddbd758d5066fc59ebb17709413 (patch)
treef98d6632b692235926e140bb873e1cf52dcee09c /check-certificates.rsc
parent3df99b0ee08af968afb8ec0382acde448a5d79b3 (diff)
check-certificates: prevent infinte loop
Diffstat (limited to 'check-certificates.rsc')
-rw-r--r--check-certificates.rsc3
1 files changed, 2 insertions, 1 deletions
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 ];