aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rwxr-xr-xlib/Fripost/Prompt.pm15
-rw-r--r--templ/new_user_mail.tt2
2 files changed, 14 insertions, 3 deletions
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,
diff --git a/templ/new_user_mail.tt b/templ/new_user_mail.tt
index 0a1319b..ba72c57 100644
--- a/templ/new_user_mail.tt
+++ b/templ/new_user_mail.tt
@@ -10,7 +10,7 @@ Du kan bli medlem genom att skicka ett mail till
Frågor gällande specifikt ditt konto kan du ta direkt med administratörerna.
- admin@lists.fripost.org
+ admin@fripost.org
Vi försöker bygga upp medlemswikin till att bli den bästa resursen för intern
information kring föreningen. Du får gärna hjälpa till!