27 lines
465 B
Perl
27 lines
465 B
Perl
package Lemonldap::NG::Portal::AuthMulti;
|
|
|
|
use Lemonldap::NG::Portal::_Multi;
|
|
|
|
sub authInit {
|
|
my $self = shift;
|
|
return $self->_multi->try('authInit',0);
|
|
}
|
|
|
|
sub extractFormInfo {
|
|
my $self = shift;
|
|
return $self->_multi->try('extractFormInfo',0);
|
|
}
|
|
|
|
sub setAuthSessionInfo {
|
|
my $self = shift;
|
|
return $self->_multi->try('setAuthSessionInfo',0);
|
|
}
|
|
|
|
sub authenticate {
|
|
my $self = shift;
|
|
return $self->_multi->try('authenticate',0);
|
|
}
|
|
|
|
1;
|
|
|