41 lines
753 B
Perl
41 lines
753 B
Perl
## @file
|
|
# UserDB chaining mechanism
|
|
|
|
## @class
|
|
# UserDB chaining mechanism
|
|
package Lemonldap::NG::Portal::UserDBMulti;
|
|
|
|
use Lemonldap::NG::Portal::_Multi; #inherits
|
|
|
|
our $VERSION = '1.4.6';
|
|
|
|
sub userDBInit {
|
|
my $self = shift;
|
|
return $self->_multi->try( 'userDBInit', 1 );
|
|
}
|
|
|
|
sub getUser {
|
|
my $self = shift;
|
|
return $self->_multi->try( 'getUser', 1 );
|
|
}
|
|
|
|
sub setSessionInfo {
|
|
my $self = shift;
|
|
$self->{sessionInfo}->{_userDBMulti} =
|
|
$self->{_multi}->{stack}->[1]->[0]->{n};
|
|
return $self->_multi->try( 'setSessionInfo', 1 );
|
|
}
|
|
|
|
sub setGroups {
|
|
my $self = shift;
|
|
return $self->_multi->try( 'setGroups', 1 );
|
|
}
|
|
|
|
sub userDBFinish {
|
|
my $self = shift;
|
|
return $self->_multi->try( 'userDBFinish', 1 );
|
|
}
|
|
|
|
1;
|
|
|