summaryrefslogtreecommitdiff
path: root/gnu/installer/user.scm
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2019-04-24 17:59:06 +0200
committerLudovic Courtès <ludo@gnu.org>2019-04-25 00:45:34 +0200
commit898677ed17672130d20434cd88575d620c97c553 (patch)
tree6f554d1ed2073dbad96911d7f4839187f37e9e9c /gnu/installer/user.scm
parent3cc033f2a86d44da44f63ee45602dca0cb0932b2 (diff)
installer: Ask for user password and initialize /etc/shadow.
Partly fixes <https://bugs.gnu.org/35399>. * gnu/installer/user.scm (<user>)[password]: New field. * gnu/installer/final.scm (%seed): New variable. (integer->alphanumeric-char, random-string) (create-user-database): New procedures. (install-system): Call 'create-user-database'. * gnu/installer/newt/final.scm (run-install-shell): Add #:users and pass it to 'install-system'. (run-final-page): Pass #:users to 'run-install-shell'. * gnu/installer/newt/user.scm (run-user-add-page): Add password entry. Pass its result as the 'password' field of <user>.
Diffstat (limited to 'gnu/installer/user.scm')
-rw-r--r--gnu/installer/user.scm2
1 files changed, 2 insertions, 0 deletions
diff --git a/gnu/installer/user.scm b/gnu/installer/user.scm
index 1f8d40a011..fe755ad2c6 100644
--- a/gnu/installer/user.scm
+++ b/gnu/installer/user.scm
@@ -24,6 +24,7 @@
user-name
user-group
user-home-directory
+ user-password
users->configuration))
@@ -33,6 +34,7 @@
(name user-name)
(group user-group
(default "users"))
+ (password user-password)
(home-directory user-home-directory))
(define (users->configuration users)