Changeset 1641 for trunk

Timestamp:

01/19/16 11:14:30 (8 years ago)

Author:

nanardon

Message:

Add web call for password reset

Location:

trunk

Files:

• LATMOS-Accounts-Web/MANIFEST (modified) (2 diffs)
• LATMOS-Accounts-Web/lib/LATMOS/Accounts/Web/Controller/Remote/AskPwReset.pm (added)
• LATMOS-Accounts-Web/lib/LATMOS/Accounts/Web/Controller/Remote/PwReset.pm (added)
• LATMOS-Accounts-Web/t/controller_Remote-AskPwReset.t (added)
• LATMOS-Accounts-Web/t/controller_Remote-PwReset.t (added)
• LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql/User.pm (modified) (2 diffs)

trunk/LATMOS-Accounts-Web/MANIFEST

@@ -34 +34 @@
 lib/LATMOS/Accounts/Web/Controller/NetZones.pm
 lib/LATMOS/Accounts/Web/Controller/Remote.pm
+lib/LATMOS/Accounts/Web/Controller/Remote/AskPwReset.pm
 lib/LATMOS/Accounts/Web/Controller/Remote/Listing.pm
 lib/LATMOS/Accounts/Web/Controller/Remote/Obj.pm
+lib/LATMOS/Accounts/Web/Controller/Remote/PwReset.pm
 lib/LATMOS/Accounts/Web/Controller/Remote/Search.pm
 lib/LATMOS/Accounts/Web/Controller/Request.pm
@@ -294 +296 @@
 t/controller_Logout.t
 t/controller_NetHost.t
+t/controller_Remote-AskPwReset.t
 t/controller_Remote-Listing.t
 t/controller_Remote-Obj.t
+t/controller_Remote-PwReset.t
 t/controller_Remote-Search.t
 t/controller_Remote.t

trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql/User.pm

@@ -1561 +1561 @@
             $self->id,
         );
+        return 1;
+    } else {
+        return;
     }
+
 }
 
@@ -1587 +1591 @@
 }
 
+=head2 DeletePasswordId($id) 
+
+Delete password reset C<$id> and all expired request
+
+=cut
+
+sub DeletePasswordId {
+    my ($self, $id) = @_;
+
+    my $sth = $self->base->db->prepare_cached(q{
+        DELETE FROM passwordreset WHERE
+        "user" = ? AND (id = ? or "create" < now() - '1 days'::interval)
+    });
+
+    $sth->execute($self->id, $id);
+}
+
 1;