#!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);

##</code><code>##

#!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);

##</code><code>##

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

##</code><code>##

&test;

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

	return 1;
}