Changeset 22 for trunk

Timestamp:

09/28/05 21:19:23 (19 years ago)

Author:

thauvin

Message:

-add first conf management

Location:

trunk/soft/ObsData

Files:

• ObsData.pm (modified) (2 diffs, 1 prop)
• t/O-02.t (added)
• testdata/obsdata-conftest (modified) (1 diff, 1 prop)

trunk/soft/ObsData/ObsData.pm

@@ -14 +14 @@
         config => new Config::IniFiles(
             -file => $configfile,
-            # -default => '', TODO
+            -default => 'global',
             -allowcontinue => 1
         ),
@@ -23 +23 @@
 }
 
+sub checkconfig {
+    my ($self) = @_;
+    foreach my $g ($self->{config}->GroupMembers('Obs')) {
+        my ($obs) = $g =~ /\S+\s+(.*)/;
+        if (!$self->{config}->SectionExists($obs)) {
+            print "E: '$obs' is listed as Obs but it does not exists\n";
+            next;
+        }
+        foreach my $param ($self->{config}->Parameters($obs)) {
+        }
+    }
+}
+
+sub getvalue {
+    my ($self, $section, $var, $default) = @_;
+    $self->{config}->val($section, $var, $default);
+}
+
+sub list_obs {
+    my ($self) = @_;
+    grep { $self->{config}->SectionExists($_) }
+        map { s/^\S+\s+//; $_ }
+        $self->{config}->GroupMembers('Obs');
+}
+
+sub list_datadir {
+    my ($self, $obs) = @_;
+    $self->{config}->SectionExists($obs) or return undef;
+    map { m,^datadir/(.*),; ( $1 => $self->{config}->val($obs, $_) ) }
+        grep { m,^datadir/, } 
+        $self->{config}->Parameters($obs)
+}
+
 1;

trunk/soft/ObsData/testdata/obsdata-conftest

@@ -1 +1 @@
 # $Id$
 
+# This is a tested file
+
+[global]
+
+[Obs ohp]
+
 [ohp]
+description=Observatoire de Haute Provence
+datadir/ozone=testdata/ohp/ozone
+
+
+[ozone]
+