#!/usr/bin/perl -Tw

use strict;
use CGI;
use CGI::Session qw/ip-match/;

my $q        = new CGI;
my $name     = "name";
my $password = "password";
my $f_name = $q->param("name") || "";
my $f_password = $q->param("password") || "";

my $session = new CGI::Session(undef,$q,{Directory=>'/tmp'});
$session->expire('+1h');
my $sessionid=$q->cookie("cgisessid")||$session->param("_SESSION_ID");
my $cookie_id = $q->cookie(CGISESSID=>$session->id);

$session->delete() if $q->param("out");

if (!$session->param("name") &&
	ValidateLogin($f_name,$f_password) == 0)
{
	Form();
} else {
	LogedIn();
}
sub Form
{
	print $q->header, $q->start_html, $q->start_form, "Name: ",
	$q->textfield({NAME=>'name',OVERRIDE=>1}), $q->br,
	"Password: ", $q->password_field({NAME=>'password',OVERRIDE=>1}),
	$q->br, $q->submit("Login"), $q->end_form,
	"Sesson ID: ", $session->id,
	$q->p,"HINT: Use 'name' and 'password' to login",$q->end_html;
}
sub LogedIn
{
	$session->param("name",$q->param("name"));
	print $q->header({COOKIE=>$cookie_id}), $q->start_html,
	"LoggedIn", $q->br,	"SESSION(id): ", $session->id, $q->br,
	"SESSION(name): ", $session->param("name"), $q->br;
	print $q->start_form, $q->hidden({NAME=>'out',VALUE=>1}),
	$q->submit("LogOut"), $q->end_form,
	$q->end_html;
}
sub ValidateLogin
{
	my ($n,$p) = @_;
	$n ne $name && $p ne $password ? 0 : 1;
}