Subversion Repositories DevTools

#! perl
########################################################################
# COPYRIGHT - VIX IP PTY LTD ("VIX"). ALL RIGHTS RESERVED.
#
# Module name   : jats.sh
# Module type   : Makefile system
# Compiler(s)   : n/a
# Environment(s): jats
#
# Description:
#
# Usage:
#
# Version   Who      Date        Description
#
#......................................................................#

require 5.006_001;
use strict;
use warnings;

use JatsError;
use JatsIniFile;


my $conf = new JatsIniFile;

# Read the config file.
$conf->read ("C:/WINDOWS/php.ini");
$conf->read ("c:/WINDOWS/orun32.ini");
$conf->read ("c:/WINDOWS/vbce.ini");

for ( glob ( "c:/WINDOWS/*.ini" ) )
{
    print "Reading: $_\n";
    $conf->read ($_);
}


DebugDumpData ("INI", $conf );

$conf->get('PHP','aa');
$conf->get('ZZZ','bb');


foreach  ( keys %{$conf->{'PHP'}} )
{
#    print "Key: $_,   $conf->{''}{$_}\n";
    print "Data: $_ .... ". $conf->get('PHP', $_) . "\n";
}

print "\n\n";
print "Data:include_path ". $conf->get('PHP','include_path') ."\n";
print "Data:fred ". $conf->get('PHP','fred', 'DefaultFred') ."\n";