Commit b372c147 authored by Christophe Maudoux's avatar Christophe Maudoux

Merge branch 'master' of gitlab.ow2.org:lemonldap-ng/lemonldap-ng

parents ebbf6956 2c814679
...@@ -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";
......
...@@ -7,6 +7,7 @@ use Data::Dumper; ...@@ -7,6 +7,7 @@ use Data::Dumper;
use English qw(-no_match_vars); use English qw(-no_match_vars);
use File::Temp; use File::Temp;
use POSIX qw(setuid setgid); use POSIX qw(setuid setgid);
use Safe;
use strict; use strict;
eval { eval {
......
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