Changeset 2071 for trunk/LATMOS-Accounts/lib

Timestamp:

08/25/17 08:21:05 (7 years ago)

Author:

nanardon

Message:

Allow to use a specific cracklib dictionnary

Location:

trunk/LATMOS-Accounts/lib/LATMOS/Accounts

Files:

• Bases/Objects.pm (modified) (1 diff)
• Utils.pm (modified) (3 diffs)

trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Objects.pm

@@ -561 +561 @@
 sub check_password {
     my ( $self, $password ) = @_;
-    my $dictionary;
+    my $dictionary = $self->base->config('cracklib_dictionnary')
 
     if ($password !~ /^[[:ascii:]]*$/) {

trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Utils.pm

@@ -324 +324 @@
 Use a set of syllables instead letter
 
+=item checkpassword
+
+A sub reference to check if generated password is valid
+
 =back
 
@@ -330 +334 @@
 sub genpassword {
     my (%options) = @_;
+
+    $options{checkpassword} ||= sub {
+        my ($cpass) = @_;
+        return fascist_check($pass) eq 'ok';
+    };
+
     my @non_alpha = (qw$; : / ! ( ) [ ] { } + = @ - " ' % * & . ? < >$, ',', '$');
     my @letters = ('a' .. 'z', 'A' .. 'Z', 0 .. 9);
@@ -366 +376 @@
 
         my $pass = join('', sort { rand() <=> rand() } @chars);
-        if (length($pass) >= 6 && fascist_check($pass) eq 'ok') {
+        if (length($pass) >= 6 && $options{checkpassword}->($pass)) {
             return $pass;
         }