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