summaryrefslogtreecommitdiffstats
path: root/perl-install/any.pm
diff options
context:
space:
mode:
authorAurélien Lefebvre <alefebvre@mandriva.com>2009-08-17 12:44:21 +0000
committerAurélien Lefebvre <alefebvre@mandriva.com>2009-08-17 12:44:21 +0000
commit37840927cc9d8066c59cce7de5c3880c5d335310 (patch)
tree19228fc3f18abec278d85a5fbe067da6f3ada1f3 /perl-install/any.pm
parent112ac7048e587548f1279b2823e5f8960a30f129 (diff)
downloaddrakx-37840927cc9d8066c59cce7de5c3880c5d335310.tar
drakx-37840927cc9d8066c59cce7de5c3880c5d335310.tar.gz
drakx-37840927cc9d8066c59cce7de5c3880c5d335310.tar.bz2
drakx-37840927cc9d8066c59cce7de5c3880c5d335310.tar.xz
drakx-37840927cc9d8066c59cce7de5c3880c5d335310.zip
- added password weakness display feature in interactive
- adduserdrake o now use password weakness display
Diffstat (limited to 'perl-install/any.pm')
-rw-r--r--perl-install/any.pm2
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/any.pm b/perl-install/any.pm
index 472db55c7..595c2af9e 100644
--- a/perl-install/any.pm
+++ b/perl-install/any.pm
@@ -822,7 +822,7 @@ sub ask_user_and_root {
{ label => N("Login name"), val => \$u->{name}, list => \@suggested_names, alignment => 'right',
not_edit => 0, validate => $validate_name },
- { label => N("Password"),val => \$u->{password}, hidden => 1, alignment => 'right',
+ { label => N("Password"),val => \$u->{password}, hidden => 1, alignment => 'right', weakness_check => 1,
validate => sub { authentication::check_given_password($in, $u, $security > 3 ? 6 : 0) } },
{ label => N("Password (again)"), val => \$u->{password2}, hidden => 1, alignment => 'right' },
{ label => N("Shell"), val => \$u->{shell}, list => [ shells() ], advanced => 1 },