2010-10-02 17:45:10 +02:00
|
|
|
## @file
|
|
|
|
# Authentication chaining mechanism
|
|
|
|
|
|
|
|
## @class
|
|
|
|
# Authentication chaining mechanism
|
2009-03-08 09:50:58 +01:00
|
|
|
package Lemonldap::NG::Portal::AuthMulti;
|
|
|
|
|
2010-10-02 17:45:10 +02:00
|
|
|
use Lemonldap::NG::Portal::_Multi; #inherits
|
2009-03-08 09:50:58 +01:00
|
|
|
|
2010-11-20 16:05:40 +01:00
|
|
|
our $VERSION = '1.0.0';
|
2009-06-08 18:29:13 +02:00
|
|
|
|
2009-03-08 09:50:58 +01:00
|
|
|
sub authInit {
|
|
|
|
my $self = shift;
|
2009-10-12 18:55:35 +02:00
|
|
|
return $self->_multi->try( 'authInit', 0 );
|
2009-03-08 09:50:58 +01:00
|
|
|
}
|
|
|
|
|
|
|
|
sub extractFormInfo {
|
|
|
|
my $self = shift;
|
2009-10-12 18:55:35 +02:00
|
|
|
return $self->_multi->try( 'extractFormInfo', 0 );
|
2009-03-08 09:50:58 +01:00
|
|
|
}
|
|
|
|
|
|
|
|
sub setAuthSessionInfo {
|
|
|
|
my $self = shift;
|
2009-10-12 18:55:35 +02:00
|
|
|
return $self->_multi->try( 'setAuthSessionInfo', 0 );
|
2009-03-08 09:50:58 +01:00
|
|
|
}
|
|
|
|
|
|
|
|
sub authenticate {
|
|
|
|
my $self = shift;
|
2009-10-12 18:55:35 +02:00
|
|
|
return $self->_multi->try( 'authenticate', 0 );
|
2009-03-08 09:50:58 +01:00
|
|
|
}
|
|
|
|
|
2010-09-01 10:59:39 +02:00
|
|
|
sub authFinish {
|
|
|
|
my $self = shift;
|
|
|
|
return $self->_multi->try( 'authFinish', 0 );
|
|
|
|
}
|
|
|
|
|
|
|
|
sub authLogout {
|
|
|
|
my $self = shift;
|
|
|
|
return $self->_multi->try( 'authLogout', 0 );
|
|
|
|
}
|
|
|
|
|
|
|
|
sub authForce {
|
|
|
|
my $self = shift;
|
|
|
|
return $self->_multi->try( 'authForce', 0 );
|
|
|
|
}
|
|
|
|
|
2009-03-08 09:50:58 +01:00
|
|
|
1;
|
|
|
|
|