~ruther/guix-local: services: readymedia: Change cache and log directory permissions to 755.

cfe68843a8bf8cded75e3901debc13023d1225b3 — Sughosha 1 year, 7 months ago 265d4f3

services: readymedia: Change cache and log directory permissions to 755.

Create cache directory and log directory with 755 permission, which passes
run-readymedia-test.

* gnu/services/upnp.scm (readymedia-activation): Change directory permissions
of cache-directory and log-directory to 755.

Change-Id: Iff30040c3fd52564510f66d3568dab0ef89e0449
Signed-off-by: Ludovic Courtès <ludo@gnu.org>

patch browse .tar.gz .zip

1 files changed, 8 insertions(+), 4 deletions(-)

M gnu/services/upnp.scm

M gnu/services/upnp.scm => gnu/services/upnp.scm +8 -4

@@ 188,10 188,14 @@
                         (mkdir-p/perms directory
                                        (getpw #$%readymedia-user-account)
                                        #o775)))
-                    (list #$cache-directory
-                          #$log-directory
-                          #$@(map readymedia-media-directory-path
-                                  media-directories)))))))
+                    (list #$@(map readymedia-media-directory-path
+                                  media-directories)))
+          (for-each (lambda (directory)
+                      (unless (file-exists? directory)
+                        (mkdir-p/perms directory
+                                       (getpw #$%readymedia-user-account)
+                                       #o755)))
+                    (list #$cache-directory #$log-directory))))))
 
 (define readymedia-service-type
   (service-type