[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
bug#24366: [PATCH] gnu: Use a directory owned by ntpd user for drift fil
From: |
John Darrington |
Subject: |
bug#24366: [PATCH] gnu: Use a directory owned by ntpd user for drift file. |
Date: |
Tue, 6 Sep 2016 21:05:21 +0200 |
I think this fixes the problem. What do you think?
* gnu/services/networking.scm (ntp-shepherd-service): Create new
directory at startup.
---
gnu/services/networking.scm | 7 ++++++-
1 file changed, 6 insertions(+), 1 deletion(-)
diff --git a/gnu/services/networking.scm b/gnu/services/networking.scm
index 71f49a0..714dc80 100644
--- a/gnu/services/networking.scm
+++ b/gnu/services/networking.scm
@@ -271,8 +271,11 @@ Protocol (DHCP) client, on all the non-loopback network
interfaces."
(($ <ntp-configuration> ntp servers)
(let ()
;; TODO: Add authentication support.
+ (define %user
+ (getpw "ntpd"))
+
(define config
- (string-append "driftfile /var/run/ntp.drift\n"
+ (string-append "driftfile /var/run/ntpd/ntp.drift\n"
(string-join (map (cut string-append "server " <>)
servers)
"\n")
@@ -294,6 +297,8 @@ restrict -6 ::1\n"))
(documentation "Run the Network Time Protocol (NTP) daemon.")
(requirement '(user-processes networking))
(start #~(make-forkexec-constructor
+ (mkdir-p "/var/run/ntpd")
+ (chown "/var/run/nptd" (passwd:uid %user) (passwd:gid
%user))
(list (string-append #$ntp "/bin/ntpd") "-n"
"-c" #$ntpd.conf "-u" "ntpd")))
(stop #~(make-kill-destructor))))))))
--
2.1.4