rotation.scm
1 | ;;; Tyreunom's system administration and configuration tools. |
2 | ;;; |
3 | ;;; Copyright © 2019 Julien Lepiller <julien@lepiller.eu> |
4 | ;;; |
5 | ;;; This program is free software: you can redistribute it and/or modify |
6 | ;;; it under the terms of the GNU General Public License as published by |
7 | ;;; the Free Software Foundation, either version 3 of the License, or |
8 | ;;; (at your option) any later version. |
9 | ;;; |
10 | ;;; This program is distributed in the hope that it will be useful, |
11 | ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of |
12 | ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
13 | ;;; GNU General Public License for more details. |
14 | ;;; |
15 | ;;; You should have received a copy of the GNU General Public License |
16 | ;;; along with this program. If not, see <http://www.gnu.org/licenses/>. |
17 | |
18 | ;; |
19 | ;; Definition of rotation policies |
20 | ;; |
21 | |
22 | (define-module (config rotation) |
23 | #:use-module (gnu services) |
24 | #:use-module (gnu services admin) |
25 | #:export (server-rotations |
26 | base-rotations)) |
27 | |
28 | (define base-rotations |
29 | (list "/var/log/guix-daemon.log" |
30 | "/var/log/mcron.log" |
31 | "/var/log/debug" |
32 | "/var/log/lastlog" |
33 | "/var/log/messages" |
34 | "/var/log/secure" |
35 | "/var/log/wtmp" |
36 | "/var/log/shepherd.log")) |
37 | |
38 | (define server-rotations |
39 | (append |
40 | base-rotations |
41 | (list |
42 | "/var/log/letsencrypt/letsencrypt.log" |
43 | "/var/log/maillog" |
44 | "/var/log/nginx/access.log" |
45 | "/var/log/nginx/error.log"))) |
46 |