Changeset 269 for obsdata/trunk

Timestamp:

10/23/06 17:44:16 (18 years ago)

Author:

nanardon

Message:

• add listing function

File:

• obsdata/trunk/ObsData/Repository.pm (modified) (2 diffs)

obsdata/trunk/ObsData/Repository.pm

@@ -290 +290 @@
         $orda->process;
     }
+}
+
+sub get_archives_from_status {
+    my ($self) = @_;
+    map {
+        ObsData::Repository::dir::archive->new(
+            $self,
+            archivefile => $_,
+        ) 
+    } $self->list_archive_from_status();
 }
 
@@ -855 +865 @@
 }
 
+sub list_data_from_status {
+    my ($self) = @_;
+    map { /data_processtime_(.*)/; $1 } grep {
+        index($_, 'data_processtime_') == 0
+    } $self->{status}->Parameters()
+}
+
+sub data_extracted {
+    my ($self, $data) = @_;
+    return defined($self->get_data_value($data, 'dest'));
+}
+
 =head1 LICENSE