me/guix
Archived
1
0
Fork 0
Code Activity

services: file-database: Set 'PATH' for 'updatedb'.

Browse source 
Previously 'updatedb' would fail to find 'sed', 'rm', etc.

* gnu/services/admin.scm (file-database-mcron-jobs): Set PATH before
invoking 'updatedb'.
This commit is contained in:
Ludovic Courtès 2023-08-22 10:20:11 +02:00
parent 91bef86aa2
commit 6fc754c2d6
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 15 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

21
gnu/services/admin.scm
View file

@ -22,7 +22,7 @@
(define-module (gnu services admin) (define-module (gnu services admin)
#:use-module (gnu packages admin) #:use-module (gnu packages admin)
#:use-module ((gnu packages base) #:use-module ((gnu packages base)
#:select (canonical-package findutils)) #:select (canonical-package findutils coreutils sed))
#:use-module (gnu packages certs) #:use-module (gnu packages certs)
#:use-module (gnu packages package-management) #:use-module (gnu packages package-management)
#:use-module (gnu services) #:use-module (gnu services)
@ -330,11 +330,20 @@ is passed to the @option{--prunepaths} option of
(package schedule excluded-directories) (package schedule excluded-directories)
(let ((updatedb (program-file (let ((updatedb (program-file
"updatedb" "updatedb"
#~(execl #$(file-append package "/bin/updatedb") #~(begin
"updatedb" ;; 'updatedb' is a shell script that expects various
#$(string-append "--prunepaths=" ;; commands in $PATH.
(string-join (setenv "PATH"
excluded-directories)))))) (string-append #$package "/bin:"
#$(canonical-package coreutils)
"/bin:"
#$(canonical-package sed)
"/bin"))
(execl #$(file-append package "/bin/updatedb")
"updatedb"
#$(string-append "--prunepaths="
(string-join
excluded-directories)))))))
(list #~(job #$schedule #$updatedb))))) (list #~(job #$schedule #$updatedb)))))
(define file-database-service-type (define file-database-service-type