#!/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 "


Town Planning

"; open (FILE,"data/town.dat") or die" "; @data = ; close(FILE); @dat = split(/\t/,$data[0]); print " "; print "
Applications received today Total Applications received so far No. of Disposals No. of Refusals No of Pending
$dat[0] $dat[1] $dat[2] $dat[3] $dat[4]

"; footer(); sub header() { print ' Tambaram Municipality
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 on $update
"; print '
We welcome suggestions!
 
'; }