if(param('listName')){
$listvalue = param('listName');
$current = "/Desktop/$listvalue";
find (\&processFiles, $current);
&processData();

}else{

print "Content-type: text/html\n\n";
if(param('txtName')){
@txtvalues = param('txtName');
}else{
@txtvalues = param('tName');
print @txtvalues;}
%data = param('hashdata');

print @txtvalues;
&manageStateProcess();
}

sub processData() {
	while ((my $keys, my $values) = each(%data)){

		$comment="";
		if($values =~m/(.*?\s)\ *(\#.*)/){
			$values="$1";$comment="$2";}
		if ($keys =~m/^.*File.*$/){
			#$check{$keys}=$values;
			push(@checkbox_rows, td([table(font({-color=>"blue"},$keys)),table(checkbox(-name=>"",-value=>$values,-size=>15)),table($comment)]));
		}else{
			
			push(@textfield_rows, td([table(font({-color=>"blue"},$keys)),table(textfield(-name=>'txtName',-value=>$values,-size=>25)),table($comment)]));
		}
	}

}

sub manageStateProcess() {
	my $i=0;
	my %hashtextField;
	while ((my $keys, my $values) = each(%data)){

		$comment="";
		if($values =~m/(.*?\s)\ *(\#.*)/){
			$values="$1";$comment="$2";}
		if ($keys =~m/^.*File.*$/){
			push(@checkbox_rows, td([table(font({-color=>"blue"},$keys)),table(checkbox(-name=>"", -value=>$values,-size=>15)),table($comment)]));
		}else{
			my $values = $txtvalues[$i];
			print "<b>$values<b>";
			$i++;
			push(@textfield_rows, td([table(font({-color=>"blue"},$keys)),table(textfield(-name=>$keys,-value=>$values,-size=>25)),table($comment)]));
			#hidden(-name=>'tdata', -values=>[@text]);
		}
	}
	
}




print header;
print start_html('N1 Grid');
print    h4({-align=>'center'},'N1 Grid');
print    hr;
my $a="Test";
if ($a){
print h1({-align=>'center'},$a);
}
print    p{-align=>'RIGHT'},a({-href=>"parsecfg.pl"},"Go to home page"),
start_form(-method=>"POST", -action=> 'cfgdata13.pl'),	
table({-align=>'CENTER',-valign=>'TOP'},Tr(\@checkbox_rows)),
table({-align=>'CENTER',-valign=>'TOP'},Tr(\@textfield_rows)),
hidden(-name=>'hashdata', -values=>[%data]),
p{-align=>'CENTER'},
submit,
    
    end_form;

print end_html;