#!/usr/bin/perl


print "Content-type: text/html \n\n";

if ($ENV{'REQUEST_METHOD'} eq 'POST')
{
$length = $ENV{'CONTENT_LENGTH'};
read(STDIN,$buffer,$length);

@pairs = split(/&/, $buffer);
foreach $pair (@pairs)
{
    ($name, $value) = split(/=/, $pair);
    $value =~ tr/+/ /;
    $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
    $FORM{$name} = $value;

}
}else{
	$query_s = $ENV{'QUERY_STRING'};
	@query = split(/&/,$query_s);

	foreach $var(@query)
	{
		($na,$val) = split(/=/,$var);
		$FORM{$na} = $val;
	}

}

require "header.pl";
require "footer.pl";
#&header;




print "<center><br><br><font color=green>Non-Tax</font><br><br></center>";

open (FILE,"data/nontax.dat") or die" ";
	@data = <FILE>;
	close(FILE);
	
	
	
print "
	
	<table border=1 width=90% align=center>
	<tr><th bgcolor=pink >S.NO</th>
	<th bgcolor=pink >Assessment no</th>
	<th bgcolor=pink >Name & Trade of work</th>
	<th bgcolor=pink >Tax Levied</th>
	<th bgcolor=pink >Collection</th>
	<th bgcolor=pink >Balance</th>
	</tr>";
	
	
	foreach $var (@data)
	{
		@dat = split(/\t/,$var);
	
	print "<tr><td align=center bgcolor=pink> $dat[0]  </td><td align=center bgcolor=pink> $dat[1]  </td>
			<td align=center bgcolor=pink > $dat[2]  </td><td align=center bgcolor=pink>  $dat[3]  </td>
			<td align=center bgcolor=pink> $dat[4]  </td><td align=center bgcolor=pink> $dat[5]  </td>
		</tr>
	";		
	}	
		
	print '	</table>';
	

	
open(FILE,"data/updated.txt")or die"";
	@file = <FILE>;
	close(FILE);
	
	%data;

	$update;
foreach $var (@file)
{
	($sc,$da) = split(/,/,$var);
	$data{$sc} = $da;
	
	if($scheme eq $sc)
	{
		$update = $da;	
		
	}
	
	
}

	print "<br><div align=right><font color=green>updated since $update  </font></div>";
&footer;