blob: 72efcb662be702f42d302957011a37abc99328bb (
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
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
|
;;; Package Repository for GNU Guix
;;; Copyright © 2021-2025 Franz Geffke <m@f-a.nz>
(define-module (px services log)
#:use-module (gnu)
#:use-module (gnu packages admin)
#:use-module (gnu packages base)
#:use-module (gnu packages bash)
#:use-module (gnu packages linux)
#:use-module (gnu packages logging)
#:use-module (gnu packages screen)
#:use-module (gnu services shepherd)
#:use-module (px packages log)
#:use-module (gnu system)
#:use-module (gnu system shadow)
#:use-module (guix gexp)
#:use-module (guix records)
#:use-module (ice-9 match)
#:use-module (ice-9 pretty-print)
#:export (remote-syslog-service-configuration
remote-syslog-service-type
%rsyslog-default-config
%rsyslog-default-config-file
rsyslog-configuration
rsyslog-service-type))
;;
;; remote-syslog SERVICE
;;
(define (script-builder destionation-host destionation-port hostname log-files
package)
"Return the chorny configuration file corresponding to CONFIG."
(computed-file "remote-syslog-script.sh"
(with-imported-modules '((guix build utils))
#~(begin
(use-modules (guix build utils))
(call-with-output-file #$output
(lambda (port)
(format port
"#!~a~% exec ~a \"$@\"~%"
#+(file-append bash "/bin/sh")
(string-append #$package
"/bin/remote_syslog2"
" --no-detach"
" -d "
#$destionation-host
" -p "
#$destionation-port
" --pid-file=/var/run/remote_syslog.pid"
" --hostname "
#$hostname
" "
#$log-files))
(chmod port #o555)))))))
(define-record-type* <remote-syslog-service-configuration>
remote-syslog-service-configuration
make-remote-syslog-service-configuration
remote-syslog-service-configuration?
(destionation-host remote-syslog-service-configuration-destionation-host
(default "logs.papertrailapp.com"))
(destionation-port remote-syslog-service-configuration-destionation-port
(default "46169"))
(hostname remote-syslog-service-configuration-host
(default "$(hostname)"))
(log-files remote-syslog-service-configuration-log-files
(default "/var/log/messages"))
(package
remote-syslog-service-configuration-package
(default remote_syslog2)))
(define remote-syslog-shepherd-service
(match-lambda
(($ <remote-syslog-service-configuration>
destionation-host
destionation-port
hostname
log-files
package)
(list (shepherd-service (provision '(remote-syslog))
(documentation "Run remote-syslog as a daemon")
(requirement '(networking syslogd))
(start #~(make-forkexec-constructor (list #$(script-builder
destionation-host
destionation-port
hostname
log-files
package))))
(stop #~(make-kill-destructor)))))))
(define remote-syslog-service-type
(service-type (name "remote-syslog")
(description "Remote syslog service")
(extensions (list (service-extension
shepherd-root-service-type
remote-syslog-shepherd-service)))
(default-value (remote-syslog-service-configuration))))
;;
;; rsyslog-service-type
;;
(define %rsyslog-default-config
"## full conf created by rsyslog version 8.2204.1 at 2023-01-02 16:44:08 ##
$ModLoad imuxsock # provides support for local system logging (e.g. via logger command)
$ModLoad imklog # provides kernel logging support (previously done by rklogd)
$ModLoad immark # provides --MARK-- message capability
$ModLoad imudp
$UDPServerRun 514
$ModLoad imtcp
$InputTCPServerRun 514
$WorkDirectory /var/lib/rsyslog
$ActionFileDefaultTemplate RSYSLOG_TraditionalFileFormat
*.* /var/log/rsyslog
")
(define %rsyslog-default-config-file
(plain-file "rsyslog.conf" %rsyslog-default-config))
(define-record-type* <rsyslog-configuration> rsyslog-configuration
make-rsyslog-cofiguration
rsyslog-configuration?
(package
rsyslog-configuration-package
(default rsyslog))
(config-file rsyslog-configuration-config-file
(default %rsyslog-default-config-file)))
(define (rsyslog-activation config)
(with-imported-modules '((guix build utils))
#~(begin
(use-modules ((guix build utils)))
(let ((lib-dir "/var/lib/rsyslog"))
(mkdir-p lib-dir)))))
(define rsyslog-shepherd-service
(match-lambda
(($ <rsyslog-configuration> package config-file)
(list (shepherd-service (provision '(rsyslogd))
(documentation "Rsyslog daemon service")
(requirement '(syslogd))
(start #~(make-forkexec-constructor (list #$(file-append
package
"/sbin/rsyslogd")
"-n"
"-f"
#$config-file)))
(stop #~(make-kill-destructor)))))))
(define rsyslog-service-type
(service-type (name 'rsyslog)
(description "Run rsyslog daemon on machine")
(extensions (list (service-extension
shepherd-root-service-type
rsyslog-shepherd-service)
(service-extension activation-service-type
rsyslog-activation)))
(default-value (rsyslog-configuration))))
|
