civodul pushed a commit to branch devel
in repository shepherd.

commit 103992e7096de7ffe456c6f14f6f74f864c69122
Author: Ludovic Courtès <l...@gnu.org>
AuthorDate: Sun Sep 8 22:41:38 2024 +0200

    shepherd: Log package name/version and host type upfront.
    
    * modules/shepherd.scm (main): Log.
---
 modules/shepherd.scm | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/modules/shepherd.scm b/modules/shepherd.scm
index 7e8c68c..5cad6d3 100644
--- a/modules/shepherd.scm
+++ b/modules/shepherd.scm
@@ -478,6 +478,11 @@ fork in the child process."
       (parameterize ((current-output-port (%current-service-output-port)))
         (set-port-encoding! (log-output-port) "UTF-8")
 
+        ;; Log provenance info.
+        (format #t "~a ~a (Guile ~a, ~a)~%"
+                package-name Version
+                (version) %host-type)
+
         (when (= 1 (getpid))
           ;; When running as PID 1, disable hard reboots upon ctrl-alt-del.
           ;; Instead, the kernel will send us SIGINT so that we can gracefully

Reply via email to