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

Timestamp:

02/21/19 22:12:59 (5 years ago)

Author:

nanardon

Message:

Add log() function to cli

File:

• trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Cli/Base.pm (modified) (1 diff)

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

@@ -218 +218 @@
             },
     } );
+
+=head2 log
+
+    log [[-o otype ] object]
+
+Show global log or log for the object given in arguments
+
+=cut
+
+    $self->add_func('log' => {
+        proxy => '*',
+        completion => sub { },
+        code => sub {
+            my $env = shift;
+            my @args = $self->getoption({
+                'o|object=s' => \my $otype,
+            }, @_);
+            $otype ||= 'user';
+
+            my @logs = @args
+                ? $self->base->getobjectlogs($otype, $args[0])
+                : $self->base->getlogs();
+
+            foreach (@logs) {
+                $self->print(
+                    "%s (%d), %s: %s/%s (%d) %s\n",
+                    $_->{logdate},
+                    $_->{irev} || -1,
+                    $_->{username},
+                    $_->{otype},
+                    $_->{name},
+                    $_->{ikey},
+                    $_->{message}
+                );
+            }
+        },
+    } );
+
 }