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

Timestamp:

03/29/16 17:37:22 (8 years ago)

Author:

nanardon

Message:

Add task modules

Add two task module:

• Unexportexpired: unexported expire aliases and nethost
• Updatedyndata: refresh aliases and group with autoMember settings

File:

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

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

@@ -131 +131 @@
     my @groups = $self->search_objects('group', 'autoMemberFilter=*');
 
+    my $res = 0;
     foreach (@groups) {
         my $g = $self->get_object('group', $_) or next;
-        $g->populate_dyn_group;
-    }
+        $res += $g->populate_dyn_group;
+    }
+
+    $self->log(LA_DEBUG, "Group Dyn res %d", $res);
+    $res
 }
 
@@ -142 +146 @@
     my @groups = $self->search_objects('aliases', 'autoMemberFilter=*');
 
+    my $res = 0;
     foreach (@groups) {
         my $g = $self->get_object('aliases', $_) or next;
-        $g->populate_dyn_aliases;
-    }
+        $res += $g->populate_dyn_aliases;
+    }
+
+    $self->log(LA_DEBUG, "Aliases Dyn res %d", $res);
+    $res
+}
+
+sub PopulateDynData {
+    my ($self) = @_;
+
+    foreach (1 .. 5) {
+        $self->log(LA_DEBUG, "%d loop for PopulateDynData", $_);
+        my $res = 0;
+        $res += $self->_sync_dyn_group   || 0;
+        $res += $self->_sync_dyn_aliases || 0;
+
+        if ($res == 0) {
+            last;
+        }
+    }
+
+    return 1;
 }
 
@@ -151 +176 @@
     my ($self) = @_;
 
-    for (qw(0 1)) { # Run twice for cross references
-        $self->_sync_dyn_group;
-        $self->_sync_dyn_aliases;
-    }
+    $self->PopulateDynData;
 
     if ($ENV{LA_NO_COMMIT}) {