diff options
author | Aurélien Lefebvre <alefebvre@mandriva.com> | 2009-09-03 14:43:33 +0000 |
---|---|---|
committer | Aurélien Lefebvre <alefebvre@mandriva.com> | 2009-09-03 14:43:33 +0000 |
commit | d6858e638d1fa4a3f1bd4cf50aa4d4ff608cf00e (patch) | |
tree | c9d60db9b168909da6b0259699ea2a0d3e259be4 /perl-install/authentication.pm | |
parent | 5fc81c088b47553a3b7b5169b6b757171075e66f (diff) | |
download | drakx-d6858e638d1fa4a3f1bd4cf50aa4d4ff608cf00e.tar drakx-d6858e638d1fa4a3f1bd4cf50aa4d4ff608cf00e.tar.gz drakx-d6858e638d1fa4a3f1bd4cf50aa4d4ff608cf00e.tar.bz2 drakx-d6858e638d1fa4a3f1bd4cf50aa4d4ff608cf00e.tar.xz drakx-d6858e638d1fa4a3f1bd4cf50aa4d4ff608cf00e.zip |
- authentication:
o reduced password weakness check level
Diffstat (limited to 'perl-install/authentication.pm')
-rw-r--r-- | perl-install/authentication.pm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/perl-install/authentication.pm b/perl-install/authentication.pm index 34cb12e9d..452a0667a 100644 --- a/perl-install/authentication.pm +++ b/perl-install/authentication.pm @@ -991,10 +991,10 @@ sub configure_nss_ldap { $score += 2 if $password =~ /([a-z].*[A-Z])|([A-Z].*[a-z])/; $score += 2 if $password =~ /([a-zA-Z0-9].*[!@#$%^&*?_~])|([!@#$%^&*?_~,].*[a-zA-Z0-9])/; - my $level = $score < 16 ? 1 : - $score > 15 && $score < 25 ? 2 : - $score > 24 && $score < 35 ? 3 : - $score > 34 && $score < 45 ? 4 : 5; + my $level = $score < 11 ? 1 : + $score > 10 && $score < 20 ? 2 : + $score > 19 && $score < 30 ? 3 : + $score > 29 && $score < 40 ? 4 : 5; return $level; } |