GNU bug report logs -
#55080
[PATCH shepherd] service: Gracefully handle non-existing log directories.
Previous Next
Full log
View this message in rfc822 format
[Message part 1 (text/plain, inline)]
Your message dated Mon, 29 Aug 2022 17:18:58 +0200
with message-id <87tu5v5b8d.fsf_-_ <at> gnu.org>
and subject line Re: bug#55080: [PATCH shepherd] service: Gracefully handle non-existing log directories.
has caused the debbugs.gnu.org bug report #55080,
regarding [PATCH shepherd] service: Gracefully handle non-existing log directories.
to be marked as done.
(If you believe you have received this mail in error, please contact
help-debbugs <at> gnu.org.)
--
55080: https://debbugs.gnu.org/cgi/bugreport.cgi?bug=55080
GNU Bug Tracking System
Contact help-debbugs <at> gnu.org with problems
[Message part 2 (message/rfc822, inline)]
* gnu/packages/services.scm (%service-file-logger): New variable,
implementing...
(service-file-logger): ... the old behaviour of this variable. Catch system
errors from %service-file-logger and handle them.
---
modules/shepherd/service.scm | 19 ++++++++++++++++---
1 file changed, 16 insertions(+), 3 deletions(-)
diff --git a/modules/shepherd/service.scm b/modules/shepherd/service.scm
index 013347b..567a08b 100644
--- a/modules/shepherd/service.scm
+++ b/modules/shepherd/service.scm
@@ -873,9 +873,9 @@ daemon writing FILE is running in a separate PID namespace."
(try-again)
(apply throw args)))))))
-(define (service-file-logger file input)
- "Return a thunk meant to run as a fiber that reads from INPUT and logs it to
-FILE."
+(define (%service-file-logger file input)
+ "Like 'service-file-logger', but doesn't handle the case in which FILE does
+not exist."
(let* ((fd (open-fdes file (logior O_CREAT O_WRONLY O_APPEND) #o640))
(output (fdopen fd "al")))
(set-port-encoding! output "UTF-8")
@@ -894,6 +894,19 @@ FILE."
(format output "~a~a~%" prefix line)
(loop))))))))))
+(define (service-file-logger file input)
+ "Return a thunk meant to run as a fiber that reads from INPUT and logs it to
+FILE."
+ (catch 'system-error
+ (lambda ()
+ (%service-file-logger file input))
+ (lambda args
+ (if (= ENOENT (system-error-errno args))
+ (begin
+ (mkdir-p (dirname file))
+ (%service-file-logger file input))
+ (apply throw args)))))
+
(define (service-builtin-logger command input)
"Return a thunk meant to run as a fiber that reads from INPUT and logs to
'log-output-port'."
--
2.35.1
[Message part 3 (message/rfc822, inline)]
Hi Liliana,
Liliana Marie Prikler <liliana.prikler <at> gmail.com> skribis:
> Am Sonntag, dem 01.05.2022 um 15:32 +0200 schrieb Ludovic Courtès:
>> >
>> > > Did you encounter this issue while working on services?
>> > >
>> > > Am I right that the Shepherd 0.8 had the same problem?
>> > It might be, I don't know. I've encountered this for non-existing
>> > log directory, so a reproducer would be setting #:log-file to
>> > $test-tmp-directory/does-not-exist/log and check for each service.
>>
>> Usually /var/log and similar directories are created not by shepherd
>> but by Guix System, the distro being used, or whatever. That’s why I
>> wonder if it’s shepherd’s job to do that.
> Hmm, it might not be. Still, I wouldn't like shepherd to fail in such
> a weird manner if the log file can't be created.
I reread this thread and I concur. Patch finally pushed as
b0d3f625543bcb32e94167c27cba153f9fc03acd.
Thanks,
Ludo’.
This bug report was last modified 2 years and 267 days ago.
Previous Next
GNU bug tracking system
Copyright (C) 1999 Darren O. Benham,
1997,2003 nCipher Corporation Ltd,
1994-97 Ian Jackson.