dani/lemonldap-ng
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Work on authentication choice (#19)

Browse Source
This commit is contained in:
Clément Oudot 2010-09-08 20:16:32 +00:00
parent a565dd555a
commit 61a73e59dd
1 changed files with 30 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

41
modules/lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Simple.pm
View File

@ -213,17 +213,23 @@ sub new {
# Authentication backend choice
#==============================
if ( $self->{authentication} eq 'Choice' ) {
# Get authentication choice
$self->{_authChoice} = $self->param( $self->{authChoiceParam} );
# Check XSS Attack
$self->{_authChoice} = ""
if ( $self->{_authChoice}
and
$self->checkXSSAttack( $self->{authChoiceParam}, $self->{_authChoice} )
if (
$self->{_authChoice}
and $self->checkXSSAttack(
$self->{authChoiceParam},
$self->{_authChoice}
)
);
$self->lmLog( "Authentication choice found in URL: " . $self->{_authChoice},
$self->lmLog(
"Authentication choice found in URL: " . $self->{_authChoice},
'debug' )
if $self->{_authChoice};
@ -242,7 +248,8 @@ sub new {
# Find modules associated to authChoice
my ( $auth, $userDB, $passwordDB ) =
split( /\|/, $self->{authChoiceModules}->{ $self->{_authChoice} } );
split( /\|/,
$self->{authChoiceModules}->{ $self->{_authChoice} } );
if ( $auth and $userDB and $passwordDB ) {
$self->lmLog( "Authentication module $auth selected", 'debug' );
@ -290,14 +297,16 @@ sub new {
if ( $auth and $userDB and $passwordDB ) {
# Options to store in the loop
my $optionsLoop = { name => $name, key => $_, module => $auth };
my $optionsLoop =
{ name => $name, key => $_, module => $auth };
# Get displayType for this module
foreach my $type ( keys %$displayType ) {
foreach my $backend ( @{ $displayType->{$type} } ) {
if ( $auth eq $backend ) {
$self->lmLog( "Display type $type for module $auth",
$self->lmLog(
"Display type $type for module $auth",
'debug' );
$optionsLoop->{$type} = 1;
@ -309,7 +318,8 @@ sub new {
# Register item in loop
push @authLoop, $optionsLoop;
$self->lmLog( "Authentication choice $name will be displayed",
$self->lmLog(
"Authentication choice $name will be displayed",
'debug' );
}
@ -323,6 +333,7 @@ sub new {
$self->{authLoop} = \@authLoop;
}
}
# Push authentication/userDB/passwordDB modules in @ISA
foreach my $type (qw(authentication userDB passwordDB)) {
@ -477,9 +488,6 @@ sub new {
. ')';
}
# Other
$self->{logoutServices} ||= {};
return $self;
}
@ -584,6 +592,14 @@ sub setDefaultValues {
$self->{userDB} ||= "Null";
$self->{passwordDB} ||= "Null";
}
# Set userDB and passwordDB to Null if authentication is Choice
if ( $self->{authentication} =~ /Choice/i ) {
$self->{userDB} = "Null";
$self->{passwordDB} = "Null";
}
# Else default to LDAP
else {
# Default to LDAP
@ -629,6 +645,9 @@ sub setDefaultValues {
$self->{apacheAuthnLevel} = 4 unless defined $self->{apacheAuthnLevel};
$self->{nullAuthnLevel} = 2 unless defined $self->{nullAuthnLevel};
# Other
$self->{logoutServices} ||= {};
}
## @method protected void setHiddenFormValue(string fieldname, string value, string prefix, boolean base64)