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

OpenID black/white lists

Browse Source
This commit is contained in:
Xavier Guimard 2016-01-03 16:57:30 +00:00
parent ace5da1302
commit 53fa84e74f
3 changed files with 33 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lemonldap-ng-manager/TODO.md
View File

@ -12,7 +12,6 @@
* default values: TODO, deliver a "0" conf when no conf is available
* Forms:
* OpenID white/black list
* POST replay fields
### REST API:

17
lemonldap-ng-manager/lib/Lemonldap/NG/Manager/Conf.pm
View File

@ -472,8 +472,8 @@ sub authChoiceModules {
}
}
## @method PSGI-JSON-response $grantSessionRules($req)
#Respond to `/conf/:cfgNum` requests by sending configuration metadatas
## @method PSGI-JSON-response grantSessionRules($req)
# Split grantSessionRules key=>value into 3 elements
#
#@param $req Lemonldap::NG::PSGI::Request
#@return PSGI JSON response
@ -507,6 +507,19 @@ sub grantSessionRules {
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)
#Respond to `/conf/:cfgNum` requests by sending configuration metadatas
#

18
lemonldap-ng-manager/lib/Lemonldap/NG/Manager/ConfParser.pm
View File

@ -475,6 +475,24 @@ sub _scanNodes {
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 #
####################