Changeset 50 for trunk

Timestamp:

11/24/05 08:10:37 (19 years ago)

Author:

thauvin

Message:

• write status file function
• fix ObsData::Repository new()

Location:

trunk/soft/ObsData

Files:

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

trunk/soft/ObsData/ObsData.pm

@@ -20 +20 @@
 
 our $VERSION = 0.01;
+our $CVSID = q$Id$;
 
 =head1 NAME
@@ -50 +51 @@
         logcallback => $options{logcallback},
         dir => $options{dir},
-
     };
 

trunk/soft/ObsData/ObsData/Repository.pm

@@ -7 +7 @@
 use ObsData;
 use Config::IniFiles;
+
+our $CVSID = q$Id$;
 
 =head1 METHODS
@@ -24 +26 @@
     my $OR = {
         obsdata => $obsdata,
-        status => undef,
+        status => new Config::IniFiles(
+            -file => (-f $dir . "/obsdata.ini" ? ($dir . "/obsdata.ini") : undef),
+            # -default => '.', # Is this a good idea
+        ),
         dir => $dir,
     };
 
+
+    
     foreach my $inf (qw(obs datatype)) {
         $OR->{$inf} = $info{$inf};
     }
 
-    bless($obsdata, $class);
+    bless($OR, $class);
 }
 
@@ -42 +49 @@
 sub save_status {
     my ($self) = @_;
+    $self->{status}->AddSection('.');
+    $self->{status}->SetSectionComment('.',
+        $ObsData::CVSID,
+        $ObsData::Repository::CVSID,
+        scalar(localtime),
+    );
+
+    $self->{status}->WriteConfig("$self->{dir}/obsdata.ini");
 }