Split tests: certificate can exist without having wanted attribute
This commit is contained in:
parent
cf0bb9d98d
commit
01ae2b697d
|
@ -12,8 +12,6 @@ use Lemonldap::NG::Portal::AuthNull;
|
||||||
our $VERSION = '1.2.3';
|
our $VERSION = '1.2.3';
|
||||||
our @ISA = qw(Lemonldap::NG::Portal::AuthNull);
|
our @ISA = qw(Lemonldap::NG::Portal::AuthNull);
|
||||||
|
|
||||||
*authenticate = *extractFormInfo;
|
|
||||||
|
|
||||||
## @apmethod int authInit()
|
## @apmethod int authInit()
|
||||||
# Check if SSL environment variables are set.
|
# Check if SSL environment variables are set.
|
||||||
# @return Lemonldap::NG::Portal constant
|
# @return Lemonldap::NG::Portal constant
|
||||||
|
@ -33,8 +31,13 @@ sub extractFormInfo {
|
||||||
$self->{user} = $user;
|
$self->{user} = $user;
|
||||||
return PE_OK;
|
return PE_OK;
|
||||||
}
|
}
|
||||||
|
elsif ( $ENV{SSL_CLIENT_S_DN} ) {
|
||||||
|
$self->_sub( 'userError',
|
||||||
|
"$self->{SSLVar} was not found in user certificate" );
|
||||||
|
return PE_BADCERTIFICATE;
|
||||||
|
}
|
||||||
else {
|
else {
|
||||||
$self->_sub( 'userError', "No certificate found for " . $self->ipAddr );
|
$self->_sub( 'userError', 'No certificate found' );
|
||||||
return PE_CERTIFICATEREQUIRED;
|
return PE_CERTIFICATEREQUIRED;
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
@ -52,6 +55,13 @@ sub setAuthSessionInfo {
|
||||||
PE_OK;
|
PE_OK;
|
||||||
}
|
}
|
||||||
|
|
||||||
|
## @apmethod int authenticate()
|
||||||
|
# Does nothing, job is done in extractFormInfo()
|
||||||
|
# @return Lemonldap::NG::Portal constant
|
||||||
|
sub authenticate {
|
||||||
|
PE_OK;
|
||||||
|
}
|
||||||
|
|
||||||
## @method string getDisplayType
|
## @method string getDisplayType
|
||||||
# @return display type
|
# @return display type
|
||||||
sub getDisplayType {
|
sub getDisplayType {
|
||||||
|
|
Loading…
Reference in New Issue
Block a user