From ac927fbcfd6e626089604042b6b77b5deda70dab Mon Sep 17 00:00:00 2001 From: Dominik Csapak Date: Tue, 12 Jun 2018 12:33:47 +0200 Subject: [PATCH] add a generalized 'read and confirm password' sub to use everywhere we read two passwords and compare them Signed-off-by: Dominik Csapak --- src/PVE/PTY.pm | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/src/PVE/PTY.pm b/src/PVE/PTY.pm index 23d76c0..e433c4e 100644 --- a/src/PVE/PTY.pm +++ b/src/PVE/PTY.pm @@ -228,6 +228,13 @@ sub read_password($;$$) { return $password; } +sub get_confirmed_password { + my $pw1 = read_password('Enter new password: '); + my $pw2 = read_password('Retype new password: '); + die "passwords do not match\n" if $pw1 ne $pw2; + return $pw1; +} + # Class functions sub new { -- 2.39.2