[cgiapp] Saving Data From Authentication Phase

[adam at spatialsystems.org]

Messages don't seem to be getting through the mail list so I'm trying again.

I'm using CGI::Application::Plugin::Session and CGI::Application::Plugin::Authentication.  With CGI::Application::Plugin::Authentication I'm using the Generic driver.

I have an authentication object in my anonymous subroutine ref that I use for authentication with the Generic driver.  The authentication object returns 0 or 1 if the username/password is valid or not.  And I can also ask for the users info after the user is logged in and it returns a hashref.

How can I save this hashref of user info and keep it in my Session for all requests where the user is logged in?

Here is some of my code:

sub setup {

	#  setup authentication
	$self->authen->config(
		DRIVER	=> [ 'Generic', \&my_login ],
		STORE		=> 'Session',
		LOGIN_RUNMODE	=> 'login',
		POST_LOGIN_RUNMODE => 'main',
		LOGOUT_RUNMODE	=> 'login',
	);

}

sub my_login {

	my ($username, $password) = @_;

	#  connect to auth network
	my $ad_auth = MyCompany::ActiveDirectory->new('WINDOWS');

	return 0 if not $ad_auth->login( $username, $password );

	#  how do I store this info in the hash ref so I always have it???
	$users_hash_ref = $ad_auth->getUserInfo;

	retrun 1;

}


Thanks,
Adam