01/02: hydra: services: Goggles services maps /var/www/.well-known/all-logs.

[Ludovic Courtès]

civodul pushed a commit to branch master
in repository maintenance.

commit 3ac9bfe5a50aebc51ffeafce70b14752043c54a8
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Sat Jun 27 14:11:31 2020 +0200

    hydra: services: Goggles services maps /var/www/.well-known/all-logs.
    
    * hydra/modules/sysadmin/services.scm (%goggles-irc-log-directory): New
    varaible.
    (%goggles-activation): Create it and chmod it.
    (goggles-shepherd-services): Add it to #:mappings.
---
 hydra/modules/sysadmin/services.scm | 17 +++++++++++++++--
 1 file changed, 15 insertions(+), 2 deletions(-)

diff --git a/hydra/modules/sysadmin/services.scm 
b/hydra/modules/sysadmin/services.scm
index 2ef7dae..0be6535 100644
--- a/hydra/modules/sysadmin/services.scm
+++ b/hydra/modules/sysadmin/services.scm
@@ -459,6 +459,10 @@
   ;; Directory where Goggles stores its Xapian index.
   "/var/cache/logs.xapian")
 
+(define %goggles-irc-log-directory
+  ;; Directory where IRC logs are stored (by a separate znc process).
+  "/var/www/.well-known/all-logs")
+
 (define %goggles-activation
   (with-imported-modules '((guix build utils))
     #~(begin
@@ -466,7 +470,12 @@
         (let ((user (getpwnam "goggles")))
           (mkdir-p #$%goggles-cache-directory)
           (chown #$%goggles-cache-directory
-                 (passwd:uid user) (passwd:gid user))))))
+                 (passwd:uid user) (passwd:gid user))
+
+          ;; FIXME: This is world-writable!  TODO: Write a service to start
+          ;; znc and run it as user "goggles".
+          (mkdir-p #$%goggles-irc-log-directory)
+          (chmod #$%goggles-irc-log-directory #o777)))))
 
 (define (goggles-shepherd-services goggles)
   (with-imported-modules (source-module-closure
@@ -485,7 +494,11 @@
                      #:mappings (list (file-system-mapping
                                        (source #$%goggles-cache-directory)
                                        (target source)
-                                       (writable? #t)))))
+                                       (writable? #t))
+                                      (file-system-mapping
+                                       (source #$%goggles-irc-log-directory)
+                                       (target source)
+                                       (writable? #f)))))
            (stop #~(make-kill-destructor))))))
 
 (define (goggles-mcron-jobs goggles)