#!C:/Perl/bin/perl
use strict;
use warnings;

use CGI::Carp qw( fatalsToBrowser );
use CGI;
use CGI::Session;

run();

sub run {
	my $cgi = new CGI();
	my $action = $cgi->param('do');
	
	#
	# Create a session object
	#
	my $session = undef;
	if ($action eq 'login') {
		# Create a brand new session, by passing an undef cgi argument to CGI::Session.
		$session = new CGI::Session("driver:File", undef, {Directory=>"/"});
	} elsif ($action eq 'stay_logged') {
		# Keep the existing session, by passing the CGI object to CGI::Session.
		$session = new CGI::Session("driver:File", $cgi, {Directory=>"/"});
	} else {
		die "Invalid action '$action'\n";
	}

	#
	# Send the CGISESSID cookie to the browser
	#
	my $cookie = undef;
	my $session_id = undef;
	if ($session) {
		$session_id = $session->id();
		$cookie = $cgi->cookie(CGISESSID => $session_id);		
		print $cgi->header(-cookie=>$cookie);
	}	

	print $cgi->start_html('Fooling around with session login/logout');

	print "<h3>\$action='$action'</h3>\n";

	print "<pre>\$session_id=$session_id\n</pre>\n\n";	
	print "<pre>\$cookie=$cookie\n\n</pre>\n";
	
	my $random_id = rand();
	print "<ul>\n";
	print "   <li><a href=\"try_logon.cgi?do=login&rand=$random_id\">login</a></li>\n";
	print "   <li><a href=\"try_logon.cgi?do=stay_logged&rand=$random_id\">stay logged</a></li>\n";
	print "</ul>\n";
	
	
	print $cgi->end_html;
}