Changeset 178 for LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Objects.pm

Timestamp:

05/24/09 17:55:03 (15 years ago)

Author:

nanardon

Message:

• fix cryptmd5 salt
• w/o options sync_access use defaults values

File:

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

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

@@ -241 +241 @@
         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, $salt));
+        $self->set_fields($field, crypt($clear_pass, '$1$' . $salt));
     }
 }