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

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

@@ -94 +94 @@
         $self->{_db}->do(q{set DATESTYLE to 'DMY'});
         $self->log(LA_DEBUG, 'New connection to DB');
+
+        $self->get_global_value('sambaSID') or do {
+            $self->_setSambaSID;
+            $self->commit;
+        };
 
         return $self->{_db};
@@ -776 +781 @@
 }
 
+=head2 sambaSID($id)
+
+Return the base samba SID set in the config or a default one if none is set.
+
+If C<$id> is given return the full SID suitable for an object.
+
+=cut
+
+sub sambaSID {
+    my ($self, $id) = @_;
+
+    my $ssid = $self->get_global_value('sambaSID');
+    if (defined($id)) {
+        $ssid .= '-' . $id;
+    }
+    return $ssid;
+}
+
+sub _setSambaSID {
+    my ( $self ) = @_;
+
+    my $sid = sprintf(
+        'S-1-5-21-%d-%d',
+        int(rand 1000000000),
+        int(rand 1000000000),
+    );
+
+    $self->set_global_value( 'sambaSID', $sid );
+    return $sid;
+}
+
+
+
 =head2 find_expired_users ($expire)