From 2e6aa8cc761b996b9b0ff49b57adb4e1fcb526f3 Mon Sep 17 00:00:00 2001 From: Janneke Nieuwenhuizen Date: Tue, 12 May 2026 16:04:24 +0200 Subject: system: hurd-boot: Create initial random seed. * gnu/build/hurd-boot.scm (set-hurd-device-translators): Create some content in /var/lib/random-seed. Change-Id: Ib8ed5848cc929a367d19ed0083101c01967acb42 --- gnu/build/hurd-boot.scm | 13 ++++++++++++- 1 file changed, 12 insertions(+), 1 deletion(-) (limited to 'gnu/build') diff --git a/gnu/build/hurd-boot.scm b/gnu/build/hurd-boot.scm index 5d1083a925a..d6edb7e3f3f 100644 --- a/gnu/build/hurd-boot.scm +++ b/gnu/build/hurd-boot.scm @@ -183,6 +183,17 @@ set." (unless (file-exists? dir) (mkdir-p dir)))) + (define random-seed "/var/lib/random-seed") + + ;; Create seed file to avoid + ;; /gnu/store/...-hurd-x.y.z/hurd/random: Warning: Failed to read random seed file /var/lib/random-seed: No such file or directory + (let ((file (scope random-seed))) + (mkdir-p (dirname file)) + (call-with-output-file file + (lambda (port) + (display (iota 1000) port) + (chmod port #o600)))) + (define servers '(("servers/bus/pci" ("/hurd/pci-arbiter")) ("servers/crash-dump-core" ("/hurd/crash" "--dump-core")) @@ -198,7 +209,7 @@ set." (define devices `(("dev/full" ("/hurd/null" "--full") #o666) ("dev/null" ("/hurd/null") #o666) - ("dev/random" ("/hurd/random" "--seed-file" "/var/lib/random-seed") + ("dev/random" ("/hurd/random" "--seed-file" ,random-seed) #o644) ("dev/zero" ("/hurd/storeio" "--store-type=zero") #o666) -- cgit v1.2.3