Changeset 2474

Timestamp:

06/17/21 12:42:38 (3 years ago)

Author:

nanardon

Message:

Add shadowLastChange computation

File:

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

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

@@ -1324 +1324 @@
             shadowMin => { },
             shadowMax => { },
-            shadowLastChange => { },
+            shadowLastChange => {
+                ro => 1,
+                auto => 1,
+            },
+            _shadowLastChange => {
+                ro => 1,
+                hide => 1,
+                managed => 1,
+                get => sub {
+                    my ($self) = @_;
+                    my $obj = $self->object;
+                    my $ts = $obj->get_field('passwordLastSet');
+                    $ts or return;
+
+                    my $Dt = DateTime::Format::Pg->parse_datetime( $ts );
+                    return int( $Dt->epoch / 86400);
+                }
+            },
             shadowInactive => { },
             shadowFlag => { },