diff options
| author | Arun Isaac | 2022-06-30 22:47:11 +0530 |
|---|---|---|
| committer | Arun Isaac | 2022-06-30 22:47:11 +0530 |
| commit | 1f82439b023b7b5b01d9df6c47761dcbba3224e0 (patch) | |
| tree | 21578b6a7fbf91c26d996bebc8becec1938fad84 | |
| parent | 595eb2739742b30be21197a3c059eccb08e9926b (diff) | |
| download | tissue-1f82439b023b7b5b01d9df6c47761dcbba3224e0.tar.gz tissue-1f82439b023b7b5b01d9df6c47761dcbba3224e0.tar.lz tissue-1f82439b023b7b5b01d9df6c47761dcbba3224e0.zip | |
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.
| -rw-r--r-- | tissue/web/server.scm | 7 |
1 files changed, 5 insertions, 2 deletions
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)))))) |