From dee34d76fd28847b963446167326b9f9b527eb2e Mon Sep 17 00:00:00 2001 From: Daniel Szmulewicz Date: Tue, 28 Nov 2017 15:18:01 +0200 Subject: [PATCH] renew method --- src/certificaat/interface/cli.clj | 21 ++++++++++----------- 1 file changed, 10 insertions(+), 11 deletions(-) diff --git a/src/certificaat/interface/cli.clj b/src/certificaat/interface/cli.clj index 387e091..8cfee59 100644 --- a/src/certificaat/interface/cli.clj +++ b/src/certificaat/interface/cli.clj @@ -57,7 +57,6 @@ ""] (str/join \newline))) - (defn error-msg [errors] (str "The following errors occurred while parsing your command:\n\n" (str/join \newline errors))) @@ -124,6 +123,14 @@ (request options) (h/run-hooks :after-request options)) :else (exit 0 "Nothing left to do at this point in time."))) +(defn renew [{domain :domain config-dir :config-dir :as options}] + (if (k/valid? (str config-dir domain "/authorization." domain ".uri") options) + (request options) + (do (authorize options) + (h/run-hooks :before-challenge options) + (accept-challenges options) + (request options))) + (h/run-hooks :after-request options)) (defn certificaat [args] (let [{:keys [action options exit-message ok?]} (validate-args args)] @@ -155,13 +162,5 @@ (puget/cprint config-options))) "cron" (let [cli-options (validate ::domain/cli-options options) config-options (validate ::domain/config (c/read-config options)) - options (merge config-options cli-options) - {domain :domain config-dir :config-dir} options] - (if (k/valid? (str config-dir domain "/authorization." domain ".uri") options) - (request options) - (do (authorize options) - (h/run-hooks :before-challenge options) - (accept-challenges options) - (request options))) - (h/run-hooks :after-request options)))))) - + options (merge config-options cli-options)] + (renew options))))))