Changeset 2396 for trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Cli/Base.pm

Timestamp:

06/13/20 18:55:36 (4 years ago)

Author:

nanardon

Message:

Add config command to la-cli

File:

• trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Cli/Base.pm (modified) (2 diffs)

trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Cli/Base.pm

@@ -58 +58 @@
 
             $env->Help(@_);
+        },
+    });
+
+=head3 config
+
+=over 4
+
+=item config objects
+
+List supported objects type
+
+=item config objects OTYPE
+
+List attribute for OTYPE
+
+=back
+
+=cut
+
+    $self->add_func('config', {
+        completion => sub {
+            if (!$_[2]) {
+                return qw(objects);
+            } elsif ( $_[2] eq 'objects' ) {
+                if (! $_[3] ) {
+                    return $_[0]->base->list_supported_objects;
+                }
+            }
+        },
+        code => sub {
+            my ($self, $cmd, @args) = @_;
+            if (!$cmd) {
+                print $OUT "No command given";
+            } elsif ($cmd eq 'objects') {
+                if ( $args[0] ) {
+                    my $labase = $_[0]->base;
+                    foreach(sort $labase->list_canonical_fields($args[0], 'a')) {
+                        my $attr = $labase->attribute($args[0], $_);
+                        printf $OUT "%s   %s\n", ($attr ? ($attr->ro ? 'r ' : 'rw') : '  '), $_;
+                    }
+                } else {
+                    print $OUT "Supported objects type: ";
+                    print $OUT join(', ', $self->base->list_supported_objects);
+                    print $OUT "\n";
+                }
+            } else {
+                print $OUT "wrong argument\n";
+            }
         },
     });
@@ -225 +273 @@
 Instead displaying attribute list use C<format> as formating string
 
-=item recur
+=item --recur
 
 Dump object and all related objects