dani/lemonldap-ng
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Improve cli logs (#1750)

Browse Source
This commit is contained in:
Xavier 2019-05-14 22:05:30 +02:00
parent 1f1eeab9c8
commit cf297736b5
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lemonldap-ng-manager/lib/Lemonldap/NG/Manager/Cli.pm
View File

@ -31,6 +31,8 @@ has yes => ( is => 'rw', isa => 'Bool', default => 0 );
has force => ( is => 'rw', isa => 'Bool', default => 0 );
has log => ( is => 'rw' );
sub get {
my ( $self, @keys ) = @_;
die 'get requires at least one key' unless (@keys);
@ -250,10 +252,10 @@ sub _save {
}
$new->{cfgAuthor} = 'lmConfigEditor: ' . `whoami`;
chomp $new->{cfgAuthor};
$new->{cfgAuthorIP} = '';
$new->{cfgAuthorIP} = '127.0.0.1';
$new->{cfgDate} = time;
$new->{cfgVersion} = $VERSION;
$new->{cfgLog} = '';
$new->{cfgVersion} = $Lemonldap::NG::Manager::VERSION;
$new->{cfgLog} = $self->log || '';
$new->{key} ||= join( '',
map { chr( int( ord( Crypt::URandom::urandom(1) ) * 94 / 256 ) + 33 ) }
( 1 .. 16 ) );
@ -395,6 +397,10 @@ Set it to 1 to save a configuration earlier than latest
Confirmation array line format. Default to "%-25s | %-25s | %-25s"
=head3 log()
String to insert in configuration log field (cfgLog)
=head2 run()
The main method: it reads option, command and launch the corresponding