Changeset 2002 for trunk/LATMOS-Accounts-Web/lib/LATMOS/Accounts/Web/Model/Accounts.pm

Timestamp:

04/27/17 21:38:04 (7 years ago)

Author:

nanardon

Message:

Move code to model to make it reusable

File:

• trunk/LATMOS-Accounts-Web/lib/LATMOS/Accounts/Web/Model/Accounts.pm (modified) (1 diff)

trunk/LATMOS-Accounts-Web/lib/LATMOS/Accounts/Web/Model/Accounts.pm

@@ -174 +174 @@
 }
 
+sub ChangeUserPassword {
+    my ($self, $username, $password) = @_;
+
+    my $base = $self->db;
+    my $user = $base->get_object('user', $username) or do {
+        return "Cannot get user object";
+    };
+
+    my $sync = $self->sync_access;
+
+    # This is widelly burk:
+    # synchaccess do not manage connect() at time, opening a
+    # backdoor then :\
+    foreach ($sync->bases) { $_->{_user} = undef }
+
+    my $suser = $sync->get_object_ifexists('user', $username);
+    my $msg = $user->check_password($password);
+    if ($msg ne 'ok') {
+        return $msg . ', mot de passe inchangé';
+    } elsif ($suser && $suser->_set_password($password)) {
+        $sync->commit;
+        return;
+    } else {
+        return 'Erreur lors du changement de mot de passe';
+    }
+}
+
 =head1 AUTHOR