Changeset 1740 for trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Task.pm

Timestamp:

03/30/16 13:09:45 (8 years ago)

Author:

nanardon

Message:

Make la-sync-manager simplier, better granularity about when running modules

File:

• trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Task.pm (modified) (1 diff)

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

@@ -93 +93 @@
 sub runDelay { 0; }
 
+=head2 waitDelay
+
+Return the number of second to wait before next run even there is a change in database.
+
+Return 0 but can be override by Task module.
+
+=cut
+
+sub waitDelay { 0; }
+
+=head2 needToBeRun
+
+Return TRUE is the module has to be run or not.
+
+=cut
+
+sub needToBeRun {
+    my ($self, $Sync, $module) = @_;
+
+    my ($lastrev, $lastRunTime) = $Sync->get_last_rev($module);
+
+    my $currentrev = $Sync->dbrev;
+    my $currentTime = time;
+    
+    if ($currentTime < $lastRunTime + $self->waitDelay) {
+        la_log LA_DEBUG, "Too early to run this module now";
+        return 0;
+    }
+
+    if ($self->needupd($lastrev, $currentrev, $Sync)) {
+        return 1;
+    } else {
+        la_log LA_DEBUG, "No change on main base, cheking delay";
+    }
+
+
+    if (my $delay = $self->runDelay) {
+        if ($currentTime >= $lastRunTime + $self->runDelay) {
+            return 1;
+        } else {
+            la_log LA_DEBUG, "Too short delay to run self, waiting";
+        }
+    }
+
+    return 0;
+}
+
 =head2 run