[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
02/02: hydra: bayfront: Add 'certbot renew' mcron job.
From: |
Ludovic Courtès |
Subject: |
02/02: hydra: bayfront: Add 'certbot renew' mcron job. |
Date: |
Fri, 17 Mar 2017 18:23:20 -0400 (EDT) |
civodul pushed a commit to branch master
in repository maintenance.
commit 0cf478f3e1237ca3535aecd76a41bd9fb82698cd
Author: Ludovic Courtès <address@hidden>
Date: Fri Mar 17 23:21:25 2017 +0100
hydra: bayfront: Add 'certbot renew' mcron job.
* hydra/bayfront.scm (%certbot-job): New variable.
[services] <mcron>: Use it.
---
hydra/bayfront.scm | 9 ++++++++-
1 file changed, 8 insertions(+), 1 deletion(-)
diff --git a/hydra/bayfront.scm b/hydra/bayfront.scm
index dcf76a4..15435ec 100644
--- a/hydra/bayfront.scm
+++ b/hydra/bayfront.scm
@@ -25,6 +25,13 @@
#~(job '(next-hour '(4))
(string-append #$guix "/bin/guix gc -F80G")))
+(define %certbot-job
+ ;; Attempt to renew the Let's Encrypt certificate twice a week.
+ #~(job (lambda (now)
+ (next-day-from (next-hour-from now '(3))
+ '(2 5)))
+ (string-append #$certbot "/bin/certbot renew")))
+
(define %guix-daemon-config
(guix-configuration
;; Disable substitutes altogether.
@@ -204,7 +211,7 @@ Happy hacking!\n"))
(service rottlog-service-type (rottlog-configuration))
(service mcron-service-type
(mcron-configuration
- (jobs (list %gc-job))))
+ (jobs (list %gc-job %certbot-job))))
(modify-services %base-services
;; Disable substitutes altogether.