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

Add comments

Browse Source
This commit is contained in:
Xavier Guimard 2015-06-21 19:52:22 +00:00
parent baa2be3d78
commit 12a5b71f35
3 changed files with 11 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lemonldap-ng-common/lib/Lemonldap/NG/Common/Conf/DefaultValues.pm
View File

@ -1,4 +1,4 @@
# This file is generated by scripts/jsongenerator.pl. Don't modify it by hand
# This file is generated by ./scripts/jsongenerator.pl. Don't modify it by hand
package Lemonldap::NG::Common::Conf::DefaultValues;
our $VERSION = '2.0.0';

2
lemonldap-ng-manager/lib/Lemonldap/NG/Manager/Constants.pm
View File

@ -1,4 +1,4 @@
# This file is generated by scripts/jsongenerator.pl. Don't modify it by hand
# This file is generated by ./scripts/jsongenerator.pl. Don't modify it by hand
package Lemonldap::NG::Manager::Constants;
use strict;

11
lemonldap-ng-manager/scripts/jsongenerator.pl Normal file → Executable file
View File

@ -1,4 +1,4 @@
#!/usr/bin/env perl -w
#!/usr/bin/env perl -Ilib/ -w
use strict;
@ -60,6 +60,7 @@ $jsonEnc->canonical(1);
# 1. confTree.js
unless ( $opts{f} ) {
$mainTree = Lemonldap::NG::Manager::CTrees::cTrees();
my $script =
'function templates(tpl,key){'
. 'var ind;'
@ -69,6 +70,9 @@ unless ( $opts{f} ) {
. '"title":r,'
. '"get":tpl+"s/"+key+"/"+r' . '};' . '};'
. 'switch(tpl){';
# To build confTree.js, each special node is scanned from
# Lemonldap::NG::Manager::CTrees
foreach my $node ( sort keys $mainTree ) {
@cnodesKeys = ();
my $jsonTree = [];
@ -78,14 +82,17 @@ unless ( $opts{f} ) {
$tmp =~ s/"(true|false)"/$1/sg;
$tmp =~ s/:\s*"(\d+)"\s*(["\}])/:$1$2/sg;
$script .= "case'$node':return$tmp;";
# Second step, Manager/Constants.pm file will contain datas issued from
# this scan
my $ra = Regexp::Assemble->new;
# Build $oidcOPMetaDataNodeKeys, $samlSPMetaDataNodeKeys,...
foreach my $r (@cnodesKeys) {
$ra->add($r);
}
$cnodesRe{$node} = $ra->as_string;
#print Dumper( $jsonTree);
push @ignoreKeys, $node;
}
$script .= 'default:return [];}}';