Changeset 1201 for trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Task/Buildnet.pm

Timestamp:

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

Author:

nanardon

Message:

add tools to reset (bug #3)

File:

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

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

@@ -814 +814 @@
 }
 
+sub reset_checkpoint {
+    my ($self) = @_;
+    foreach my $zone ($self->_base->search_objects('netzone')) {
+        my $ozone = $self->_base->get_object('netzone', $zone)
+            or next;
+
+        $self->_bnet_state->newval($ozone->id, 'dbrev', 0);
+        la_log LA_DEBUG, "Zone checkpoint reset for %s", $ozone->id;
+        $self->_bnet_state->SetParameterComment(
+            $ozone->id, 'dbrev',
+            'Reset checkpoint the ' . scalar(localtime));
+    }
+
+    $self->_write_state_file;
+}
+
 1;