From d3af348ba9576647a72c20c01ae071b5608f429d Mon Sep 17 00:00:00 2001
From: Frederick Muriuki Muriithi
Date: Tue, 28 Jan 2025 16:32:17 -0600
Subject: Change "dirs-allowed" setting to a list

Virtuoso's DirsAllowed setting expects a comma-delimited list of
directories. See
https://docs.openlinksw.com/virtuoso/ch-server/#ini_parameters

Initially, we only allowed one path. This commit fixes that, allowing
a list of paths to be passed in.
---
 gn/services/databases.scm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'gn/services')

diff --git a/gn/services/databases.scm b/gn/services/databases.scm
index 91ac166..4cbbb5e 100644
--- a/gn/services/databases.scm
+++ b/gn/services/databases.scm
@@ -34,7 +34,7 @@
   (server-port virtuoso-configuration-server-port
                (default 1111))
   (dirs-allowed virtuoso-dirs-allowed
-                (default "/var/genenetwork/virtuoso-data"))
+                (default (list "/var/genenetwork/virtuoso-data")))
   (number-of-buffers virtuoso-configuration-number-of-buffers
                      (default #f))
   (maximum-dirty-buffers virtuoso-configuration-maximum-dirty-buffers
@@ -100,9 +100,9 @@
                               (format port "ServerPort = ~a:~a~%"
                                       #$(virtuoso-configuration-server-ip config)
                                       #$(virtuoso-configuration-server-port config)))
-                            (when #$(virtuoso-dirs-allowed config)
+                            (when #$(>= (length (virtuoso-dirs-allowed config)) 1)
                                   (format port "DirsAllowed = ~a~%"
-                                          #$(virtuoso-dirs-allowed config)))
+                                          #$(string-join (virtuoso-dirs-allowed config) ",")))
                             (when #$(virtuoso-configuration-number-of-buffers config)
                                   (format port "NumberOfBuffers = ~a~%"
                                           #$(virtuoso-configuration-number-of-buffers config)))
-- 
cgit v1.2.3