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

Add info action, and manage configuration information (#649)

Browse Source
This commit is contained in:
Clément Oudot 2014-01-23 13:32:46 +00:00
parent 29363db7e7
commit 8138389344
2 changed files with 38 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lemonldap-ng-manager/example/scripts/lemonldap-ng-cli
View File

@ -28,7 +28,8 @@ sub giveUpPrivileges {
if ( !@ARGV ) {
print STDERR "Usage: $0 <action> <params>\n";
print STDERR "Enter $0 help to get more information\n";
print STDERR "- help: list available actions\n";
print STDERR "- info: view current configuration information\n";
exit 1;
}

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

@ -4,6 +4,7 @@ package Lemonldap::NG::Manager::Cli;
use strict;
use Lemonldap::NG::Common::Conf;
use POSIX qw(strftime);
# Constants
@ -37,6 +38,14 @@ sub new {
# @return Configuration identifier.
sub saveConf {
my ($self) = @_;
$self->{conf}->{cfgAuthor} = "LemonLDAP::NG CLI";
$self->{conf}->{cfgAuthorIP} = "127.0.0.1";
$self->{conf}->{cfgDate} = time();
# Do not increment configuration number
$self->{conf}->{cfgNumFixed} = 1;
my $ret = $self->{confAccess}->saveConf( $self->{conf} );
return $ret;
}
@ -990,6 +999,26 @@ sub reloadUrlDel {
$self->{confModified} = 1;
}
## @method info ()
# print information on configuration
#
# @return nothing
sub info {
my ($self) = @_;
print "Information on current configuration:\n";
print "Number: " . $self->{conf}->{cfgNum} . "\n";
print "Date: "
. strftime( "%Y/%m/%d %Hh%M", localtime( $self->{conf}->{cfgDate} ) )
. "\n"
if defined $self->{conf}->{cfgDate};
print "Author: " . $self->{conf}->{cfgAuthor} . "\n"
if defined $self->{conf}->{cfgAuthor};
print "Author IP: " . $self->{conf}->{cfgAuthorIP} . "\n"
if defined $self->{conf}->{cfgAuthorIP};
}
## @method void help ()
# print help message
#
@ -999,6 +1028,12 @@ sub help {
print STDERR "
Global actions
==============
lemonldap-ng-cli help - display this message
lemonldap-ng-cli info - show current configuration information
Simple parameters (key/value form)
==================================
@ -1116,7 +1151,7 @@ Lemonldap::NG::Manager::Cli - Command Line Interface to edit LemonLDAP::NG confi
=head1 DESCRIPTION
Lemonldap::NG::Manager::Cli allow user to edit the configuration of Lemonldap::NG via the
Lemonldap::NG::Manager::Cli allow user to edit the configuration of LemonLDAP::NG via the
command line.
=head1 SEE ALSO