OpenID black/white lists
This commit is contained in:
parent
ace5da1302
commit
53fa84e74f
|
@ -12,7 +12,6 @@
|
||||||
|
|
||||||
* default values: TODO, deliver a "0" conf when no conf is available
|
* default values: TODO, deliver a "0" conf when no conf is available
|
||||||
* Forms:
|
* Forms:
|
||||||
* OpenID white/black list
|
|
||||||
* POST replay fields
|
* POST replay fields
|
||||||
|
|
||||||
### REST API:
|
### REST API:
|
||||||
|
|
|
@ -472,8 +472,8 @@ sub authChoiceModules {
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
## @method PSGI-JSON-response $grantSessionRules($req)
|
## @method PSGI-JSON-response grantSessionRules($req)
|
||||||
#Respond to `/conf/:cfgNum` requests by sending configuration metadatas
|
# Split grantSessionRules key=>value into 3 elements
|
||||||
#
|
#
|
||||||
#@param $req Lemonldap::NG::PSGI::Request
|
#@param $req Lemonldap::NG::PSGI::Request
|
||||||
#@return PSGI JSON response
|
#@return PSGI JSON response
|
||||||
|
@ -507,6 +507,19 @@ sub grantSessionRules {
|
||||||
return $self->sendJSONresponse( $req, \@res );
|
return $self->sendJSONresponse( $req, \@res );
|
||||||
}
|
}
|
||||||
|
|
||||||
|
##method PSGI-JSON-response openIdIDPList($req)
|
||||||
|
# Split openIdIDPList parameter into 2 elements
|
||||||
|
sub openIdIDPList {
|
||||||
|
my ( $self, $req, $key ) = @_;
|
||||||
|
return $self->sendError( 'Subkeys forbidden for openIdIDPList', 400 )
|
||||||
|
if ($key);
|
||||||
|
my $value = $self->getConfKey( $req, 'openIdIDPList' );
|
||||||
|
$value //= '0;';
|
||||||
|
my ( $type, $v ) = split /;/, $value;
|
||||||
|
$v //= '';
|
||||||
|
return $self->sendJSONresponse( $req, { value => [ $type, $v ] } );
|
||||||
|
}
|
||||||
|
|
||||||
## @method PSGI-JSON-response metadatas($req)
|
## @method PSGI-JSON-response metadatas($req)
|
||||||
#Respond to `/conf/:cfgNum` requests by sending configuration metadatas
|
#Respond to `/conf/:cfgNum` requests by sending configuration metadatas
|
||||||
#
|
#
|
||||||
|
|
|
@ -475,6 +475,24 @@ sub _scanNodes {
|
||||||
next;
|
next;
|
||||||
}
|
}
|
||||||
|
|
||||||
|
# openIdIDPList: data is splitted by Conf.pm into a boolean and a
|
||||||
|
# string
|
||||||
|
elsif ( $name eq 'openIdIDPList' ) {
|
||||||
|
hdebug('openIdIDPList');
|
||||||
|
if ( $leaf->{data} ) {
|
||||||
|
unless ( ref $leaf->{data} eq 'ARRAY' ) {
|
||||||
|
push @{ $self->{errors} },
|
||||||
|
{ message => 'Malformed openIdIDPList ' . $leaf->{data} };
|
||||||
|
return 0;
|
||||||
|
}
|
||||||
|
$self->set( $name, join( ';', @{ $leaf->{data} } ) );
|
||||||
|
}
|
||||||
|
else {
|
||||||
|
$self->set( $name, undef );
|
||||||
|
}
|
||||||
|
next;
|
||||||
|
}
|
||||||
|
|
||||||
####################
|
####################
|
||||||
# Other hash nodes #
|
# Other hash nodes #
|
||||||
####################
|
####################
|
||||||
|
|
Loading…
Reference in New Issue
Block a user