From aeba3a3cb59c028749c9b287fb6bf9bab73d79cd Mon Sep 17 00:00:00 2001 From: Xavier Guimard Date: Tue, 8 Jan 2019 21:53:13 +0100 Subject: [PATCH] Set metadatas when using cli (Closes: #1608) --- lemonldap-ng-manager/lib/Lemonldap/NG/Manager/Cli.pm | 9 +++++++++ 1 file changed, 9 insertions(+) diff --git a/lemonldap-ng-manager/lib/Lemonldap/NG/Manager/Cli.pm b/lemonldap-ng-manager/lib/Lemonldap/NG/Manager/Cli.pm index 52a8979df..26c3ebb9b 100644 --- a/lemonldap-ng-manager/lib/Lemonldap/NG/Manager/Cli.pm +++ b/lemonldap-ng-manager/lib/Lemonldap/NG/Manager/Cli.pm @@ -248,6 +248,15 @@ sub _save { $saveParams->{cfgNum} = $self->cfgNum; $saveParams->{cfgNumFixed} = 1; } + $new->{cfgAuthor} = 'lmConfigEditor: ' . `whoami`; + chomp $new->{cfgAuthor}; + $new->{cfgAuthorIP} = ''; + $new->{cfgDate} = time; + $new->{cfgVersion} = $VERSION; + $new->{cfgLog} = ''; + $new->{key} ||= + join( '', map { chr( int( rand(94) ) + 33 ) } ( 1 .. 16 ) ); + my $s = $self->mgr->confAcc->saveConf( $new, %$saveParams ); if ( $s > 0 ) { print STDERR "Saved under number $s\n"; -- GitLab