ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-25 22:08:16 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

services: certbot: Don't try to renew certificates on activation.

Browse source 
Because it takes too much time and it requires networking.

Thanks to Mathieu Othacehe for suggesting this.

* gnu/services/certbot.scm (certbot-activation): Do not run the renewal
command, copy its path to a fixed location, display it, so that the user can
run the command when they want.
This commit is contained in:
Clément Lassieur 2018-03-19 21:10:31 +01:00
parent 7ba2230897
commit f72662968e
No known key found for this signature in database
GPG key ID: 89F96D4808F359C7
1 changed files with 14 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

22
gnu/services/certbot.scm
View file

@ -26,6 +26,7 @@ (define-module (gnu services certbot)
#:use-module (gnu services web) #:use-module (gnu services web)
#:use-module (gnu system shadow) #:use-module (gnu system shadow)
#:use-module (gnu packages tls) #:use-module (gnu packages tls)
#:use-module (guix i18n)
#:use-module (guix records) #:use-module (guix records)
#:use-module (guix gexp) #:use-module (guix gexp)
#:use-module (srfi srfi-1) #:use-module (srfi srfi-1)
@ -113,14 +114,19 @@ (define (certbot-renewal-jobs config)
#$(certbot-command config)))) #$(certbot-command config))))
(define (certbot-activation config) (define (certbot-activation config)
(match config (let* ((certbot-directory "/var/lib/certbot")
(($ <certbot-configuration> package webroot certificates email (script (in-vicinity certbot-directory "renew-certificates"))
rsa-key-size default-location) (message (format #f (G_ "~a may need to be run~%") script)))
(with-imported-modules '((guix build utils)) (match config
#~(begin (($ <certbot-configuration> package webroot certificates email
(use-modules (guix build utils)) rsa-key-size default-location)
(mkdir-p #$webroot) (with-imported-modules '((guix build utils))
(zero? (system* #$(certbot-command config)))))))) #~(begin
(use-modules (guix build utils))
(mkdir-p #$webroot)
(mkdir-p #$certbot-directory)
(copy-file #$(certbot-command config) #$script)
(display #$message)))))))
(define certbot-nginx-server-configurations (define certbot-nginx-server-configurations
(match-lambda (match-lambda