#!c:/apache/perl/bin/perl.exe -wT

use CGI;
use strict;
use CGI::Session;
use HTML::Template;
use MyAppCommon;

my $foo = new CGI;

print $foo->header();

my $sid = cookie('main') || undef;
my @sessionInfo;
my $session = new CGI::Session(undef, $sid, {Directory=>'c:/apache/sessions'});
if ( $session->is_new() ) {
	$session->delete();
}

MyAppCommon::topPublic();

my $template=HTML::Template->new(filename=>"c:/apache/templates/main/home.tmpl");
print $template->output;

MyAppCommon::bottomPublic($alias, $userAccess, $membership);