cert logging

.gitignore

@@ -26,4 +26,5 @@ creds-localhost.edn
 \#*\#
 .\#*
 .~*
-.letsencrypt
+.letsencrypt
+.https/certificates

src/modular/webserver/https/letsencrypt.clj

@@ -1,5 +1,6 @@
 (ns modular.webserver.https.letsencrypt
   (:require
+   [taoensso.timbre :as timbre :refer [info error]]
    [babashka.fs :as fs]
    [babashka.process :refer [shell]]))
 
@@ -34,8 +35,7 @@
   [{:keys [path domain _email ]
     :or {path ".letsencrypt"}
     :as letsencrypt_opts}
-   {:keys [certificate
-           password]
+   {:keys [certificate password]
     :or {certificate ".https-certificates/keystore.p12"
          password "123456789"}
     :as https_opts}]
@@ -58,6 +58,7 @@
             (str "letsencrypt file does not exist: " letsencrypt-fullchain-pem))
     (assert (fs/exists? letsencrypt-privkey-pem)
             (str "letsencrypt file does not exist: " letsencrypt-privkey-pem))
+    (info "creating certificate path: " certificate-path)
     (fs/create-dirs certificate-path)
     (shell {:dir dir}
            "openssl" "pkcs12"

src/modular/webserver/https/proxy.clj

@@ -24,16 +24,16 @@
 (defn certificate-get-handler [{:keys [letsencrypt https] :as config}]
   (fn [_req]
     (info "certificate-get started..")
-    (let [r (renew-cert letsencrypt)]
-      (info "result: " r)
-      (response/response "certificate-get started!"))))
+    (renew-cert letsencrypt)
+    (info "certificate-get finished..")
+    (response/response "certificate-get started!")))
 
 (defn certificate-import-handler [{:keys [letsencrypt https] :as config}]
   (fn [_req]
     (info "certificate-convert started..")
-    (let [r (convert-cert letsencrypt https)]
-      (info "result: " r)
-      (response/response "certificate-import started!"))))
+    (convert-cert letsencrypt https)
+    (info "certificate-convert finished.")
+    (response/response "certificate-import started!")))
 
 (defn start-proxy
   "http server on port 80 that redirects all traffic to 443, except