From d6858e638d1fa4a3f1bd4cf50aa4d4ff608cf00e Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Aur=C3=A9lien=20Lefebvre?= <alefebvre@mandriva.com>
Date: Thu, 3 Sep 2009 14:43:33 +0000
Subject: - authentication:   o reduced password weakness check level

---
 perl-install/NEWS              | 3 ++-
 perl-install/authentication.pm | 8 ++++----
 perl-install/install/NEWS      | 2 ++
 3 files changed, 8 insertions(+), 5 deletions(-)

diff --git a/perl-install/NEWS b/perl-install/NEWS
index 2db7e86bf..246a0cc25 100644
--- a/perl-install/NEWS
+++ b/perl-install/NEWS
@@ -1,4 +1,5 @@
-
+- authentication:
+  o reduced password weakness check level
 - draksound:
   o Fix soundprofile alternatives setting by using a more appropriate subroutine
 
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;
  }
diff --git a/perl-install/install/NEWS b/perl-install/install/NEWS
index ff4116fa6..1f52e1c7a 100644
--- a/perl-install/install/NEWS
+++ b/perl-install/install/NEWS
@@ -1,3 +1,5 @@
+- authentication:
+  o reduced password weakness check level
 - allow minimal install without suggests (#45665)
 - install the right kernel-XXX-devel-latest flavor instead of
   hardcoding 'kernel-desktop-devel-latest'
-- 
cgit v1.2.1