Changeset 2401

Timestamp:

06/15/20 19:10:38 (4 years ago)

Author:

nanardon

Message:

Handle recursive completion on search cli command

File:

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

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

@@ -130 +130 @@
             help => 'search objecttype filter1 [filter2...] - search object according filter',
             completion => sub {
+                my ($self, $ritem, $rotype) = @_;
                 if(!$_[2]) {
-                    return $_[0]->base->list_supported_objects
-                } else {
+                    return $self->base->list_supported_objects
+                } else {
+                    my $parse;
+                    $parse = sub {
+                        my ($otype, $item) = @_;
+                        $item ||= '';
+                        my ($NegFilter, $attr, $dot, $attrref, $operator, $val) = $item =~ /^([\!\+\-]?)(\w+)(?:(\.)([\.\w]+))?(?:([^\w*]+)(.+))?$/;
+                        if ($dot) {
+                            my $attribute = $self->base->attribute($otype, $attr) or
+                                return ($self->base->list_canonical_fields( $otype, 'r' ) );
+                            my $refotype  = $attribute->reference;
+                            return map { "$attr." . $_ } $parse->($refotype, "$attrref$operator$val" );
+                        } else {
+                            return($self->base->list_canonical_fields($otype, 'r'));
+                        }
+
+                    };
                     return(
                         map { $_, "!$_", "-$_", "+$_" }
-                        map { ( $_ . '=', $_ . '~' ) } $_[0]->base->list_canonical_fields($_[2], 'r')
+                        map { ( $_ . '=', $_ . '~' ) } $parse->( $rotype, $ritem )
                     );
                 }