Changeset 1205

Timestamp:

12/28/12 15:05:22 (11 years ago)

Author:

nanardon

Message:

add reset checkpoint to Basessynchro, fixing #3

Location:

trunk/LATMOS-Accounts/lib/LATMOS/Accounts

Files:

• Synchro.pm (modified) (1 diff)
• Task/Basessynchro.pm (modified) (1 diff)

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

@@ -399 +399 @@
 }
 
+=head2 reset_checkpoint
+
+Reset checkpoint in status file to force full synchronisation
+
+=cut
+
+sub reset_checkpoint {
+    my ($self) = @_;
+    foreach my $destbase ($self->to) {
+            # don't register checkpoint on error
+        $self->newval($self->from->label, $destbase->label, 0);
+    }
+    $self->write_status;
+}
+
 =head2 run_pre_synchro
 

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

@@ -49 +49 @@
 }
 
+sub reset_checkpoint {
+    my ($self) = @_;
+    my $LA = LATMOS::Accounts->new($self->{config}, noacl => 1) or do {
+        la_log LA_ERR, "Cannot instantiate LA";
+        return;
+    };
+    my $sync = $LA->create_synchro(
+        $self->{syncname} || $LA->default_synchro_name,
+        test     => $self->{test},
+    ) or do {
+       la_log LA_ERR, "cannot create sync object";
+       return;
+    };
+
+
+    $sync->reset_checkpoint
+}
+
 1;