| 1 |
slords |
1.1 |
diff -up e-smith-lib-2.0.0/root/usr/lib/perl5/site_perl/esmith/util.pm.lib64 e-smith-lib-2.0.0/root/usr/lib/perl5/site_perl/esmith/util.pm |
| 2 |
|
|
--- e-smith-lib-2.0.0/root/usr/lib/perl5/site_perl/esmith/util.pm.lib64 2008-10-07 11:36:09.000000000 -0600 |
| 3 |
|
|
+++ e-smith-lib-2.0.0/root/usr/lib/perl5/site_perl/esmith/util.pm 2010-02-04 11:44:59.000000000 -0700 |
| 4 |
|
|
@@ -576,7 +576,11 @@ sub validatePassword($$) |
| 5 |
|
|
$reason = 'it does not contain special characters' if (not $password =~ /\W|_/); |
| 6 |
|
|
return $reason if ($reason ne 'ok' && $strength eq 'strong'); |
| 7 |
|
|
|
| 8 |
|
|
- $reason = fascist_check($password, '/usr/lib/cracklib_dict'); |
| 9 |
|
|
+ if ( -f '/usr/lib64/cracklib_dict.pwd' ) { |
| 10 |
|
|
+ $reason = fascist_check($password, '/usr/lib64/cracklib_dict'); |
| 11 |
|
|
+ } else { |
| 12 |
|
|
+ $reason = fascist_check($password, '/usr/lib/cracklib_dict'); |
| 13 |
|
|
+ } |
| 14 |
|
|
$reason ||= 'the password check failed'; |
| 15 |
|
|
|
| 16 |
|
|
return 'ok' if (lc($reason) eq 'ok'); |
Parent Directory
| 
Revision Log
| 
Revision Graph
