From 1f82439b023b7b5b01d9df6c47761dcbba3224e0 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Thu, 30 Jun 2022 22:47:11 +0530
Subject: web: server: Grant read-write permissions to all on Unix socket.

* tissue/web/server.scm (start-web-server): Grant read-write
permissions to all on Unix socket.
---
 tissue/web/server.scm | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

(limited to 'tissue')

diff --git a/tissue/web/server.scm b/tissue/web/server.scm
index 41ff4ce..dec0a35 100644
--- a/tissue/web/server.scm
+++ b/tissue/web/server.scm
@@ -241,5 +241,8 @@ git repository. CSS is a URI to a stylesheet."
                       #:port (sockaddr:port socket-address)))
                ;; Unix socket
                ((= (sockaddr:fam socket-address) AF_UNIX)
-                (list #:socket (make-unix-domain-server-socket
-                                #:path (sockaddr:path socket-address)))))))
+                (let ((socket (make-unix-domain-server-socket
+                               #:path (sockaddr:path socket-address))))
+                  ;; Grant read-write permissions to all users.
+                  (chmod (sockaddr:path socket-address) #o666)
+                  (list #:socket socket))))))
-- 
cgit v1.2.3