blob: a5c64e50fde54b59d26144f622f819359e91e29f (
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
|
(define-module (px services monitoring)
#:use-module (gnu)
#:use-module (gnu packages base)
#:use-module (gnu packages curl)
#:use-module (gnu packages linux)
#:use-module (gnu packages gnome)
#:use-module (gnu packages screen)
#:use-module (gnu services shepherd)
#:use-module (guix gexp)
#:use-module (guix records)
#:use-module (px packages device)
#:use-module (ice-9 match)
#:use-module (px packages monitoring)
#:export (<px-remote-status-service-configuration>
px-remote-status-service-configuration
px-remote-status-service-configuration?
px-remote-status-service-type))
;;
;; px-remote-status-service-type
;;
(define-record-type* <px-remote-status-service-configuration>
px-remote-status-service-configuration make-px-remote-status-configuration
px-remote-status-service-configuration?
(package px-remote-status-service-configuration-package
(default px-org-remote-status-service))
(interval px-remote-status-service-configuration-interval
(default 300))
(jobs px-remote-status-service-configuration-jobs
(default '())))
(define (px-remote-service-configuration->monitrc config)
"Return monitrc file for config"
(match config
(($ <px-remote-status-service-configuration> jobs)
(computed-file
"monitrc"
(with-imported-modules
'((guix build utils))
#~(begin
(use-modules (guix build utils)
(ice-9 match))
(call-with-output-file #$output
(lambda (port)
(display "\
### Monit default configurations
## Check interval
set daemon 30 # check services at 30 seconds intervals
# with start delay 240 # optional: delay the first check by 4-minutes (by
# # default Monit check immediately after Monit start)
## Set syslog logging
set log syslog
## Monit embedded HTTP interface
set httpd port 2812 and
use address localhost # only accept connection from localhost (drop if you use M/Monit)
allow localhost # allow localhost to connect to the server and
allow admin:monit # require user 'admin' with password 'monit'
### Monit job definitions\n" port)
(for-each (lambda (job)
(display (string-append job "\n") port))
'#$(px-remote-status-service-configuration-jobs config))
))))))))
(define (px-remote-status-shepherd-service config)
"Return <shepherd-service> running px-org-remote-status-service"
(match config
(($ <px-remote-status-service-configuration> package interval)
(let ((monitrc (px-remote-service-configuration->monitrc config)))
(list (shepherd-service
(provision '(px-remote-status))
(documentation "Run px-org-remote-status-service as a shepherd daemon")
(requirement '(networking user-processes px-device-identity))
(modules `((srfi srfi-1)
(srfi srfi-26)
,@%default-modules))
(start #~(make-forkexec-constructor
(list (string-append #$screen "/bin/screen")
"-D" "-m" "-S" "remote-status"
(string-append #$package "/bin/px-org-remote-status-service")
"-i" (number->string #$interval)
"-m" #$monitrc)
#:environment-variables
(cons* (string-append "PATH="
#$monit "/bin:"
#$network-manager "/bin:"
#$lshw "/sbin:"
#$coreutils "/bin:"
#$sysstat "/bin:"
#$curl "/bin:"
#$util-linux+udev "/bin:"
#$px-device-identity "/bin:"
"/run/current-system/profile/bin:"
(getenv "PATH"))
"HOME=/root"
"XDG_DATA_HOME=/root/.local/share"
"XDG_CONFIG_HOME=/root/.config"
"SSL_CERT_DIR=/run/current-system/profile/etc/ssl/certs"
"SSL_CERT_FILE=/run/current-system/profile/etc/ssl/certs/ca-certificates.crt"
(remove (cut string-prefix? "PATH=" <>)
(environ)))))
(stop #~(make-kill-destructor))))))))
(define px-remote-status-service-type
(service-type
(name 'px-remote-status)
(description "PantherX remote status service")
(extensions (list (service-extension shepherd-root-service-type
px-remote-status-shepherd-service)))
(default-value (px-remote-status-service-configuration))))
|
