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