/usr/share/perl5/Lemonldap/NG/Portal/_Remote.pm is in liblemonldap-ng-portal-perl 1.9.16-2.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 | ## @file
# Remote authentication and userDB base.
## @class
# Remote authentication and userDB base class.
package Lemonldap::NG::Portal::_Remote;
use strict;
use Lemonldap::NG::Portal::Simple;
use Lemonldap::NG::Common::Session;
use MIME::Base64;
our $VERSION = '1.9.1';
our $initDone;
BEGIN {
eval {
require threads::shared;
threads::shared::share($initDone);
};
}
## @apmethod int init()
# Checks if remote portal parameters are set.
# @return Lemonldap::NG::Portal constant
sub init {
my $self = shift;
return PE_OK if ($initDone);
my @missing = ();
foreach (qw(remotePortal remoteGlobalStorage)) {
push @missing, $_ unless ( defined( $self->{$_} ) );
}
$self->abort( "Missing parameters",
"Required parameters: " . join( ', ', @missing ) )
if (@missing);
eval "require " . $self->{remoteGlobalStorage};
$self->abort( "Configuration error",
"Module " . $self->{remoteGlobalStorage} . " not found in \@INC" )
if ($@);
$self->{remoteCookieName} ||= $self->{cookieName};
$initDone = 1;
PE_OK;
}
## @apmethod int checkRemoteId()
# check if a CDA mechanism has been instanciated 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 = shift;
my %h;
if ( my $rId = $self->param( $self->{remoteCookieName} ) ) {
$self->{mustRedirect} = 1;
# Trying to recover session from global session storage
my $remoteSession = Lemonldap::NG::Common::Session->new(
{
storageModule => $self->{remoteGlobalStorage},
storageModuleOptions => $self->{remoteGlobalStorageOptions},
cacheModule => $self->{localSessionStorage},
cacheModuleOptions => $self->{localSessionStorageOptions},
id => $rId,
kind => "REMOTE",
}
);
if ( $remoteSession->error ) {
$self->lmLog( "Remote session error", 'error' );
$self->lmLog( $remoteSession->error, 'error' );
return PE_ERROR;
}
%{ $self->{rSessionInfo} } = %{ $remoteSession->data() };
delete( $self->{rSessionInfo}->{'_password'} )
unless ( $self->{storePassword} );
return PE_OK;
}
return $self->_sub('goToPortal');
}
## @method protected void goToPortal()
# Redirect the user to the remote portal.
sub goToPortal {
my $self = shift;
print $self->redirect(
$self->{remotePortal} . "?url="
. encode_base64(
$self->{portal}
. ( $ENV{QUERY_STRING} ? "?$ENV{QUERY_STRING}" : '' ),
''
)
);
exit;
}
1;
|