diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2019-04-24 17:59:06 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2019-04-25 00:45:34 +0200 |
| commit | 898677ed17672130d20434cd88575d620c97c553 (patch) | |
| tree | 6f554d1ed2073dbad96911d7f4839187f37e9e9c /gnu/installer/user.scm | |
| parent | 3cc033f2a86d44da44f63ee45602dca0cb0932b2 (diff) | |
| download | guix-898677ed17672130d20434cd88575d620c97c553.tar guix-898677ed17672130d20434cd88575d620c97c553.tar.gz | |
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.scm | 2 |
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) |