Changeset 1935 for trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Objects.pm

Timestamp:

01/17/17 17:38:36 (7 years ago)

Author:

nanardon

Message:

Add a way to inject UNIX password into base supporting it

File:

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

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

@@ -551 +551 @@
 
     return fascist_check($password, $dictionary);
+}
+
+=head2 InjectCryptPasswd($cryptpasswd)
+
+Inject a password encrypted using standard UNIX method.
+
+=cut
+
+sub InjectCryptPasswd {
+    my ($self, $cryptpasswd) = @_;
+
+    if ($self->can('_InjectCryptPasswd')) {
+        return $self->_InjectCryptPasswd($cryptpasswd);
+    } else {
+        $self->base->log('Injecting unix crypt password is not supported');
+        return;
+    }
 }