lemonldap-ng/lemonldap-ng-portal/lib/Lemonldap/NG/Portal/UserDB/Remote.pm

37 lines
600 B
Perl
Raw Normal View History

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';
2021-04-01 23:07:58 +02:00
our $VERSION = '2.0.12';
2021-04-01 23:07:58 +02:00
extends qw(
Lemonldap::NG::Common::Module
Lemonldap::NG::Portal::Lib::Remote
);
2016-06-09 20:40:20 +02:00
# RUNNING METHODS
*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
}
sub setSessionInfo {
my ( $self, $req ) = @_;
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;
}
sub setGroups {
2021-04-01 23:07:58 +02:00
return PE_OK;
}
1;