use strict;
my $importConfigurationFile = substr($0,0,2) . "/copra-server/common/configuration/configuration.properties";
our %configValue;
print "\nstarting importconfiguration.pl\n";

open(FILE,$importConfigurationFile);
while(defined(my $line = <FILE>)) { 
	 
	if ($line =~ m/.*=.*/g){
		chomp($line);
		my $key = substr($line,0,index($line,"="));
		my $value = substr($line,index($line,"=")+1,length($line));
		#print "key is: $key -----> value is: $value\n";
		$configValue{"$key"}="$value";	
	}
	
}
close(FILE);

while ((my $currentKey,my $currentValue) = each %configValue){
	print "key, value pair is ($currentKey,$currentValue)\n";
}
print "-------import finished -----------------------\n";