feat: core dumps service for putting core dumps to system folder Rather than putting core dumps to currently working directory, this makes it so that core dumps are outputted to /var/lib/dumps. This makes it nicer 1. to find dumps, 2. to actually have multiple dumps without them being overriden as the format of the name is chosen as well. The default format of the name is to put in unix timestamp, pid of the process and path to the process.
1 files changed, 38 insertions(+), 0 deletions(-) A modules/ruther/services/system.scm
A modules/ruther/services/system.scm => modules/ruther/services/system.scm +38 -0
@@ 0,0 1,38 @@ (define-module (ruther services system) #:use-module (guix gexp) #:use-module (gnu services) #:use-module (gnu services sysctl) #:use-module (gnu services configuration)) (define-configuration core-dumps-configuration (folder (string "/var/lib/dumps") "The folder to put the core dumps to. It will be automatically created.") (format (string "%t-core.%p.%e") "The format of the file name, see kernel manual (man 5 core) for details") (no-serialization)) (define (core-dumps-sysctl config) (let* ((state-dir (core-dumps-configuration-folder config)) (format (core-dumps-configuration-format config)) (full (string-append state-dir "/" format))) `(("kernel.core_pattern" . ,full)))) (define (%core-dumps-activation config) (let ((state-dir (core-dumps-configuration-folder config))) #~(begin (use-modules (guix build utils)) (mkdir-p #$state-dir) (chmod #$state-dir #o777)))) (define-public core-dumps-service-type (service-type (name 'core-dumps) (description "A service to dump core dumps into a global folder.") (default-value (core-dumps-configuration)) (extensions (list (service-extension activation-service-type %core-dumps-activation) (service-extension sysctl-service-type core-dumps-sysctl)))))