mirror of
git://git.savannah.gnu.org/guix/maintenance.git
synced 2023-12-14 03:33:04 +01:00
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.
This commit is contained in:
parent
5b61819f14
commit
3ac9bfe5a5
|
@ -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)
|
||||
|
|
Loading…
Reference in a new issue