sub cgiapp_prerun 
{
	my $self = shift;
		
	# Make CGI params avail
	my $q = $self->query();

	# Open existing session (from cgi cookie id) or open new session
	my $session = new CGI::Session(undef, $q, {Directory=>'tmp'});
	$session->expire('+1h');

	# Set Cookie containing session id	
	my $cookie = $q->cookie(CGISESSID => $session->id);
	# C::A method to send send HTTP properties directly to CGI.pm header
	$self->header_props(-cookie => $cookie);

	# Reset some session, C::A, & CGI params if user just logged out
	if ($q->param('rm') eq 'logout') 
	{
		$session->param('logged_in' 		=> 0);
		$self->prerun_mode($self->param( 'default_rm')); 
		# Reset other params
	} 
		
	# Make session params available to other subs & modules
	$self->param(session => $session);	
}