certbot log

pink-gorilla · Jan 9, 2025 · 6e4e861 · 6e4e861
1 parent 1148155
commit 6e4e861
Showing 1 changed file with 14 additions and 9 deletions.
diff --git a/src/modular/webserver/https/letsencrypt.clj b/src/modular/webserver/https/letsencrypt.clj
@@ -21,15 +21,20 @@
   ; certbot either needs to run as root, or set --config-dir, --work-dir, and --logs-dir to writeable paths.
   ; When using the webroot method the Certbot client places a challenge response inside domain.com/.well-known/acme-challenge/ 
   ; which is used for validation. When validation is complete, challenge file is removed from the target directory
-  (shell "certbot" "certonly"
-         "--non-interactive" "--agree-tos"
-         "-m" email
-         "--webroot" "--webroot-path" webroot-path
-         "-d" domain
-         "--work-dir" work-path
-         "--config-dir" config-path
-         "--logs-dir" log-path
-         )))
+    (let [r (shell {:out :string}
+                  "certbot" "certonly"
+                  "--non-interactive" "--agree-tos"
+                  "-m" email
+                  "--webroot" "--webroot-path" webroot-path
+                  "-d" domain
+                  "--work-dir" work-path
+                  "--config-dir" config-path
+                  "--logs-dir" log-path)
+           ]
+     (info "renewal out: " (-> r :out)) ;str/split-lines first
+      r
+      )
+  ))
 
 (defn convert-cert
   "converts a letsencrypt certificate to a jetty certificate.