Changeset 2475 for trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql/User.pm

Timestamp:

06/17/21 13:33:50 (3 years ago)

Author:

nanardon

Message:

start samba support: manage sambaSID

File:

• trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql/User.pm (modified) (3 diffs)

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

@@ -1012 +1012 @@
                 }
             },
+
+            # Shadow:
+
             shadowExpire => {
                 ro => 1,
@@ -1041 +1044 @@
                 }
             },
+            shadowWarning => { },
+            shadowMin => { },
+            shadowMax => { },
+            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 => { },
+
+            # Samba:
+
+            sambaSID => {
+                ro => 1,
+                auto => 1,
+            },
+            _sambaSID => {
+                ro => 1,
+                hide => 1,
+                managed => 1,
+                get => sub {
+                    my ($self) = @_;
+                    my $obj = $self->object;
+                    my $uid = $obj->get_field('uidnumber');
+                    return $obj->base->sambaSID( $uid * 2 + 1000 );
+                }
+            },
+
             directReports => {
                 auto => 1,
@@ -1321 +1366 @@
                 label => l('Name'),
             },
-            shadowWarning => { },
-            shadowMin => { },
-            shadowMax => { },
-            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 => { },
             otherTelephone => { },
             nickname => {