Changeset 2464

Timestamp:

03/24/21 11:55:24 (3 years ago)

Author:

nanardon

Message:

Allow to pipe command to la-cli

Location:

trunk/LATMOS-Accounts/lib/LATMOS/Accounts

Files:

• Cli.pm (modified) (3 diffs)
• Cli/Base.pm (modified) (6 diffs)

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

@@ -181 +181 @@
         },
     }) if ($self->base->can('find_expired_users'));
+
     $self->add_func('expires', {
         help => 'expires [delay] - list account expiring before delay (default is 1 month)',
@@ -191 +192 @@
         },
     }) if ($self->base->can('find_next_expire_users'));
-    $self->add_func('select', {
+
+    $self->add_func(
+        'select',
+        {
             help => 'select object_type - select objects to perform action on it',
             completion => sub {
@@ -231 +235 @@
                 )->cli();
             },
-        });
+        }
+    );
 
 =head2 testpass

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

@@ -156 +156 @@
 =cut
 
-    $self->add_func('quit', {
-            code => sub { $self->print("\n"); exit(0) }, });
+    $self->add_func(
+        'quit', 
+        {
+            code => sub {
+                $self->print("\n");
+                $self->_exit();
+                exit(0) 
+            },
+        }
+    );
 
 =head3 exit
@@ -165 +173 @@
 =cut
 
-    $self->add_func('exit', {
-            code => sub { return "EXIT" }, });
+    $self->add_func(
+        'exit',
+        {
+            code => sub { return "EXIT" },
+        }
+    );
+
+=head3 top
+
+Exit from any selection context
+
+=cut
+
+    $self->add_func(
+        'top',
+        {
+            code => sub { return "TOP" },
+        }
+    );
 
 =head3 !
@@ -723 +748 @@
     $self->Context->ReadHistory();
     $self->cli();
-    if (! $self->Context->WriteHistory() ) {
-        warn "Cannot write history:  $!\n";
+    $self->_exit();
+}
+
+sub _exit {
+    my ( $self ) = @_;
+ 
+    if ( -t ) {
+        if (! $self->Context->WriteHistory() ) {
+            warn "Cannot write history:  $!\n";
+        }
     }
     $self->Context->WritePreferences();
@@ -741 +774 @@
 
     while (1) {
-        $term->Attribs->{completion_function} = sub {
-            my ($Op, $Shell, @args) = $self->_parse_cmd_line(substr($_[1], 0, $_[2]));
-            $Op ||= '';
-            my $attribs = $self->Context->Term->Attribs;
-            if ($Op eq '>') {
-                $term->completion_matches($Shell, $attribs->{'filename_completion_function'});
-            } elsif ($Op eq '|') {
-                $term->completion_matches($Shell, $attribs->{'filename_completion_function'});
-            } else  {
-                $self->complete($_[0], @args);
-            }
-        };
+        if ( -t ) {
+            $term->Attribs->{completion_function} = sub {
+                my ($Op, $Shell, @args) = $self->_parse_cmd_line(substr($_[1], 0, $_[2]));
+                $Op ||= '';
+                my $attribs = $self->Context->Term->Attribs;
+                if ($Op eq '>') {
+                    $term->completion_matches($Shell, $attribs->{'filename_completion_function'});
+                } elsif ($Op eq '|') {
+                    $term->completion_matches($Shell, $attribs->{'filename_completion_function'});
+                } else  {
+                    $self->complete($_[0], @args);
+                }
+            };
+        }
         defined (my $line = $term->readline($self->prompt)) or do {
             $self->print("\n");
@@ -771 +806 @@
         }
         $self->rollback if (!$self->Context->TransMode);
-        if ($res && $res eq 'EXIT') { $self->print("\n"); return }
+        if ($res) {
+            if ( $res eq 'EXIT' ) {
+                $self->print("\n");
+                return
+            } elsif ( $res eq 'TOP' ) {
+                if ( $self->isa('LATMOS::Accounts::Cli::Object') ) {
+                    return 'TOP'
+                } else {
+                    $self->print("\n");
+                }
+            }
+        }
     }
 }
@@ -788 +834 @@
 sub prompt {
     my ($self) = @_;
+    if (! -t ) { return '> ' }
     my $pr = $self->promptPrefix;
     return sprintf(