#! /usr/bin/perl -w
use strict;
my %data;
%data = ReadConfig("legacy.ini");
foreach my $value (values %data){
	print "$value\n";
}
print "$data{MAIN}\n\n";
sub ReadConfig {
	my $ConfigFile=shift;
	my %Config; my $Item; my $Value;
	open CONFIG,"<$ConfigFile" or die("Cannot open Config File!");
	while(<CONFIG>) {
		chomp;
		next if ((/^#/)||(/^\s*$/));
		if (/^\[(.*)\]$/) {$Item=$1;next;};          
		if($Item) {
			my ($SubOption,$Value)=split /\=/;
			if ($Value) {
				print "$Item\t$SubOption\t$Value\t";
				$Config{$Item}{$SubOption} = $Value;
				print "-->$Config{$Item}{$SubOption}\n";
			} else {
				$Config{$Item} = $_;
			}
		}
	}
	close CONFIG;
	foreach my $value (keys %Config){
		print "->$value\n";
	}
	return %Config;
}

##</code><code>##

[MAIN]
inputDir = "\\\\richnas1\\newsdata\\brides"
tempDir = C:\\Temp
textExt = .txt
imageExt = PF.tif
logfile = C:\\Temp\\brides.log

[FTP]
hostname = ftp.legacy.com
username = USERNAME
password = PASSWORD
imagedir = /timesdispatch/Celebrations/Photos/
textdir = /timesdispatch/Celebrations/
bridescap = /files1/BRIDESCAP

[E-Mail]
smtphost = inet-mail1.themeganet.com

[Notify]
rni_engineering@timesdispatch.com

##</code><code>##

MAIN    inputDir         "\\\\richnas1\\newsdata\\brides"       --> "\\\\richnas1\\newsdata\\brides"

MAIN    tempDir          C:\\Temp       --> C:\\Temp
MAIN    textExt          .txt   --> .txt
MAIN    imageExt         PF.tif --> PF.tif
MAIN    logfile          C:\\Temp\\brides.log   --> C:\\Temp\\brides.log
FTP     hostname         ftp.legacy.com --> ftp.legacy.com
FTP     username         USERNAME  --> USERNAME
FTP     password         PASSWORD       --> PASSWORD
FTP     imagedir         /timesdispatch/Celebrations/Photos/    --> /timesdispatch/Celebrations/Phot
os/
FTP     textdir          /timesdispatch/Celebrations/   --> /timesdispatch/Celebrations/
FTP     bridescap        /files1/BRIDESCAP      --> /files1/BRIDESCAP
E-Mail  smtphost         inet-mail1.themeganet.com      --> inet-mail1.themeganet.com
->MAIN
->FTP
->Notify
->E-Mail
HASH(0x1b8f138)
HASH(0x1b854dc)
rni_engineering@timesdispatch.com
HASH(0x1b8559c)
HASH(0x1b8f138)