Finish get() + doc

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

@@ -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