blob: d8b3a17c2d7d4aa384442a9d648ca30a6dc44bf0 (
plain)
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
129
130
131
132
133
134
135
|
(define-module (vkraus modules minetest)
#:use-module (gnu services)
#:use-module (gnu services shepherd)
#:use-module (gnu services admin)
#:use-module (gnu system shadow)
#:use-module (guix gexp)
#:use-module (guix modules)
#:use-module (guix records)
#:use-module (guix packages)
#:use-module (guix build-system minetest)
#:use-module (guix git-download)
#:use-module (gnu packages bash)
#:use-module (gnu packages minetest)
#:use-module (gnu packages admin)
#:use-module (srfi srfi-9)
#:use-module (srfi srfi-26)
#:use-module (ice-9 match)
#:use-module (ice-9 optargs)
#:use-module ((guix licenses) #:prefix license:)
#:export
(<minetest-server-configuration>
make-minetest-server-configuration
minetest-server-configuration?
minetest-server-configuration-admin
minetest-server-configuration-games
minetest-server-configuration-mods
minetest-shepherd-service
minetest-service-type))
(define-record-type <minetest-server-configuration>
(make-minetest-server-configuration admin games mods)
minetest-server-configuration?
(admin minetest-server-configuration-admin)
(games minetest-server-configuration-games)
(mods minetest-server-configuration-mods))
(define minetest-shepherd-service
(match-lambda
(($ <minetest-server-configuration> admin games mods)
(let ((script-file
(computed-file
"minetest-with-log-files"
#~(begin
(call-with-output-file #$output
(lambda (port)
(format port "#!~a/bin/bash
~a/bin/minetest \"$@\" >> /var/log/minetest/server.log 2>>/var/log/minetest/server.err
"
#$bash #$minetest)))
(chmod #$output #o755))))
(game-pack
(directory-union
"minetest-game-pack"
(map (cute file-append <> "/share/minetest/games")
games)))
(mod-pack
(directory-union
"minetest-mod-pack"
(map (cute file-append <> "/share/minetest/mods")
mods)))
(config-file
(plain-file "minetest.conf"
(format #f "bind_address = eno1
ipv6_server = true
name = ~a
default_privs = \"\"
"
admin))))
(list
(shepherd-service
(provision '(minetest))
(documentation "Run a sensible minetest server")
(requirement '(user-processes))
(modules '((gnu build shepherd)
(gnu system file-systems)))
(start
(with-imported-modules
(source-module-closure
'((gnu build shepherd)
(gnu system file-systems)))
#~(begin
(let ((user (getpwnam "minetest")))
(for-each
(lambda (dir)
(mkdir-p dir)
(chown dir (passwd:uid user) (passwd:gid user))
(chmod dir #o700))
'("/var/log/minetest" "/var/lib/minetest"))
(chown "/etc/minetest/password" (passwd:uid user) (passwd:gid user))
(chmod "/etc/minetest/password" #o700)
(false-if-exception
(delete-file "/var/lib/minetest/home/.minetest/debug.txt"))
(make-forkexec-constructor
(list #$script-file
"--server"
"--password-file" "/etc/minetest/password"
"--world" "/var/lib/minetest/world"
"--config" #$config-file)
#:user "minetest"
#:group "minetest"
#:environment-variables
`(,(format #f "MINETEST_SUBGAME_PATH=~a" #$game-pack)
,(format #f "MINETEST_MOD_PATH=~a" #$mod-pack)
"HOME=/var/lib/minetest/home"))))))
(stop #~(make-kill-destructor))))))))
(define %minetest-accounts
(list (user-group
(name "minetest")
(system? #t))
(user-account
(name "minetest")
(group "minetest")
(system? #t)
(comment "The user that runs the minetest server.")
(home-directory "/var/empty")
(shell (file-append shadow "/sbin/nologin")))))
(define %minetest-rottlog
`(,(log-rotation
(frequency 'weekly)
(files
(list "/var/log/minetest/server.log"
"/var/log/minetest/server.err"))
(options '("sharedscripts" "storedir /var/log/minetest")))))
(define minetest-service-type
(service-type
(name 'minetest)
(extensions
(list
(service-extension account-service-type (const %minetest-accounts))
(service-extension rottlog-service-type (const %minetest-rottlog))
(service-extension shepherd-root-service-type minetest-shepherd-service)))))
|
