/usr/share/perl5/Lemonldap/NG/Portal/AuthMulti.pm is in liblemonldap-ng-portal-perl 1.9.16-2.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 | ## @file
# Authentication chaining mechanism
## @class
# Authentication chaining mechanism
package Lemonldap::NG::Portal::AuthMulti;
use Lemonldap::NG::Portal::_Multi; #inherits
our $VERSION = '1.9.6';
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 authPostStore {
my $self = shift;
return $self->_multi->try( 'authPostStore', 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;
|