From 31ca5064cb31cda239344c06cd609026f38cf74b Mon Sep 17 00:00:00 2001 From: Rutherther Date: Fri, 28 Mar 2025 18:28:41 +0100 Subject: [PATCH] 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. --- modules/ruther/services/system.scm | 38 ++++++++++++++++++++++++++++++ 1 file changed, 38 insertions(+) create mode 100644 modules/ruther/services/system.scm diff --git a/modules/ruther/services/system.scm b/modules/ruther/services/system.scm new file mode 100644 index 0000000..3ff99b6 --- /dev/null +++ b/modules/ruther/services/system.scm @@ -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))))) -- 2.48.1