39 lines
804 B
Perl
39 lines
804 B
Perl
![]() |
##@file
|
||
|
# Choice user backend file
|
||
|
|
||
|
##@class
|
||
|
# Choice user backend class
|
||
|
package Lemonldap::NG::Portal::PasswordDBChoice;
|
||
|
|
||
|
use strict;
|
||
|
use Lemonldap::NG::Portal::_Choice;
|
||
|
use Lemonldap::NG::Portal::Simple;
|
||
|
|
||
|
our $VERSION = '0.10';
|
||
|
|
||
|
## @apmethod int passwordDBInit()
|
||
|
# Does nothing
|
||
|
# @return Lemonldap::NG::Portal constant
|
||
|
sub passwordDBInit {
|
||
|
my $self = shift;
|
||
|
return $self->_choice->try( 'passwordDBInit', 2 );
|
||
|
}
|
||
|
|
||
|
## @apmethod int modifyPassword()
|
||
|
# Does nothing
|
||
|
# @return Lemonldap::NG::Portal constant
|
||
|
sub modifyPassword {
|
||
|
my $self = shift;
|
||
|
return $self->_choice->try( 'modifyPassword', 2 );
|
||
|
}
|
||
|
|
||
|
## @apmethod int resetPassword()
|
||
|
# Does nothing
|
||
|
# @return Lemonldap::NG::Portal constant
|
||
|
sub resetPassword {
|
||
|
my $self = shift;
|
||
|
return $self->_choice->try( 'resetPassword', 2 );
|
||
|
}
|
||
|
|
||
|
1;
|