diff options
| author | Clément Lassieur <clement@lassieur.org> | 2018-02-11 10:53:10 +0100 |
|---|---|---|
| committer | Clément Lassieur <clement@lassieur.org> | 2018-02-22 21:43:54 +0100 |
| commit | fece75fe356ce9f99d1d13baaa5f195c510f187b (patch) | |
| tree | 175aa8d3787d7338b4747f12f6f0ba8edab02e35 /gnu/services/certbot.scm | |
| parent | e216c797f7432cbf21f991b1eff97821ace17140 (diff) | |
| download | guix-fece75fe356ce9f99d1d13baaa5f195c510f187b.tar guix-fece75fe356ce9f99d1d13baaa5f195c510f187b.tar.gz | |
services: certbot: Allow to set a deploy hook.
* doc/guix.texi (Certificate Services): Document it.
* gnu/services/certbot.scm (<certificate-configuration>, certbot-command): Add
it.
Diffstat (limited to 'gnu/services/certbot.scm')
| -rw-r--r-- | gnu/services/certbot.scm | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/gnu/services/certbot.scm b/gnu/services/certbot.scm index f90e4f04b2..066b8241b2 100644 --- a/gnu/services/certbot.scm +++ b/gnu/services/certbot.scm @@ -48,7 +48,9 @@ (name certificate-configuration-name (default #f)) (domains certificate-configuration-domains - (default '()))) + (default '())) + (deploy-hook certificate-configuration-deploy-hook + (default #f))) (define-record-type* <certbot-configuration> certbot-configuration make-certbot-configuration @@ -78,7 +80,8 @@ (commands (map (match-lambda - (($ <certificate-configuration> custom-name domains) + (($ <certificate-configuration> custom-name domains + deploy-hook) (let ((name (or custom-name (car domains)))) (append (list name certbot "certonly" "-n" "--agree-tos" @@ -86,7 +89,8 @@ "--webroot" "-w" webroot "--cert-name" name "-d" (string-join domains ",")) - (if rsa-key-size `("--rsa-key-size" ,rsa-key-size) '()))))) + (if rsa-key-size `("--rsa-key-size" ,rsa-key-size) '()) + (if deploy-hook `("--deploy-hook" ,deploy-hook) '()))))) certificates))) (program-file "certbot-command" |