2016-05-26 23:26:49 +02:00
|
|
|
package Lemonldap::NG::Portal::UserDB::Remote;
|
|
|
|
|
|
|
|
use strict;
|
|
|
|
use Mouse;
|
2021-04-01 23:07:58 +02:00
|
|
|
use Lemonldap::NG::Portal::Main::Constants 'PE_OK';
|
2016-05-26 23:26:49 +02:00
|
|
|
|
2021-04-01 23:07:58 +02:00
|
|
|
our $VERSION = '2.0.12';
|
2016-05-26 23:26:49 +02:00
|
|
|
|
2021-04-01 23:07:58 +02:00
|
|
|
extends qw(
|
|
|
|
Lemonldap::NG::Common::Module
|
|
|
|
Lemonldap::NG::Portal::Lib::Remote
|
|
|
|
);
|
2016-05-26 23:26:49 +02:00
|
|
|
|
2016-06-09 20:40:20 +02:00
|
|
|
# RUNNING METHODS
|
|
|
|
|
2016-05-26 23:26:49 +02:00
|
|
|
*getUser = *Lemonldap::NG::Portal::Lib::Remote::checkRemoteId;
|
|
|
|
|
2021-01-02 18:58:40 +01:00
|
|
|
sub findUser {
|
|
|
|
|
|
|
|
# Nothing to do here
|
2021-04-01 23:07:58 +02:00
|
|
|
return PE_OK;
|
2021-01-02 18:58:40 +01:00
|
|
|
}
|
|
|
|
|
2016-05-26 23:26:49 +02:00
|
|
|
sub setSessionInfo {
|
|
|
|
my ( $self, $req ) = @_;
|
2018-07-05 22:56:16 +02:00
|
|
|
delete $req->data->{rSessionInfo}->{_session_id};
|
|
|
|
$req->{sessionInfo} = $req->data->{rSessionInfo};
|
2022-02-16 17:43:29 +01:00
|
|
|
|
2021-04-01 23:07:58 +02:00
|
|
|
return PE_OK;
|
2016-05-26 23:26:49 +02:00
|
|
|
}
|
|
|
|
|
|
|
|
sub setGroups {
|
2021-04-01 23:07:58 +02:00
|
|
|
return PE_OK;
|
2016-05-26 23:26:49 +02:00
|
|
|
}
|
|
|
|
|
|
|
|
1;
|