Set metadatas when using cli (Closes: #1608)
This commit is contained in:
parent
0a906243e5
commit
aeba3a3cb5
@ -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";
|
||||||
|
Loading…
Reference in New Issue
Block a user