# -*-perl-*-

# $Id: config.pl,v 3.1 2004/02/26 02:02:29 lachoy Exp $

# Simple script used by the various tests to read the config
# file. Usually we just use as:

#     do( 't/config.pl' );
#     my $config = _read_config_file();

# Crude, but effective

my $CONFIG_FILE = 'spops_test.conf';

sub _read_config_file {
    return {}  unless ( -f $CONFIG_FILE );
    my $config = {};
    open( CONF, $CONFIG_FILE ) || die "Cannot open config file! $!";
    while ( <CONF> ) {
        chomp;
        next if ( /^\s*$/ );
        my ( $tag, $value ) = /^(\w+):\s+(.*)$/;
        $config->{ $tag } = $value;
    }
    close( CONF );
    return $config;
}

sub _cleanup_config_file {
    my $config = _read_config_file();
    if ( $config->{remove_config} =~ /^y$/i ) {
        unlink( $CONFIG_FILE );
    }
}

use Log::Log4perl qw( :easy );
Log::Log4perl->easy_init({ level => $WARN,
                           file  => "> spops_tests.log" });

1;