|
|
@ -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)) { |
|
|
|