Changeset 205

Timestamp:

01/25/06 14:11:55 (18 years ago)

Author:

thauvin

Message:

• add a lazy behaviour about index, write it for data/archive only if data are changed

File:

• trunk/soft/ObsData/ObsData/Repository.pm (modified) (3 diffs, 1 prop)

trunk/soft/ObsData/ObsData/Repository.pm

@@ -145 +145 @@
     $self->{statusfile} or return;
     if (!$self->{dry_run}) {
+        $self->logging(0,
+            "Writing status file: %s",
+            $self->{statusfile},
+        );
         $self->update_global_status;
         $self->{status}->WriteConfig($self->{statusfile});
@@ -329 +333 @@
 
     bless($or, $class);
+}
+
+sub DESTROY {
+    my ($self) = @_;
+    if ($self->{status_changed}) {
+        $self->save_status
+    }
 }
 
@@ -386 +397 @@
         $self->{archivefile}, $var, $comment
     ) if(defined($comment));
+    $self->{status_changed} = 1;
 }