Clean old files (#1151)

This commit is contained in:
Xavier Guimard 2017-02-24 11:32:53 +00:00
parent 538c723b8c
commit d65e8e5bd4
2 changed files with 0 additions and 60 deletions

View File

@ -31,7 +31,6 @@ lib/Lemonldap/NG/Portal/Auth/SSL.pm
lib/Lemonldap/NG/Portal/Auth/Twitter.pm
lib/Lemonldap/NG/Portal/Auth/WebID.pm
lib/Lemonldap/NG/Portal/Auth/Yubikey.pm
lib/Lemonldap/NG/Portal/AuthMulti.pm
lib/Lemonldap/NG/Portal/CDC.pm
lib/Lemonldap/NG/Portal/Issuer/CAS.pm
lib/Lemonldap/NG/Portal/Issuer/Get.pm

View File

@ -1,59 +0,0 @@
## @file
# Authentication chaining mechanism
## @class
# Authentication chaining mechanism
package Lemonldap::NG::Portal::AuthMulti;
use Lemonldap::NG::Portal::_Multi; #inherits
our $VERSION = '2.0.0';
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;
$self->{sessionInfo}->{_authMulti} =
$self->{_multi}->{stack}->[0]->[0]->{n};
return $self->_multi->try( 'setAuthSessionInfo', 0 );
}
sub authenticate {
my $self = shift;
return $self->_multi->try( 'authenticate', 0 );
}
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;
$self->_sub('authInit');
my $s = $self->{_multi}->{last}->[0] . "::authForce";
return &{$s}($self);
}
sub getDisplayType {
my $self = shift;
return unless defined $self->{_multi}->{last};
my $s = $self->{_multi}->{last}->[0] . "::getDisplayType";
return &{$s};
}
1;