#!/usr/local/bin/perl5_8
use strict;
use warnings;
use CGI;
use CGI::Carp qw(fatalsToBrowser); #remove for PRD
use HTML::Template;
use DBI;
use My::pswd;
my $CGI = CGI->new;

$|=1;
print "content-type: text/html\n\n";

my $err;
my $server = $My::pswd::server;
my $userid = $My::pswd::userid;
my $passwd = $My::pswd::passwd;

my $rpt_id = $CGI->param('rpt_id');
my $proj_id = $CGI->param('proj_id');
my $rpt_asofdt = $CGI->param('rpt_asofdt');
my $rpt_tmpl = "cnc1_rpt" . "$rpt_id" . "_summary.tmpl";

my $template = HTML::Template->new( filename => '$rpt_tmpl',
                                     associate => $CGI,
                                   );

#.... and then a bunch of other stuff (fetch data, 
#fetch futzed (for now) params to pass to template ....

print $template->output();

#temp:  just to show my variable values; remove for PRD
print "my rpt_id is:      $rpt_id<br>";
print "my proj_id is:     $proj_id<br>";
print "my rpt_asofdt is:  $rpt_asofdt<br>";
print "Good-bye Cruel World.\n";