#!/usr/bin/perl
use CGI qw(:standard -noxhtml *Tr *td *ul);
use CGI::Carp qw(fatalsToBrowser);
use CGI::Session;

require '/home/sites/www.scenartech.com/dbconf/subs.pl';

my $COOKIE = 'ScenarTech';

my $cgi = new CGI;

my @cookies;
my $sess = initSession($cgi,\@cookies);
my $AEFPID = $sess->param('AEFPID');
my $name = $AEFPID;
$name = $sess->param('FName').' '.$sess->param('LName') if $sess->param('FName');

push @cookies,cookie(
               -name=>$COOKIE,
               -value=>$sess->id,
               -path=>'/',
             );
print header(-cookie=>\@cookies);

open PAGE,'/home/sites/www.scenartech.com/web/login/index.php';
my $home = join('',<PAGE>);
close PAGE;

$home =~ s/<\?php.*\?>//s;

print $home;

exit;