Changeset 22 for trunk/soft/ObsData/ObsData.pm

Timestamp:

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

Author:

thauvin

Message:

-add first conf management

File:

• trunk/soft/ObsData/ObsData.pm (modified) (2 diffs, 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;