#!/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"; #header(); print "


UNDERGROUND DRAINAGE SCHEME
LIST OF PERSONS CONTRIBUTING DEPOSIT

"; open (INFILE,"data/under.dat") or die" "; @data = ; close(INFILE); print ''; print ""; print ''; for($i=0;$i<=$#data;$i++) { print ""; @line = split(/\t/,$data[$i]); foreach $var (@line) { print ""; } print ""; } footer(); sub header() { print ' Tambaram Municipality
Sl. No. Name of the person address Amount Date of remittance
$var
Harvest rain water,
Save drinking water!
Tambaram Municipality
An Urban Local Body heading towards E-Governance
About us Programs Administration Elected members Area Map
Information Tenders Photo Gallery E-Governance Links
Birth/Death Records Water Charge Property Tax Progress Reporting Home
District Administration Plan Approval Status    
'; } sub footer { print ''; open(FILE,"data/updated.txt")or die""; @file = ; close(FILE); %data; $update; foreach $var (@file) { ($sc,$da) = split(/,/,$var); $data{$sc} = $da; if($scheme eq $sc) { $update = $da; } } print "
updated since $update
"; print '
We welcome suggestions!
 
'; }