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

Display arrays hashref in CLI get command (#1978)

Browse Source
This commit is contained in:
Clément OUDOT 2021-01-10 16:46:17 +01:00
parent 797c3cfbf1
commit a281d78ba9
1 changed files with 20 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
lemonldap-ng-manager/lib/Lemonldap/NG/Manager/Cli.pm
View File

@ -7,7 +7,7 @@ use Data::Dumper;
use JSON;
use Lemonldap::NG::Common::Conf::ReConstants;
our $VERSION = '2.0.9';
our $VERSION = '2.0.10';
$Data::Dumper::Useperl = 1;
extends('Lemonldap::NG::Manager::Cli::Lib');
@ -43,6 +43,23 @@ sub get {
print "$key has the following keys:\n";
print " $_\n" foreach ( sort keys %$value );
}
elsif ( ref $value eq 'ARRAY' ) {
print "$key is an array with values:\n";
foreach my $avalue ( sort @$value ) {
if ( ref $avalue eq 'HASH' ) {
print "\tHash with following keys:\n";
print "\t\t$_\n" foreach ( sort keys %$avalue );
}
elsif ( ref $value eq 'ARRAY' ) {
print "\tArray with following keys:\n";
print "\t\t$_\n" foreach ( sort @$avalue );
}
else {
$avalue //= '';
print "\tValue = $avalue\n";
}
}
}
else {
$value //= '';
print "$key = $value\n";
@ -337,7 +354,8 @@ sub _setKey {
sub _save {
my ( $self, $new ) = @_;
require Lemonldap::NG::Manager::Conf::Parser;
my $parser = Lemonldap::NG::Manager::Conf::Parser->new( {
my $parser = Lemonldap::NG::Manager::Conf::Parser->new(
{
newConf => $new,
refConf => $self->mgr->hLoadedPlugins->{conf}->currentConf,
req => $self->req