Changeset 2432

Timestamp:

07/03/20 09:49:37 (4 years ago)

Author:

nanardon

Message:

Cli: add completion for log, fix log output

File:

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

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

@@ -503 +503 @@
     $self->add_func('log' => {
         proxy => '*',
-        completion => sub { },
+        completion => sub {
+            my ( $self, @args ) = @_;
+            if ($args[-1] =~ /^(-o|--object)/) {
+                return $self->base->list_supported_objects;
+            } else {
+                my @args = $self->getoption({
+                    'o|object=s' => \my $otype,
+                }, @_);
+                $otype ||= 'user';
+                return ('-o', $self->base->list_objects( $otype ));
+            }
+        },
         code => sub {
             my $env = shift;
@@ -521 +532 @@
 
             foreach (@logs) {
-                $self->print(
+                $self->printf(
                     "%s (%d), %s: %s/%s (%d) %s\n",
                     $_->{logdate},