me/guix
Archived
1
0
Fork 0
Code Activity

installer: partition: Add encryption password confirmation.

Browse source 
* gnu/installer/newt/partition.scm (prompt-luks-passwords): Add password
confirmation page.
This commit is contained in:
Mathieu Othacehe 2019-01-12 18:45:58 +01:00 • committed by Ludovic Courtès
parent cb614af011
commit f40728f9d6
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 19 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

23
gnu/installer/newt/partition.scm
View file

@ -149,11 +149,26 @@ USER-PARTITIONS list. Return this list with password fields filled-in."
(run-input-page
(format #f (G_ "Please enter the password for the \
encryption of partition ~a (label: ~a).") file-name crypt-label)
(G_ "Password required")))))
(G_ "Password required"))))
(password-confirm-page
(lambda ()
(run-input-page
(format #f (G_ "Please confirm the password for the \
encryption of partition ~a (label: ~a).") file-name crypt-label)
(G_ "Password confirmation required")))))
(if crypt-label
(user-partition
(inherit user-part)
(crypt-password (password-page)))
(let loop ()
(let ((password (password-page))
(confirmation (password-confirm-page)))
(if (string=? password confirmation)
(user-partition
(inherit user-part)
(crypt-password password))
(begin
(run-error-page
(G_ "Password mismatch, please try again.")
(G_ "Password error"))
(loop)))))
user-part)))
user-partitions))