Commit aeba3a3c authored by Xavier Guimard's avatar Xavier Guimard

Set metadatas when using cli (Closes: #1608)

parent 0a906243
Pipeline #3873 passed with stages
in 11 minutes and 35 seconds
...@@ -248,6 +248,15 @@ sub _save { ...@@ -248,6 +248,15 @@ sub _save {
$saveParams->{cfgNum} = $self->cfgNum; $saveParams->{cfgNum} = $self->cfgNum;
$saveParams->{cfgNumFixed} = 1; $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 ); my $s = $self->mgr->confAcc->saveConf( $new, %$saveParams );
if ( $s > 0 ) { if ( $s > 0 ) {
print STDERR "Saved under number $s\n"; print STDERR "Saved under number $s\n";
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment