02/02: hydra: bayfront: Add 'certbot renew' mcron job.

[Ludovic Courtès]

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.