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

##</code><code>##

#!c:\Perl\bin\perl
use warnings;
use strict;
use PARSEINFO;
use GUI;
use CGI qw(:standard);

use constant PASS => 1;
my $i_input1 = param('INPUT1');
my $i_input2 = param('INPIT2');
my %data;

&PARSEINFO::ParseConfigFileToHash( 'c:\inifile.ini', \%data );
if( ($i_input1 eq $data{input1}) && ($i_input2 eq $data{input2}) ) {
	if( ($i_input2) || ($i_input1) ) {
		my @args = ("../bin/Script.exe", $i_input1, $i_input2);
		system(@args);
		my $result = $? >>8;
		if ( $result == PASS) {
			&GUI::HtmlDoc1();
		} else {
			&GUI::HtmlDoc2();
		}
	} else {
		&GUI::HtmlDoc3();
	}
} else {
	&GUI::HtmlDoc2();
}
	
exit (0);

##</code><code>##

#!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;