Changeset 298

Timestamp:

07/28/09 02:38:56 (15 years ago)

Author:

nanardon

Message:

• improve error message

File:

• LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Objects.pm (modified) (3 diffs)

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

@@ -4 +4 @@
 use strict;
 use warnings;
+use LATMOS::Accounts::Log;
 
 our $VERSION = (q$Rev$ =~ /^Rev: (\d+) /)[0];
@@ -241 +242 @@
         my @salt_char = (('a' .. 'z'), ('A' .. 'Z'), (0 .. 9), '/', '.');
         my $salt = join('', map { $salt_char[rand(scalar(@salt_char))] } (1 .. 8));
-        $self->set_fields($field, crypt($clear_pass, '$1$' . $salt));
+        return $self->set_fields($field, crypt($clear_pass, '$1$' . $salt));
+    } else {
+        $self->log(LA_WARN,
+            "Cannot set password: userPassword attributes is unsupported");
     }
 }
@@ -328 +332 @@
         1;
     $max ||= 65635;
+    $base->log(LA_DEBUG, "Trying to find %s in range %d - %d",
+        $field, $min, $max);
     my %existsid;
     foreach ($base->list_objects($class->type)) {