me/guix
Archived
1
0
Fork 0
Code Activity

services: earlyoom: Rotate log files.

Browse source 
* gnu/services/linux.scm (%earlyoom-log-rotation): New variable.
(earlyoom-service-type): Add service-extension for log rotation.
This commit is contained in:
Efraim Flashner 2023-05-04 21:30:12 +03:00
parent df18eac9ab
commit f66344ed81
No known key found for this signature in database
GPG key ID: 41AAE7DCCA3D8351
1 changed files with 9 additions and 2 deletions

11
gnu/services/linux.scm
View file

@ -1,7 +1,7 @@
;;; GNU Guix --- Functional package management for GNU ;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2020 Maxim Cournoyer <maxim.cournoyer@gmail.com> ;;; Copyright © 2020 Maxim Cournoyer <maxim.cournoyer@gmail.com>
;;; Copyright © 2020 Brice Waegeneire <brice@waegenei.re> ;;; Copyright © 2020 Brice Waegeneire <brice@waegenei.re>
;;; Copyright © 2020 Efraim Flashner <efraim@flashner.co.il> ;;; Copyright © 2020, 2023 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2021 raid5atemyhomework <raid5atemyhomework@protonmail.com> ;;; Copyright © 2021 raid5atemyhomework <raid5atemyhomework@protonmail.com>
;;; Copyright © 2021 B. Wilson <elaexuotee@wilsonb.com> ;;; Copyright © 2021 B. Wilson <elaexuotee@wilsonb.com>
;;; Copyright © 2022 Josselin Poiret <dev@jpoiret.xyz> ;;; Copyright © 2022 Josselin Poiret <dev@jpoiret.xyz>
@ -30,6 +30,7 @@
#:use-module (guix i18n) #:use-module (guix i18n)
#:use-module (guix ui) #:use-module (guix ui)
#:use-module (gnu services) #:use-module (gnu services)
#:use-module (gnu services admin)
#:use-module (gnu services base) #:use-module (gnu services base)
#:use-module (gnu services configuration) #:use-module (gnu services configuration)
#:use-module (gnu services mcron) #:use-module (gnu services mcron)
@ -155,13 +156,19 @@ representation."
#:log-file "/var/log/earlyoom.log")) #:log-file "/var/log/earlyoom.log"))
(stop #~(make-kill-destructor)))) (stop #~(make-kill-destructor))))
(define %earlyoom-log-rotation
(list (log-rotation
(files '("/var/log/earlyoom.log")))))
(define earlyoom-service-type (define earlyoom-service-type
(service-type (service-type
(name 'earlyoom) (name 'earlyoom)
(default-value (earlyoom-configuration)) (default-value (earlyoom-configuration))
(extensions (extensions
(list (service-extension shepherd-root-service-type (list (service-extension shepherd-root-service-type
(compose list earlyoom-shepherd-service)))) (compose list earlyoom-shepherd-service))
(service-extension rottlog-service-type
(const %earlyoom-log-rotation))))
(description "Run @command{earlyoom}, the Early OOM daemon."))) (description "Run @command{earlyoom}, the Early OOM daemon.")))