Avoid warning

merge-requests/133/head
Christophe Maudoux 5 years ago
parent dd9e849b3e
commit fed127b526
  1. 9
      lemonldap-ng-manager/lib/Lemonldap/NG/Manager/Cli.pm

@ -237,7 +237,8 @@ sub _getKey {
warn "Malformed key $base"; warn "Malformed key $base";
return (); return ();
} }
my $value = $self->mgr->hLoadedPlugins->{conf}->getConfKey( $self->req, $base, noCache => 1 ); my $value = $self->mgr->hLoadedPlugins->{conf}
->getConfKey( $self->req, $base, noCache => 1 );
if ( $self->req->error ) { if ( $self->req->error ) {
die $self->req->error; die $self->req->error;
} }
@ -310,11 +311,13 @@ sub _save {
"CLI: Configuration $s has been saved by $new->{cfgAuthor}"); "CLI: Configuration $s has been saved by $new->{cfgAuthor}");
$self->logger->info("CLI: Configuration $s saved"); $self->logger->info("CLI: Configuration $s saved");
print STDERR "Saved under number $s\n"; print STDERR "Saved under number $s\n";
$parser->{status} = [ $self->mgr->hLoadedPlugins->{conf}->applyConf($new) ]; $parser->{status} =
[ $self->mgr->hLoadedPlugins->{conf}->applyConf($new) ];
} }
else { else {
$self->logger->error("CLI: Configuration not saved!"); $self->logger->error("CLI: Configuration not saved!");
printf STDERR "Modifications rejected: %s:\n", $parser->{message}; printf STDERR "Modifications rejected: %s:\n", $parser->{message}
if $parser->{message};
print STDERR Dumper($parser); print STDERR Dumper($parser);
} }
foreach (qw(errors warnings status)) { foreach (qw(errors warnings status)) {

Loading…
Cancel
Save