Changeset 2475 for trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Ldap/Group.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/Ldap/Group.pm (modified) (4 diffs)

trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Ldap/Group.pm

@@ -40 +40 @@
 sub _key_attr { 'cn' } 
 
-sub _my_ldap_classes { qw(top posixGroup) }
+sub _my_ldap_classes { qw(top posixGroup sambaGroupMapping) }
 
 sub _get_attr_schema {
@@ -56 +56 @@
         dn => { ro => 1 },
         objectClass => { ro => 1 },
+        sambaSID => { },
     }
+    );
+}
+
+sub _update_class {
+    my ($self) = @_;
+
+    $self->SUPER::_update_class(
+        sambaSID => $self->base->sambaSID(
+            _computeSSID($self->_get_attributes('gidNumber'))
+        )
     );
 }
@@ -64 +75 @@
 
     my $entry = Net::LDAP::Entry->new();
+
+    $data{sambaSID} ||= $base->sambaSID(_computeSSID($data{gidNumber}));
 
     $entry->dn(join(',',
@@ -87 +100 @@
     my $res = $base->get_object('group', $id)->set_fields(%delayed);
     return defined($res) ? 1 : 0;
+}
+
+sub _computeSSID {
+    my ($value) = @_;
+    $value * 2 + 1000
 }