Changeset 81

Timestamp:

11/30/05 14:22:52 (19 years ago)

Author:

thauvin

Message:

• start function status

File:

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

trunk/soft/ObsData/ObsData/Repository.pm

@@ -100 +100 @@
 our @ISA = qw(ObsData::Repository);
 
+my $status_default = {
+    archive_new => 1,
+    archive_time => 0,
+    archive_size => 0,
+
+    data_new => 1,
+    data_configmtime => 0,
+    
+};
+
 sub new {
     my ($class, $parent, $archivefile) = @_;
@@ -106 +116 @@
 
     $ORa->{archivefile} = $archivefile;
+    
+    $ORa->{statusinfo} = {};
     
     bless($ORa, $class);
@@ -115 +127 @@
 #    $self->SUPER::DESTROY();
 #}
+
+sub status {
+    my ($self) = @_;
+
+    my @filestats = stat("$self->{dir}/$self->{archivefile}");
+
+    if ($self->{status}->SectionExists($self->{archivefile})) {
+    } else {
+        $self->{statusinfo}{archive_new} =
+            $self->loging(0, "%s is new files", $self->{archivefile});
+    }
+}
 
 # TODO Define return code for this function, storing result somewhere to
@@ -191 +215 @@
     } else {
         $self->loging(0, "%s is new files", $self->{archivefile});
-        $self->{status}->AddSection($self->{archivefile});
         $self->update_status;
         return 1;
@@ -200 +223 @@
     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]);