guix/maintenance
2
0
Fork 0
mirror of git://git.savannah.gnu.org/guix/maintenance.git synced 2023-12-14 03:33:04 +01:00
Code Issues Releases Wiki Activity

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

Browse source 
* 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.
This commit is contained in:
Ludovic Courtès 2020-06-27 14:11:31 +02:00
parent 5b61819f14
commit 3ac9bfe5a5
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 15 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
hydra/modules/sysadmin/services.scm
View file

@ -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)