Commit 5a6742f3 authored by Xavier Guimard's avatar Xavier Guimard

Finish get() + doc

parent 2c512dbc
......@@ -17,26 +17,44 @@ has cfgNum => (
}
);
has sep => ( is => 'rw', isa => 'Str', default => '/' );
has req => ( is => 'ro' );
sub get {
my ( $self, @values ) = @_;
$self->cfgNum( $self->lastCfg ) unless ( $self->cfgNum );
die 'get requires at least one key' unless (@values);
my $sep = $self->sep;
L: foreach my $key (@values) {
unless ( $key =~ /^\w+(?:\/[\w\.]+)*$/ ) {
warn "Unknown key $key";
my ($base,@path) = split $sep, $key;
unless ( $base =~ /^\w+$/ ) {
warn "Malformed key $base";
next L;
}
my $value = $self->mgr->getConfKey( $self->req, $base );
if($self->req->error) {
die $self->req->error;
}
if(ref $value eq 'HASH') {
while(my $next = shift @path) {
unless(exists $value->{$next}) {
warn "Unknown subkey $next for $key";
next L;
}
$value = $value->{$next};
}
}
elsif(@path) {
warn "No subkeys for $base";
next L;
}
my $value = $self->mgr->getConfKey( $self->req, $key );
#$value = Dumper($value);
#$value =~ s/\$VAR1/$key/;
#print $value;
if(ref $value eq 'HASH') {
print "$key has the following keys:\n";
print " $_\n" foreach(sort keys %$value);
print " $_\n" foreach(sort keys %$value);
}
else {
$value //= '';
print "$key = $value\n";
}
}
......@@ -49,12 +67,22 @@ sub lastCfg {
sub run {
my $self = shift;
# Options simply call corresponding accessor
while ($_[0] =~ s/^--?//) {
my $k = shift;
my $v = shift;
eval { $self->$k($v) };
if($@) {
die "Unknown option -$k or bad value ($@)";
}
}
unless (@_) {
die 'nothing to do, aborting';
}
my $action = shift;
unless ( $action =~ /^(?:get|set)$/ ) {
die "unknown action $action";
unless ( $action =~ /^(?:get|set|addKey|delKey)$/ ) {
die "unknown action $action. Only get, set, addKey or delKey are accepted";
}
$self->$action(@_);
}
......@@ -73,3 +101,130 @@ sub params {
}
1;
__END__
=head1 NAME
=encoding utf8
Lemonldap::NG::Manager::Cli - Command line manager for Lemonldap::NG web SSO
system.
=head1 SYNOPSIS
#!/usr/bin/env perl
use warnings;
use strict;
use Lemonldap::NG::Manager::Cli;
# Optional: you can specify here some parameters
my $cli = Lemonldap::NG::Manager::Cli->new(iniFile=>'t/lemonldap-ng.ini');
$cli->run(@ARGV);
or use llng-manager-cli provides with this package.
llng-manager-cli <options> <command> <keys>
=head1 DESCRIPTION
Lemonldap::NG::Manager provides a web interface to manage Lemonldap::NG Web-SSO
system.
Lemonldap::NG Manager::Cli provides a command line client to read or modify
configuration.
=head1 METHODS
=head2 ACCESSORS
All accessors can be set using the command line: just set a '-' before their
names. Example
llng-manager-cli -sep ',' get macros,_whatToTrace
=head3 iniFile()
The lemonldap-ng.ini file to use is not default value.
=head3 sep()
The key separator, default to '/'. For example to read the value of macro
_whatToTrace using ',', use:
llng-manager-cli -sep ',' get macros,_whatToTrace
=head3 cfgNum()
The configuration number. If not set, it will use the latest configuration.
=head2 run()
The main method: it reads option, command and launch the corresponding
subroutine.
=head3 Commands
=head4 get
Using get, you can read several keys. Example:
llng-manager-cli get portal cookieName domain
=head1 SEE ALSO
L<Lemonldap::NG::Manager>, L<http://lemonldap-ng.org/>
=head1 AUTHORS
Original idea from David Delassus in 2012.
=over
=item Clement Oudot, E<lt>clem.oudot@gmail.comE<gt>
=item David Delassus, E<lt>linkdd@cpan.orgE<gt>
=item François-Xavier Deltombe, E<lt>fxdeltombe@gmail.com.E<gt>
=item Xavier Guimard, E<lt>x.guimard@free.frE<gt>
=item Thomas Chemineau, E<lt>thomas.chemineau@gmail.comE<gt>
=back
=head1 BUG REPORT
Use OW2 system to report bug or ask for features:
L<http://jira.ow2.org>
=head1 DOWNLOAD
Lemonldap::NG is available at
L<http://forge.objectweb.org/project/showfiles.php?group_id=274>
=head1 COPYRIGHT AND LICENSE
=over
=item Copyright (C) 2015 by Xavier Guimard, E<lt>x.guimard@free.frE<gt>
=item Copyright (C) 2015 by Clément Oudot, E<lt>clem.oudot@gmail.comE<gt>
=back
This library is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 2, or (at your option)
any later version.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with this program. If not, see L<http://www.gnu.org/licenses/>.
=cut
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