source: trunk/soft/ObsData/ObsData.pm @ 23

# $Id$

package ObsData;

use strict;
use warnings;
use Config::IniFiles;

our $VERSION = 0.01;

sub new {
    my ($class, $configfile) = @_;
    my $obsdata = {
        config => new Config::IniFiles(
            -file => $configfile,
            -default => 'global',
            -allowcontinue => 1
        ),
    };
    
    (-f $configfile && -r _) && $obsdata->{config} or return undef;
    bless($obsdata, $class);
}

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 is_obs {
    my ($self, $obs) = @_;
    grep { $_ eq "Obs $obs" } $self->{config}->GroupMembers('Obs');
}

sub list_datadir {
    my ($self, $obs) = @_;
    $self->is_obs($obs) or return undef;
    map { m,^datadir/(.*),; ( $1 => $self->{config}->val($obs, $_) ) }
        grep { m,^datadir/, } 
        $self->{config}->Parameters($obs)
}

sub get_datadir {
    my ($self, $obs, $type) = @_;
    $self->is_obs($obs) or return undef;
    $self->getvalue($obs, "datadir/$type");
}

1;