Changeset 55 for LATMOS-Accounts/lib/LATMOS

Timestamp:

04/26/09 17:46:06 (15 years ago)

Author:

nanardon

Message:

• add set_password() - specific because crypt management

File:

• LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Objects.pm (modified) (1 diff)

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

@@ -189 +189 @@
 }
 
+=head2 set_password($password)
+
+Set the password into the database, $password is the clear version
+of the password.
+
+This function store it into userPassword canonical field if supported
+using crypt unix and md5 algorythm (crypt md5), the salt is 8 random
+caracters.
+
+The base driver should override it if another encryption is need.
+
+=cut
+
+sub set_password {
+    my ($self, $clear_pass) = @_;
+    if (my $field = $self->base->get_field_name($self->type, 'userPassword')) {
+        my @salt_char = (('a' .. 'z'), ('A' .. 'Z'), (0 .. 9), '/', '.');
+        my $salt = join('', map { $salt_char[rand(scalar(@salt_char))] } (1 .. 8));
+        $self->set_field($field, crypt($clear_pass, $salt));
+    }
+}
+
 1;