Changeset 584 for LATMOS-Accounts

Timestamp:

01/12/10 19:05:48 (15 years ago)

Author:

nanardon

Message:

• add function to check password over cracklib

Location:

LATMOS-Accounts

Files:

• Makefile.PL (modified) (1 diff)
• bin/la-passwd (modified) (3 diffs)
• lib/LATMOS/Accounts/Bases/Objects.pm (modified) (3 diffs)

LATMOS-Accounts/Makefile.PL

@@ -20 +20 @@
         'POD::Usage' => undef,
         'Unicode::String' => undef,
+        'Crypt::Cracklib' => undef,
     }, # e.g., Module::Name => 1.1
     ($] >= 5.005 ?     ## Add these new keywords supported since 5.005

LATMOS-Accounts/bin/la-passwd

@@ -16 +16 @@
     la-passwd [options] userid
 
+=head1 OPTIONS
+
+=over 4
+
+=item -t --test
+
+Don't change password but check it validity using CrackLib.
+
+=back
+
 =cut
 
@@ -21 +31 @@
     'c|config=s' => \my $config,
     'b|base=s'   => \my $base,
+    't|test'     => \my $test,
     'help'       => sub { pod2usage(0) },
 ) or pod2usage();
@@ -40 +51 @@
 print "\n";
 
+print $obj->check_password($password) . "\n";
+
+exit(0)  if($test);
+
 if ($obj->set_password($password)) {
     print "Password succefully changed\n";

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

@@ -5 +5 @@
 use warnings;
 use LATMOS::Accounts::Log;
+use Crypt::Cracklib;
 
 our $VERSION = (q$Rev$ =~ /^Rev: (\d+) /)[0];
@@ -307 +308 @@
         return $self->_set_password($clear_pass);
     } else {
-        $self->log(LA_ERROR, "Permission denied for %s to change its password",
+        $self->base->log(LA_ERROR, "Permission denied for %s to change its password",
             $self->id);
         return;
@@ -323 +324 @@
             "Cannot set password: userPassword attributes is unsupported");
     }
+}
+
+sub check_password {
+    my ( $self, $password ) = @_;
+    my $dictionary;
+
+    return fascist_check($password, $dictionary);
 }