1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
| | ;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2022 Yarl Baudig <yarl-baudig@mailoo.org>
;;;
;;; This file is part of GNU Guix.
;;;
;;; GNU Guix is free software; you can redistribute it and/or modify it
;;; under the terms of the GNU General Public License as published by
;;; the Free Software Foundation; either version 3 of the License, or (at
;;; your option) any later version.
;;;
;;; GNU Guix is distributed in the hope that it will be useful, but
;;; WITHOUT ANY WARRANTY; without even the implied warranty of
;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;;; GNU General Public License for more details.
;;;
;;; You should have received a copy of the GNU General Public License
;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
(define-module (gnu services ils)
#:use-module (gnu services)
#:use-module (gnu services web)
#:use-module (gnu packages ils)
#:use-module (guix records)
#:use-module (guix utils)
#:use-module (guix gexp)
#:use-module (ice-9 match)
#:use-module (ice-9 format)
#:export (pmb-configuration
pmb-service-type
%default-nginx-pmb-location
%default-pmb-php-fpm-configuration
%default-pmb-mysql-configuration-extra-content))
;;; Commentary
;;;
;;; Integrated Library Systems services.
;;;
;;; Code
(define %default-nginx-pmb-location
(let ((base (nginx-php-location)))
(nginx-location-configuration
(inherit base)
(body (cons
"fastcgi_read_timeout 300;"
(nginx-location-configuration-body base))))))
(define %default-pmb-php-fpm-configuration
"expose_php=off
max_execution_time=300
max_input_vars=50000
memory_limit=256M
post_max_size=64M
upload_max_filesize=64M
date.timezone=Europe/Paris")
(define %default-pmb-mysql-configuration-extra-content
"[server]
sql_mode=NO_AUTO_CREATE_USER
collation_server=utf8_unicode_ci
key_buffer_size=1000001536
join_buffer_size=4000000")
(define-record-type* <pmb-configuration>
pmb-configuration make-pmb-configuration
pmb-configuration?
(pmb pmb-configuration-pmb (default pmb))
(http-directory pmb-configuration-http-directory
(default "/srv/http/pmb"))
(php-fpm-user pmb-configuration-php-fpm-user
(default "php-fpm"))
(php-fpm-group pmb-configuration-php-fpm-group
(default "php-fpm")))
(define (pmb-activation config)
(match-record
config
<pmb-configuration>
(pmb http-directory php-fpm-user php-fpm-group)
#~(begin
(use-modules (guix build utils))
(use-modules (ice-9 ftw))
(format #t "Copying pmb '~a' to http directory '~a'~%"
(string-append #$pmb "/share/http/pmb")
#$http-directory)
(mkdir-p #$http-directory)
;; Please be quiet
(call-with-output-file "/dev/null"
(lambda (port)
(with-output-to-port port
(lambda ()
(copy-recursively (string-append #$pmb "/share/http/pmb")
#$http-directory)))))
(define (enter? name stat result)
#t)
(define (lchown obj)
(let ((user (getpwnam #$php-fpm-user))
(group (getgrnam #$php-fpm-group)))
(chown obj (passwd:uid user) (group:gid group))))
(define (leaf name stat result)
(lchown name)
result)
(define (down name stat result)
(lchown name)
result)
(define (up name stat result) result)
(define (skip name stat result) result)
(define (error name stat errno result)
(warning (G_ "~a: ~a~%")
name (strerror errno))
result)
(file-system-fold enter? leaf down up skip error '() #$http-directory)
;; Those are to hide installation files on a re-activation
(if
(file-exists? (string-append #$http-directory "/tables/noinstall.php"))
(delete-file (string-append #$http-directory "/tables/install.php")))
(if
(file-exists? (string-append #$http-directory "/tables/noinstall_rep.php"))
(delete-file (string-append #$http-directory "/tables/install_rep.php"))))))
(define pmb-service-type
(service-type
(name 'guix)
(extensions
(list (service-extension activation-service-type
pmb-activation)))
(default-value (pmb-configuration))
(description "Install the pmb Integrated Library System")))
|