From 921a99c5e31c3402551e79c0678ebed17d26ac5b Mon Sep 17 00:00:00 2001
From: Stefan Kangas <skangas@skangas.se>
Date: Sat, 12 Mar 2011 18:10:01 +0100
Subject: User must verify password once

---
 lib/Fripost/Prompt.pm | 15 +++++++++++++--
 1 file changed, 13 insertions(+), 2 deletions(-)

(limited to 'lib')

diff --git a/lib/Fripost/Prompt.pm b/lib/Fripost/Prompt.pm
index a857cc1..f7db34c 100755
--- a/lib/Fripost/Prompt.pm
+++ b/lib/Fripost/Prompt.pm
@@ -30,9 +30,20 @@ sub fix_username {
 }
 
 sub prompt_password {
-    my $prompt = shift;
+    my ($prompt, $prompt2) = @_;
     $prompt //= "Enter new password (blank for random): ";
-    my $password = prompt $prompt, -e => '*';
+    $prompt2 //= "Enter new password again (blank for random): ";
+
+    my $password;
+    while (not defined $password) {
+        $password = prompt $prompt, -e => '*';
+        my $confirm = prompt $prompt2, -e => '*';
+        unless ($password eq $confirm) {
+            undef $password;
+            say "Passwords do not match";
+        }
+    }
+
     if (!length $password) {
         $password = mkpasswd(
             -length => 10,
-- 
cgit v1.2.3