b72d79a30b
- Create userDBFinish, passwordDBFinish and registerDBFinish methods - Call finish methods for each backend in process - Call LDAP unbind only when necessary - Unbind if error in RegisterDBLDAP
57 lines
1.1 KiB
Perl
57 lines
1.1 KiB
Perl
##@file
|
|
# Choice user backend file
|
|
|
|
##@class
|
|
# Choice user backend class
|
|
package Lemonldap::NG::Portal::UserDBChoice;
|
|
|
|
use strict;
|
|
use Lemonldap::NG::Portal::_Choice;
|
|
use Lemonldap::NG::Portal::Simple;
|
|
|
|
#inherits Lemonldap::NG::Portal::_Choice
|
|
|
|
our $VERSION = '1.4.0';
|
|
|
|
## @apmethod int userDBInit()
|
|
# Does nothing
|
|
# @return Lemonldap::NG::Portal constant
|
|
sub userDBInit {
|
|
my $self = shift;
|
|
return $self->_choice->try( 'userDBInit', 1 );
|
|
}
|
|
|
|
## @apmethod int getUser()
|
|
# Does nothing
|
|
# @return Lemonldap::NG::Portal constant
|
|
sub getUser {
|
|
my $self = shift;
|
|
return $self->_choice->try( 'getUser', 1 );
|
|
}
|
|
|
|
## @apmethod int setSessionInfo()
|
|
# Does nothing
|
|
# @return Lemonldap::NG::Portal constant
|
|
sub setSessionInfo {
|
|
my $self = shift;
|
|
return $self->_choice->try( 'setSessionInfo', 1 );
|
|
}
|
|
|
|
## @apmethod int setGroups()
|
|
# Does nothing
|
|
# @return Lemonldap::NG::Portal constant
|
|
sub setGroups {
|
|
my $self = shift;
|
|
return $self->_choice->try( 'setGroups', 1 );
|
|
}
|
|
|
|
## @apmethod int userDBFinish()
|
|
# Does nothing
|
|
# @return Lemonldap::NG::Portal constant
|
|
sub userDBFinish {
|
|
my $self = shift;
|
|
return $self->_choice->try( 'userDBFinish', 1 );
|
|
}
|
|
|
|
1;
|