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

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

my $foo = new CGI;

my $alias = $foo->param('alias');
my $userID = 123; #normally would be pulled from DB, but keeping the code as simple as possible for testing purposes

my $empty;
my $session = new CGI::Session(undef, $empty, {Directory=>"c:/apache/sessions"});
$session->expire('+18h');
$session->param("id", $userID);
$session->param("alias", $alias);

my $cookie = $foo->cookie(-name => 'main', 
			-value => $session->id, 
			-expires => '+18h', 
			-path => '/');
print $foo->header(-cookie => $cookie);

MyAppCommon::topPublic();

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

MyAppCommon::bottomPublic($alias);