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

Timestamp:

01/17/19 18:27:13 (5 years ago)

Author:

nanardon

Message:

Always create internal at db load

File:

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

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

@@ -16 +16 @@
 use MIME::Base64;
 
-our $VERSION = (q$Rev$ =~ /^Rev: (\d+) /)[0];
+our $VERSION = (q$Rev: 2149 $ =~ /^Rev: (\d+) /)[0];
 
 sub SCHEMA_VERSION { 28 };
@@ -155 +155 @@
         # return;
     }
+    $self->_CreateInternalObjects;
 
     1;
+}
+
+sub _CreateInternalObjects {
+    my ($self) = @_;
+
+    my $dbi = $self->{_db};
+
+    my @objects = (
+        {
+            name => 'dpmt',
+            otype => 'sutype',
+            attrs => {
+                description => 'Department',
+            },
+        },
+        {
+            name => 'contrattype',
+            otype => 'sutype',
+            attrs => {
+                description => 'Contract',
+            },
+        },
+        {
+            name => '-useralias',
+            otype => 'group',
+            attrs => {
+                description => 'Internal group for user alias object',
+                gidnumber => -1,
+                unexported => 1,
+            },
+            intern => 1,
+        },
+    );
+
+    $self->temp_switch_unexported( sub {
+
+            my $setnodel  = $dbi->prepare('UPDATE objects SET nodelete     = true where name = ?');
+            my $setintern = $dbi->prepare('UPDATE objects SET internobject = true where name = ?');
+
+            foreach (@objects) {
+                if (!$self->GetRawObject($_->{otype}, $_->{name})) {
+                    printf("Creating object %s/%s\n", $_->{otype}, $_->{name});
+                    $self->create_object($_->{otype}, $_->{name}, %{$_->{attrs} || {}})
+                        or warn sprintf("cannot create %s/%s\n", $_->{otype}, $_->{name});
+
+                }
+
+                $setnodel->execute($_->{name});
+                $setintern->execute($_->{name}) if ($_->{intern});
+            }
+
+    }, 1);
+    $self->commit;
+
+    return 1;
 }