blob: 7f4d5c7d7671060c712db2170d418bfbee87579c (
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
|
(define-module (px services server)
#:use-module (gnu packages bash)
#:use-module (gnu packages node)
#:use-module (gnu services)
#:use-module (gnu services shepherd)
#:use-module (guix gexp)
#:use-module (guix records)
#:use-module (ice-9 match)
#:export (px-server-launcher-configuration px-server-launcher-service-type))
;;;
;;; PantherX Server Launcher Service
;;;
(define-record-type* <px-server-launcher-configuration>
px-server-launcher-configuration
make-px-server-launcher-configuration
px-server-launcher-configuration?
(user px-server-launcher-configuration-user
(default "panther"))
(group px-server-launcher-configuration-group
(default "users"))
(executable px-server-launcher-configuration-executable)
(args px-server-launcher-configuration-args
(default '()))
(cwd px-server-launcher-configuration-cwd
(default #f)))
(define (px-server-launcher->script config)
(match config
(($ <px-server-launcher-configuration>
user
group
executable
args
cwd)
(plain-file "px-server-launcher"
(string-append "#!/bin/sh\n\n"
"export PATH=$HOME/.local/bin:$PATH\n" ;add user installed binaries to PATH
(if cwd
(string-append "cd " cwd "\n") "")
"exec "
executable
" "
(string-join args " ")
"\n")))))
(define (px-server-launcher-shepherd-service config)
(match config
(($ <px-server-launcher-configuration>
user
group
executable
args
cwd)
(let* ((home-dir (if (eq? user "root") "/root"
(string-append "/home/" user)))
(script (px-server-launcher->script config)))
(list (shepherd-service (provision '(px-server-launcher))
(documentation
"PantherX Server Application Launcher Service")
(requirement '(networking user-processes))
(one-shot? #t)
(start #~(make-forkexec-constructor (list (string-append #$bash
"/bin/bash")
#$script)
#:user #$user
#:group #$group
#:environment-variables (cons* (string-append
"HOME="
#$home-dir)
(string-append
"PATH=/run/current-system/profile/bin")
(string-append
"XDG_DATA_HOME="
#$home-dir
"/.local/share")
(string-append
"XDG_CONFIG_HOME="
#$home-dir
"/.config")
"SSL_CERT_DIR=/run/current-system/profile/etc/ssl/certs"
"SSL_CERT_FILE=/run/current-system/profile/etc/ssl/certs/ca-certificates.crt"
(default-environment-variables))
#:log-file
"/var/log/px-server-launcher.log"))
(stop #~(make-kill-destructor))))))))
(define px-server-launcher-service-type
(service-type (name 'px-server-launcher)
(description "PantherX Server Application Launcher Service")
(extensions (list (service-extension
shepherd-root-service-type
px-server-launcher-shepherd-service)))))
|
