From d6858e638d1fa4a3f1bd4cf50aa4d4ff608cf00e Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Aur=C3=A9lien=20Lefebvre?= Date: Thu, 3 Sep 2009 14:43:33 +0000 Subject: - authentication: o reduced password weakness check level --- perl-install/authentication.pm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'perl-install/authentication.pm') 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; } -- cgit v1.2.1