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

Timestamp:

12/27/12 18:26:32 (12 years ago)

Author:

nanardon

Message:

add tools to reset (bug #3)

File:

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

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

@@ -190 +190 @@
 }
 
+=head2 reset_module_checkpoint($module)
+
+Reset the checkpoint for module C<$module> to force it to run at next
+synchronisation.
+
+=cut
+
+sub reset_module_checkpoint {
+    my ($self, $module) = @_;
+    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;
+    };
+    $task->init or do {
+        la_log LA_ERR, "Cannot init module %s", $_;
+        return;
+    };
+
+    my $ini = $self->_load_state_ini or return;
+
+    $ini->delval($module, 'rev');
+    $ini->newval($module, 'time', 0);
+    $ini->SetParameterComment(
+        $module, 'time',
+        'Reset to 0 the ' . scalar(localtime(time)),
+    );
+
+    $task->reset_checkpoint; # Specific reset
+    $ini->RewriteConfig;
+}
+
 1;