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

Parse conf (#1988)

Browse Source
This commit is contained in:
Christophe Maudoux 2019-10-27 17:17:58 +01:00
parent 85b9095f7e
commit 836add81c0
2 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lemonldap-ng-common/lib/Lemonldap/NG/Common/Conf/RESTServer.pm
View File

@ -195,12 +195,14 @@ sub virtualHosts {
type => 'keyText',
};
# If rule contains a comment, split it
# If rule contains a comment or an AuthLevel, split them
if ( $query eq 'locationRules' ) {
$res->{comment} = '';
$res->{level} = '';
if ( $r =~ s/\(\?#(.*?)\)// ) {
$res->{title} = $res->{comment} = $1;
}
$res->{level} = $1 if ( $r =~ s/\(\?#AuthnLevel=(-?\d+)\)// );
$res->{re} = $r;
$res->{type} = 'rule';
}

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

@ -264,8 +264,9 @@ sub _scanNodes {
hdebug(' locationRules');
my $k =
$leaf->{comment}
? "(?#$leaf->{comment}&AuthnLevel=$leaf->{level})$leaf->{re}"
: "(?#&AuthnLevel=$leaf->{level})$leaf->{re}";
? "(?#$leaf->{comment})$leaf->{re}"
: $leaf->{re};
$k .= "(?#AuthnLevel=$leaf->{level})" if $leaf->{level};
$self->set( $target, $key, $k, $leaf->{data} );
}
else {