#!c:\Perl\bin\perl
use warnings;
use strict;
use Config::IniFiles;
package PARSEINFO;


sub ParseConfigFileToHash {
	my $ini_file = shift; 
	my $cfg = Config::IniFiles->new( -file => $ini_file );
	my $hashref = shift;
	$hashref->{input1}		= $cfg->val( 'SETTINGS', 'INPUT1');
	$hashref->{input2}		= $cfg->val( 'SETTINGS', 'INPUT2');
}


sub OutputConfigFile{
	my $ini_file = shift; 
	my $newConfigFile = Config::IniFiles->new( );
	$newConfigFile->SetFileName( $ini_file );
	my $hashref = shift;
	my $sectionName = 'SETTINGS';
	$newConfigFile->newval( $sectionName, 'INPUT1',		$hashref->{input1} );
	$newConfigFile->newval( $sectionName, 'INPUT2',		$hashref->{input2} );
	$newConfigFile->RewriteConfig();
	$newConfigFile->WriteConfig( $ini_file );
}

1;