#!/usr/bin/perl
use strict;
use warnings;
use CGI::Session;
use CGI;
use CGI::Carp qw/fatalsToBrowser warningsToBrowser/;
use HTML::Template;
my $session = CGI::Session->load();
$session->new("SID") unless $session->is_expired();
my $template = '../login.html';

$session->expire("+3m");
CGI::param("user") and $session->param("user",CGI::param("user"));
$session->param("~is_logged_in",1) if CGI::param("user") ne "" && CGI::param("pass") ne "";
if ($session->param("~is_logged_in")) {
    $template="../success.html";
}
else {
    $session->delete();
}

my $tmpl = HTML::Template->new(filename => $template,associate=>$session) or die $!;
print $session->header();
warningsToBrowser(1);
print $tmpl->output();
exit;