09/13: doc: Use herd for cerbot deploy hook example.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit fec8e513803970f5105817ae80b696605bbf3b03
Author: Bruno Victal <mirai@makinata.eu>
AuthorDate: Thu Oct 5 14:20:49 2023 +0100

    doc: Use herd for cerbot deploy hook example.
    
    * doc/guix.texi (Certificate Services): Replace PID file based example with
    one using (gnu services herd). Rename %nginx-deploy-hook to
    %certbot-deploy-hook.
    
    Signed-off-by: Ludovic Courtès <ludo@gnu.org>
---
 doc/guix.texi | 13 +++++++------
 1 file changed, 7 insertions(+), 6 deletions(-)

diff --git a/doc/guix.texi b/doc/guix.texi
index 3a9a909df8..3517c95251 100644
--- a/doc/guix.texi
+++ b/doc/guix.texi
@@ -32010,11 +32010,12 @@ A service type for the @code{certbot} Let's Encrypt 
client.  Its value
 must be a @code{certbot-configuration} record as in this example:
 
 @lisp
-(define %nginx-deploy-hook
-  (program-file
-   "nginx-deploy-hook"
-   #~(let ((pid (call-with-input-file "/var/run/nginx/pid" read)))
-       (kill pid SIGHUP))))
+(define %certbot-deploy-hook
+  (program-file "certbot-deploy-hook.scm"
+    (with-imported-modules '((gnu services herd))
+      #~(begin
+          (use-modules (gnu services herd))
+          (with-shepherd-action 'nginx ('reload) result result)))))
 
 (service certbot-service-type
          (certbot-configuration
@@ -32023,7 +32024,7 @@ must be a @code{certbot-configuration} record as in 
this example:
            (list
             (certificate-configuration
              (domains '("example.net" "www.example.net"))
-             (deploy-hook %nginx-deploy-hook))
+             (deploy-hook %certbot-deploy-hook))
             (certificate-configuration
              (domains '("bar.example.net")))))))
 @end lisp