From 91a7c4998fe4f5a2a63f2ddb4bfeeef81c68b6d7 Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Wed, 24 Apr 2019 21:54:28 +0200 Subject: installer: Ask for the root account password. Fixes . * gnu/installer/newt/user.scm (run-root-password-page): New procedure. * gnu/installer/user.scm (users->configuration): Filter out the "root" account. * gnu/installer/final.scm (create-user-database): Set 'uid' field in 'user-account' form. --- gnu/installer/final.scm | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'gnu/installer/final.scm') diff --git a/gnu/installer/final.scm b/gnu/installer/final.scm index 4cf34d04573..bf68a5aa2c5 100644 --- a/gnu/installer/final.scm +++ b/gnu/installer/final.scm @@ -67,8 +67,12 @@ USERS." (define users* (map (lambda (user) + (define root? + (string=? "root" (user-name user))) + (sys:user-account (name (user-name user)) (group "users") + (uid (if root? 0 #f)) (home-directory (user-home-directory user)) (password (crypt (user-password user) -- cgit v1.2.3