me
/
guix
Archived
1
0
Fork 0
Code

gnu: services: nginx: Test certificate presence. 

* gnu/services/web.scm (default-nginx-server-config): Test certificate
presence when https is requested at configure time.
master
Julien Lepiller 2017-04-30 11:17:02 +02:00
parent 9416112ed2
commit 0f4740f4fa
No known key found for this signature in database
GPG Key ID: 43111F4520086A0C
1 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
gnu/services/web.scm
View File

@ -2,7 +2,7 @@
;;; Copyright © 2015 David Thompson <davet@gnu.org> ;;; Copyright © 2015 David Thompson <davet@gnu.org>
;;; Copyright © 2015, 2016, 2017 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2015, 2016, 2017 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2016 ng0 <ng0@we.make.ritual.n0.is> ;;; Copyright © 2016 ng0 <ng0@we.make.ritual.n0.is>
;;; Copyright © 2016 Julien Lepiller <julien@lepiller.eu> ;;; Copyright © 2016, 2017 Julien Lepiller <julien@lepiller.eu>
;;; Copyright © 2017 Christopher Baines <mail@cbaines.net> ;;; Copyright © 2017 Christopher Baines <mail@cbaines.net>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
@ -154,12 +154,16 @@ of index files."
(nginx-server-configuration-server-name server)) (nginx-server-configuration-server-name server))
";\n" ";\n"
(if (nginx-server-configuration-ssl-certificate server) (if (nginx-server-configuration-ssl-certificate server)
(string-append " ssl_certificate " (let ((certificate (nginx-server-configuration-ssl-certificate server)))
(nginx-server-configuration-ssl-certificate server) ";\n") ;; lstat fails when the certificate file does not exist: it aborts
;; and lets the user fix their configuration.
(lstat certificate)
(string-append " ssl_certificate " certificate ";\n"))
"") "")
(if (nginx-server-configuration-ssl-certificate-key server) (if (nginx-server-configuration-ssl-certificate-key server)
(string-append " ssl_certificate_key " (let ((key (nginx-server-configuration-ssl-certificate-key server)))
(nginx-server-configuration-ssl-certificate-key server) ";\n") (lstat certificate)
(string-append " ssl_certificate_key " key ";\n"))
"") "")
" root " (nginx-server-configuration-root server) ";\n" " root " (nginx-server-configuration-root server) ";\n"
" index " (config-index-strings (nginx-server-configuration-index server)) ";\n" " index " (config-index-strings (nginx-server-configuration-index server)) ";\n"