Changeset 116

Timestamp:

12/12/05 06:34:03 (18 years ago)

Author:

thauvin

Message:

• use new functions

File:

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

trunk/soft/ObsData/ObsData/Repository.pm

@@ -308 +308 @@
         my ($self) = @_;
         my $res;
-        if (defined(my $oldsize = $self->{status}->val($self->{archivefile}, 'size')) &&
+        if (defined(my $oldsize = $self->getvalue('size')) &&
             defined(my $size = (stat("$self->{dir}/$self->{archivefile}"))[7])) {
             my $res = $size <=> $oldsize;
@@ -325 +325 @@
         my ($self) = @_;
         my $res;
-        if (defined(my $oldmtime = $self->{status}->val($self->{archivefile}, 'mtime')) &&
+        if (defined(my $oldmtime = $self->getvalue('mtime')) &&
             defined(my $mtime = (stat("$self->{dir}/$self->{archivefile}"))[9])) {
             my $res = $mtime <=> $oldmtime;
@@ -350 +350 @@
     data_extracted => sub {
         my ($self, $datafile) = @_;
-        my $last_process = $self->{status}->val($self->{archivefile}, "data_processtime_$datafile");
+        my $last_process = $self->gat_data_val($datafile, 'processtime');
         if ($last_process) {
             $self->loging(0, "%s/%s has been already processed at %s",
@@ -468 +468 @@
     my ($self) = @_;
     my @filestats = stat("$self->{dir}/$self->{archivefile}");
-    if (!$self->{status}->SectionExists($self->{archivefile})) {
-        $self->{status}->AddSection($self->{archivefile});
-    }
-    $self->{status}->newval($self->{archivefile}, 'mtime', $filestats[9]);
-    $self->{status}->newval($self->{archivefile}, 'size', $filestats[7]);
-
-    $self->{status}->newval($self->{archivefile}, 'configtime', $self->{obsdata}->config_mtime);
+    
+    $self->setvalue('mtime', $filestats[9]);
+    $self->setvalue('size', $filestats[7]);
+    $self->setvalue('configtime', $self->{obsdata}->config_mtime);
 }
 
@@ -501 +498 @@
     );
     if ($t) {
-        $self->{status}->newval($self->{archivefile}, "data_type_$datafile", $t);
+        $self->set_data_value($datafile, 'type', $t);
     }
     return($t, $d);
@@ -525 +522 @@
     my $ltime = time;
 
-    $self->{status}->newval(
-        $self->{archivefile},
-        "data_processtime_$datafile",
-        $ltime
-    );
-    $self->{status}->newval(
-        $self->{archivefile},
-        "data_processversion_$datafile",
-        $ObsData::VERSION
-    );
-
-    $self->{status}->SetParameterComment(
-        $self->{archivefile}, 
-        "data_processtime_$datafile",
+    $self->set_data_value(
+        $datafile,
+        'processtime',
+        $ltime,
         scalar(localtime($ltime)) .
         ", $ObsData::VERSION: $ObsData::CVSREV, $ObsData::Repository::CVSREV",
+    );
+    $self->set_data_value(
+        $datafile,
+        'processversion',
+        $ObsData::VERSION,
     );
    
@@ -580 +572 @@
 
     if ($self->{Oarchive}->extract($datafile, $destfile)) {
-        $self->{status}->newval($self->{archivefile}, "data_dest_$datafile", $destfile);
+        $self->set_data_value($datafile, 'dest', $destfile);
         $self->loging(
             1, "Extraction of %s/%s done as %s",