lemonldap-ng/lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Password/REST.pm

package Lemonldap::NG::Portal::Password::REST;

use strict;
use Mouse;
use JSON;
use Lemonldap::NG::Portal::Main::Constants qw(
  PE_ERROR
  PE_PASSWORD_OK
);

extends qw(
  Lemonldap::NG::Portal::Lib::REST
  Lemonldap::NG::Portal::Password::Base
);

our $VERSION = '2.0.10';

sub init {
    my ($self) = @_;
    unless ($self->conf->{restPwdConfirmUrl}
        and $self->conf->{restPwdModifyUrl} )
    {
        $self->logger->error('Missing REST password URL');
        return 0;
    }
    return $self->SUPER::init;
}

sub confirm {
    my ( $self, $req, $pwd ) = @_;
    my $res = eval {
        $self->restCall(
            $self->conf->{restPwdConfirmUrl},
            { user => $req->user, password => $pwd }
        );
    };
    if ($@) {
        $self->logger("Pwd confirm error: $@");
        return 0;
    }
    return ( $res->{result} ? 1 : 0 );
}

sub modifyPassword {
    my ( $self, $req, $pwd, $useMail ) = @_;
    my $res = eval {
        $self->restCall(
            $self->conf->{restPwdModifyUrl},
            {
                ( $useMail ? 'mail' : 'user' ) => $req->user,
                useMail  => ( $useMail ? JSON::true : JSON::false ),
                password => $pwd,
            }
        );
    };
    if ($@) {
        $self->logger("Pwd confirm error: $@");
        return PE_ERROR;
    }
    return ( $res->{result} ? PE_PASSWORD_OK : PE_ERROR );
}

1;