dan
/
certifix
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

handle CSRs with no attributes

This commit is contained in:
Daniel Barlow 2024-09-29 10:19:07 +01:00
parent e4410323cf
commit a56a9ba013
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
main.fnl
View File

@ -94,10 +94,11 @@
(crt:toPEM)))
(fn approve-request? [csr]
(let [attr (csr:getAttributes)]
(let [{ : challengePassword } (csr:getAttributes)]
(when challengePassword
(accumulate [found false
_ v (ipairs (. attr "challengePassword"))]
(or found (= v options.challenge-password)))))
_ v (ipairs challengePassword)]
(or found (= v options.challenge-password))))))
(fn handle-sign-csr [out]
(let [req (csr.new (out:get_body_as_string))]