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


SOLID WASTE MANAGEMENT

"; open (INFILE,"data/solid.dat") or die" "; @data = ; close(INFILE); $th = $data[0]; @line = split(/\t/,$th); print "
Name of the Dumping Ground:$line[8]
"; print "
Date:$line[9]


"; print ''; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; for($i=1;$i<=$#data;$i++) { print ""; @line = split(/\t/,$data[$i]); foreach $var (@line) { print ""; } print ""; } print "
$line[0]$line[1]$line[2]$line[3]$line[4]
$line[5]$line[6]$line[7]$line[5]$line[6]$line[7]$line[5]$line[6]$line[7]
$var
"; print "
Abstract
"; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print "
1 Total Mpl Vehicle Trips................. Qty Disposed ................. M.T
2 Total Private Vehicle Trips................. Qty Disposed ................. M.T
3 Total No. of Trips................. Qty Disposed ................. M.T
4 Qty Disposed by Each Municipal Trips      M.T/Trip
4 Qty Disposed by Private Trips      M.T/Trip
5Qty Disposed by Dumping GroundPer Vehicle Trip( Municipality & Private)      M.T/Trip
"; 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 since $update
"; print '
We welcome suggestions!
 
'; }