Changeset 270 for obsdata/trunk

Timestamp:

10/24/06 20:21:50 (18 years ago)

Author:

nanardon

Message:

• add obsdata_status, tools to give status of found files

Location:

obsdata/trunk

Files:

• ObsData/Repository.pm (modified) (3 diffs)
• bin/obsdata_status (added)

obsdata/trunk/ObsData/Repository.pm

@@ -94 +94 @@
     $self->logging(0, "Destroy ObsData::Repository for %s", ref($self));
     $self->save_status;
+}
+
+=head3 mydir
+
+return directory handle by the object
+
+=cut
+
+sub mydir {
+    $_[0]->{dir}
 }
 
@@ -351 +361 @@
         $self->save_status
     }
+}
+
+=head3 archivefile
+
+Return the archive name handle by this object
+
+=cut
+
+sub archivefile {
+    $_[0]->{archivefile}
 }
 
@@ -867 +887 @@
 sub list_data_from_status {
     my ($self) = @_;
-    map { /data_processtime_(.*)/; $1 } grep {
-        index($_, 'data_processtime_') == 0
-    } $self->{status}->Parameters()
+    map { m/data_processtime_(.*)/; $1 } grep {
+        $_ && index($_, 'data_processtime_') == 0
+    } $self->{status}->Parameters($self->{archivefile})
 }
 
 sub data_extracted {
     my ($self, $data) = @_;
-    return defined($self->get_data_value($data, 'dest'));
+    return $self->get_data_value($data, 'dest');
 }