2017-02-23 22:46:00 +01:00
|
|
|
package Lemonldap::NG::Portal::Auth::REST;
|
|
|
|
|
|
|
|
use strict;
|
|
|
|
use Mouse;
|
|
|
|
use Lemonldap::NG::Portal::Main::Constants qw(
|
|
|
|
PE_ERROR
|
|
|
|
PE_BADCREDENTIALS
|
|
|
|
PE_OK
|
|
|
|
);
|
|
|
|
|
|
|
|
our $VERSION = '2.0.0';
|
|
|
|
|
|
|
|
extends 'Lemonldap::NG::Portal::Auth::_WebForm',
|
|
|
|
'Lemonldap::NG::Portal::Lib::REST';
|
|
|
|
|
|
|
|
# INITIALIZATION
|
|
|
|
|
|
|
|
sub init {
|
|
|
|
my $self = shift;
|
|
|
|
|
|
|
|
# Add warning in log
|
|
|
|
unless ( $self->conf->{restAuthUrl} ) {
|
|
|
|
$self->logger->error('No Auth REST URL given');
|
|
|
|
return 0;
|
|
|
|
}
|
|
|
|
|
|
|
|
return $self->Lemonldap::NG::Portal::Auth::_WebForm::init();
|
|
|
|
}
|
|
|
|
|
|
|
|
sub authenticate {
|
|
|
|
my ( $self, $req ) = @_;
|
|
|
|
my $res = eval {
|
|
|
|
$self->restCall( $self->conf->{restAuthUrl},
|
|
|
|
{ user => $req->user, password => $req->datas->{password} } );
|
|
|
|
};
|
|
|
|
if ($@) {
|
|
|
|
$self->logger("Auth error: $@");
|
2017-03-14 17:52:11 +01:00
|
|
|
$self->setSecurity($req);
|
2017-02-23 22:46:00 +01:00
|
|
|
return PE_ERROR;
|
|
|
|
}
|
|
|
|
unless ( $res->{result} ) {
|
|
|
|
$self->userLogger->warn(
|
|
|
|
"Bad credentials for " . $req->user . ' (' . $req->address . ')' );
|
2017-03-14 17:52:11 +01:00
|
|
|
$self->setSecurity($req);
|
2017-02-23 22:46:00 +01:00
|
|
|
return PE_BADCREDENTIALS;
|
|
|
|
}
|
2017-02-24 06:37:32 +01:00
|
|
|
$req->datas->{restAuthInfo} = $res->{info} || {};
|
2017-02-23 22:46:00 +01:00
|
|
|
return PE_OK;
|
|
|
|
}
|
|
|
|
|
|
|
|
sub setAuthSessionInfo {
|
|
|
|
my ( $self, $req ) = @_;
|
|
|
|
$self->SUPER::setAuthSessionInfo($req);
|
|
|
|
$req->sessionInfo->{$_} = $req->datas->{restAuthInfo}->{$_}
|
|
|
|
foreach ( keys %{ $req->datas->{restAuthInfo} } );
|
|
|
|
return PE_OK;
|
|
|
|
}
|
|
|
|
|
|
|
|
sub authLogout {
|
|
|
|
PE_OK;
|
|
|
|
}
|
|
|
|
|
|
|
|
1;
|