Changeset 2443

Timestamp:

10/01/20 13:53:40 (4 years ago)

Author:

nanardon

Message:

Add who commande

File:

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

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

@@ -299 +299 @@
         }
     );
+
+=head3 who
+
+    Give the login of connected user if any
+
+=cut
+
+    $self->add_func( 'who',
+        {
+            code => sub {
+                my ( $self, $setting, $value ) = @_;
+                $self->printf("%s\n",  $self->base->user || 'No connected user');
+            },
+            completion => sub {
+            },
+        }
+    );
+    $self->add_func('id',  { alias => [ qw'who' ] });
 
 =head3 collection