blob: f8f2bc2cb1cb4a84f8d55277ab7e9a816c9d6974 (
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
|
(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))))
|
