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

37 lines
680 B
Perl
Raw Normal View History

package Lemonldap::NG::Portal::Auth::Remote;
use strict;
use Mouse;
use Lemonldap::NG::Portal::Main::Constants qw(PE_OK);
our $VERSION = '2.0.0';
extends 'Lemonldap::NG::Portal::Auth::Base',
'Lemonldap::NG::Portal::Lib::Remote';
2016-06-09 20:40:20 +02:00
# RUNNING METHODS
sub extractFormInfo {
my ( $self, $req ) = @_;
2016-07-18 21:42:53 +02:00
my $r = $self->checkRemoteId($req);
return $r unless ( $r == PE_OK );
$req->{user} =
$req->datas->{rSessionInfo}->{ $self->conf->{remoteUserField} || 'uid' };
$req->datas->{password} = $req->datas->{rSessionInfo}->{'_password'};
PE_OK;
}
sub authenticate {
PE_OK;
}
sub authLogout {
PE_OK;
}
sub getDisplayType {
return "logo";
}
1;