dani/lemonldap-ng
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Use new session API in Handler/CGI (#671)

Browse Source
This commit is contained in:
Clément Oudot 2014-04-11 14:58:05 +00:00
parent dd11694c76
commit bb2c6f0003
1 changed files with 19 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
lemonldap-ng-handler/lib/Lemonldap/NG/Handler/CGI.pm
View File

@ -8,6 +8,7 @@ package Lemonldap::NG::Handler::CGI;
use strict;
use Lemonldap::NG::Common::CGI;
use Lemonldap::NG::Common::Session;
use CGI::Cookie;
use MIME::Base64;
@ -103,22 +104,26 @@ sub authenticate {
return $self->goToPortal();
}
unless ( $datas and $id eq $datas->{_session_id} ) {
unless ($tsv->{refLocalStorage}
and $datas = $tsv->{refLocalStorage}->get($id) )
{
my %h;
eval {
tie %h, $tsv->{globalStorage}, $id,
$tsv->{globalStorageOptions};
};
if ($@) {
return $self->goToPortal();
}
$datas->{$_} = $h{$_} foreach ( keys %h );
if ( $tsv->{refLocalStorage} ) {
$tsv->{refLocalStorage}->set( $id, $datas, "10 minutes" );
my $apacheSession = Lemonldap::NG::Common::Session->new(
{
storageModule => $tsv->{globalStorage},
storageModuleOptions => $tsv->{globalStorageOptions},
cacheModule => $tsv->{localSessionStorage},
cacheModuleOptions => $tsv->{localSessionStorageOptions},
id => $id,
kind => "SSO",
}
);
unless ( $apacheSession->data ) {
Lemonldap::NG::Handler::Main::Logger->lmLog(
"Session $id can't be retrieved", 'info' );
return $self->goToPortal();
}
$datas->{$_} = $apacheSession->data->{$_}
foreach ( keys %{ $apacheSession->data } );
}
# Accounting : set user in apache logs