Changeset 2374

Timestamp:

06/02/20 18:52:41 (4 years ago)

Author:

nanardon

Message:

Add completion on attributes to la-cli search()

Location:

trunk/LATMOS-Accounts/lib/LATMOS/Accounts

Files:

• Cli.pm (modified) (1 diff)
• Cli/Object.pm (modified) (1 diff)

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

@@ -87 +87 @@
                 if(!$_[2]) {
                     return $_[0]->base->list_supported_objects
-                } else { return() }
+                } else {
+                    return(
+                        map { ( $_ . '=', $_ . '~' ) } $_[0]->base->list_canonical_fields($_[2], 'r')
+                    );
+                }
             },
             code => sub {

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

@@ -95 +95 @@
         }
     );
+    $self->add_func('search', {
+        help => 'search objecttype filter1 [filter2...] - search object according filter',
+        completion => sub {
+
+            return(
+                map { ( $_ . '=', $_ . '~' ) } $_[0]->base->list_canonical_fields($_[0]->{_otype}, 'r')
+            );
+        },
+        code => sub {
+            my ($self, @args) = @_;
+            if ($_[1]) {
+                my @res = $self->base->search_objects($self->{_otype}, @args);
+                print $OUT map { "$_\n" } @res;
+                $self->{_lastsearch} = \@res;
+                $self->{_lastsearchtype} = $args[0];
+            } else {
+                print $OUT "Object type missing\n";
+            }
+        },
+    });
+
     $self->add_func('sort', {
         help => 'Sort the selection according attribute',