#!/usr/bin/perl use lib '/home/www/xxxxxxxxxxxx.org/modules'; use CGI qw(:standard); use CGI::Carp qw(fatalsToBrowser); use warnings; use strict; use diagnostics; use declare_dbh; use CGI::SSI; print CGI::header(); my $body; my $dbh=declare_dbh::dbhandle(); my $step =param('step'); my $area =param('area'); if($step != 2) { $body.=<Sign up to 'xxxxxxxxxxxxxxxxxxxx' Yahoo Group

Upload the latest Info Sheet

In the news :

Upcoming events in Delhi/NCR

Delhi Central Office:

htmlx } else { my $sth= $dbh->prepare("select * from chapters where Chapter_name=?"); $sth->execute($area); if ($sth->rows > 0) { $body.= <

contact numbers:
website :
regular followups :
sheduled date for next course :
recent updates :
upcoming events :

update chapter info htmlx } else { $body.= "

Sorry, no information for your area is available yet!" } $body.= <
back to local information home page htmlx } local $/ = undef; open(file, "/home/www/xxxxxxxxxxxxxxx.org/forcgi.shtml"); my $filedata= ; $filedata =~ s/\$body/$body/; close(file); print $filedata; ##