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";