Changeset 1824 for trunk/LATMOS-Accounts/lib/LATMOS/Accounts/SyncManager.pm

Timestamp:

07/11/16 14:43:44 (8 years ago)

Author:

nanardon

Message:

Order module to optimize data update

File:

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

trunk/LATMOS-Accounts/lib/LATMOS/Accounts/SyncManager.pm

@@ -121 +121 @@
 }
 
-=head2 process_module($module)
-
-Process C<$module>.
-
-=cut
-
-# TODO what is $dbrev, why is it need here ??
-
-sub process_module {
-    my ($self, $module) = @_;
-
-    eval {
-        if (!$self->ini->SectionExists($module)) {
-            la_log LA_ERR, "Cannot run inexistant module %s", $module;
-            return;
-        }
-
+
+=head2 listSortedModules
+
+List configured module ordered for running
+
+=cut
+
+sub listSortedModules {
+    my ($self) = @_;
+
+    my %modules = ();
+
+    foreach my $module ($self->list_modules) {
+        $modules{$module} = 1;
         my $modtype = $self->ini->val($module, 'type', $module);
         my $task = LATMOS::Accounts::Task->new(
@@ -147 +144 @@
             or do {
             la_log(LA_ERR, 'Cannot load module %s', $modtype);
+            next;
+        };
+
+        $modules{$module} = $task->order;
+    }
+
+    return sort { $modules{$a} <=> $modules{$b} } keys %modules;
+}
+
+=head2 process_module($module)
+
+Process C<$module>.
+
+=cut
+
+# TODO what is $dbrev, why is it need here ??
+
+sub process_module {
+    my ($self, $module) = @_;
+
+    eval {
+        if (!$self->ini->SectionExists($module)) {
+            la_log LA_ERR, "Cannot run inexistant module %s", $module;
+            return;
+        }
+
+        my $modtype = $self->ini->val($module, 'type', $module);
+        my $task = LATMOS::Accounts::Task->new(
+            $modtype,
+            config => $self->{config},
+            name   => $module,
+            syncm  => $self,
+        )
+            or do {
+            la_log(LA_ERR, 'Cannot load module %s', $modtype);
             return;
         };