/[smeserver]/rpms/e-smith-lib/sme8/e-smith-lib-1.18.0-passlength.patch
ViewVC logotype

Contents of /rpms/e-smith-lib/sme8/e-smith-lib-1.18.0-passlength.patch

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph


Revision 1.1 - (show annotations) (download)
Tue Jun 12 19:03:19 2007 UTC (17 years, 4 months ago) by slords
Branch: MAIN
CVS Tags: e-smith-lib-1_18_0-20_el5_sme, e-smith-lib-1_18_0-24_el5_sme, e-smith-lib-1_18_0-23_el5_sme, e-smith-lib-1_18_0-26_el5_sme, e-smith-lib-1_18_0-25_el5_sme, e-smith-lib-1_18_0-27_el5_sme, e-smith-lib-1_18_0-18_el5_sme, e-smith-lib-1_18_0-16_el5_sme, e-smith-lib-1_18_0-17_el5_sme, e-smith-lib-1_18_0-22_el5_sme, e-smith-lib-1_18_0-21_el5_sme, e-smith-lib-1_18_0-28_el5_sme, e-smith-lib-1_18_0-19_el5_sme
Branch point for: e-smith-lib-1_18_0-tree
Import on branch sme8 of package e-smith-lib-1.18.0-16.el5.sme.src.rpm

1 diff -Nur -x '*.orig' -x '*.rej' e-smith-lib-1.18.0/root/usr/lib/perl5/site_perl/esmith/util.pm mezzanine_patched_e-smith-lib-1.18.0/root/usr/lib/perl5/site_perl/esmith/util.pm
2 --- e-smith-lib-1.18.0/root/usr/lib/perl5/site_perl/esmith/util.pm 2007-06-01 13:04:14.000000000 -0600
3 +++ mezzanine_patched_e-smith-lib-1.18.0/root/usr/lib/perl5/site_perl/esmith/util.pm 2007-06-01 13:03:57.000000000 -0600
4 @@ -565,17 +565,16 @@
5 use Crypt::Cracklib;
6
7 $strength ||= 'normal';
8 - return 'ok' if ($strength eq 'none');
9
10 my $reason = 'ok';
11 + $reason = 'it is too short' unless (length($password) > 6);
12 + return $reason if ($reason ne 'ok' || $strength eq 'none');
13 +
14 $reason = 'it does not contain numbers' if (not $password =~ /\d/);
15 $reason = 'it does not contain uppercase characters' if (not $password =~ /[A-Z]/);
16 $reason = 'it does not contain lowercase characters' if (not $password =~ /[a-z]/);
17 $reason = 'it does not contain special characters' if (not $password =~ /\W|_/);
18 - $reason = 'it is too short' if (not length($password) > 6);
19 -
20 - return $reason unless ($reason eq 'ok');
21 - return 'ok' unless ($strength eq "strong");
22 + return $reason unless ($reason eq 'ok' || $strength eq 'strong');
23
24 $reason = fascist_check($password, '/usr/lib/cracklib_dict');
25 $reason ||= 'the password check failed';

admin@koozali.org
ViewVC Help
Powered by ViewVC 1.2.1 RSS 2.0 feed