Changeset 2268

Timestamp:

06/20/19 09:15:24 (5 years ago)

Author:

nanardon

Message:

Add lastlogin attribute

Location:

trunk

Files:

• LATMOS-Accounts-Web/lib/LATMOS/Accounts/Web/Model/AttrForms.pm (modified) (1 diff)
• LATMOS-Accounts/Changes (modified) (1 diff)
• LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql.pm (modified) (1 diff)
• LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql/User.pm (modified) (1 diff)
• LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql/upgrade.pm (modified) (1 diff)
• LATMOS-Accounts/man/man8/latmos-accounts-base-sql.pod (modified) (1 diff)

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

@@ -31 +31 @@
             expire
             endcircuit
+            lastlogin
             locked
             sshPublicKey

trunk/LATMOS-Accounts/Changes

@@ -5 +5 @@
     - Add task module Setattribute: set attribute for objects matching the
       given filter
+    - Add lastlogin Attribute: allow to store last login date
 
 5.2.23

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

@@ -18 +18 @@
 our $VERSION = (q$Rev$ =~ /^Rev: (\d+) /)[0];
 
-sub SCHEMA_VERSION { 34 };
+sub SCHEMA_VERSION { 35 };
 
 =head1 NAME

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

@@ -231 +231 @@
                 monitored => 1,
                 label => l('End of entrance'),
+            },
+            lastlogin    => {
+                inline => 1,
+                formtype => 'DATETIME',
+                monitored => 1,
+                label => l('Last login'),
+                set => sub {
+                    my ($self, $values) = @_;
+                    if ($values) {
+                        my $sth = $base->db->prepare_cached(
+                            q{ update "user" set lastlogin = $1 where (lastlogin < $1 or lastlogin IS NULL) and name = $2 }
+                        );
+                        return $sth->execute($values, $self->object->id);
+                    } else {
+                        my $sth = $base->db->prepare_cached(
+                            q{ update "user" set lastlogin = NULL where name = $2 }
+                        );
+                        return $sth->execute($self->object->id);
+                    }
+                },
             },
             _endEmployment => {

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

@@ -1261 +1261 @@
             recompute => 1,
         },
+        {
+            ver => 35,
+            sql => [
+                q{
+                ALTER TABLE "user" ADD COLUMN lastlogin timestamp with time zone
+                }
+            ],
+        },
     );
 

trunk/LATMOS-Accounts/man/man8/latmos-accounts-base-sql.pod

@@ -106 +106 @@
 C<endcircuit> attribute become informationnal only.
 
+=head2 Last Login attribute
+
+The C<lastlogin> attribute is designed to store the last datetime user login on
+any system. This attribute can only be set to a highter value or be unset.
+
+This allow to set this attribute from various source and to keep only the latest
+value.
+
 =head2 User Employment