87 lines
2.5 KiB
Perl
87 lines
2.5 KiB
Perl
package Lemonldap::NG::Portal::Lib::Remote;
|
|
|
|
use strict;
|
|
use Mouse;
|
|
use Lemonldap::NG::Common::Session;
|
|
use Lemonldap::NG::Portal::Main::Constants qw(PE_OK PE_ERROR PE_REDIRECT);
|
|
use MIME::Base64;
|
|
|
|
our $VERSION = '2.0.0';
|
|
|
|
# INITIALIZATION
|
|
|
|
sub init {
|
|
my $self = shift;
|
|
my @missing = ();
|
|
foreach (qw(remotePortal remoteGlobalStorage)) {
|
|
push @missing, $_ unless ( defined( $self->conf->{$_} ) );
|
|
}
|
|
if (@missing) {
|
|
$self->error( "Missing required parameters" . join( ', ', @missing ) );
|
|
return 0;
|
|
}
|
|
eval "require " . $self->conf->{remoteGlobalStorage};
|
|
if ($@) {
|
|
$self->error($@);
|
|
return 0;
|
|
}
|
|
$self->conf->{remoteCookieName} ||= $self->conf->{cookieName};
|
|
}
|
|
|
|
# RUNNING METHODS
|
|
|
|
## @apmethod int checkRemoteId()
|
|
# check if a CDA mechanism has been instantiated and if session is available.
|
|
# Redirect the user to the remote portal else by calling goToPortal().
|
|
# @return Lemonldap::NG::Portal constant
|
|
sub checkRemoteId {
|
|
my ( $self, $req ) = @_;
|
|
my %h;
|
|
|
|
if ( my $rId = $req->param( $self->conf->{remoteCookieName} ) ) {
|
|
$req->mustRedirect(1);
|
|
|
|
# Trying to recover session from global session storage
|
|
|
|
my $remoteSession = Lemonldap::NG::Common::Session->new(
|
|
{
|
|
storageModule => $self->conf->{remoteGlobalStorage},
|
|
storageModuleOptions =>
|
|
$self->conf->{remoteGlobalStorageOptions},
|
|
cacheModule => $self->conf->{localSessionStorage},
|
|
cacheModuleOptions => $self->conf->{localSessionStorageOptions},
|
|
id => $rId,
|
|
kind => "REMOTE",
|
|
}
|
|
);
|
|
|
|
if ( $remoteSession->error ) {
|
|
$self->lmLog( "Remote session error", 'error' );
|
|
$self->lmLog( $remoteSession->error, 'error' );
|
|
return PE_ERROR;
|
|
}
|
|
|
|
%{ $req->datas->{rSessionInfo} } = %{ $remoteSession->data() };
|
|
delete( $req->datas->{rSessionInfo}->{'_password'} )
|
|
unless ( $self->conf->{storePassword} );
|
|
return PE_OK;
|
|
}
|
|
return $self->goToPortal($req);
|
|
}
|
|
|
|
## @method protected void goToPortal()
|
|
# Redirect the user to the remote portal.
|
|
sub goToPortal {
|
|
my ( $self, $req ) = @_;
|
|
$req->urldc(
|
|
$self->conf->{remotePortal} . "?url="
|
|
. encode_base64(
|
|
$self->conf->{portal} . ( $req->query ? "?$req->query" : '' ), ''
|
|
)
|
|
);
|
|
return PE_REDIRECT;
|
|
}
|
|
|
|
1;
|
|
|