From: Andrew DeFaria <Andrew.DeFaria@Broadcom.com>
Date: Wed, 1 Feb 2017 02:23:03 +0000 (-0800)
Subject: Attempt to add CmdLine to rexec.pl
X-Git-Url: https://defaria.com/gitweb/?a=commitdiff_plain;ds=inline;h=3a0d27e22f7580916ff0ed6fb721ef7cf4702230;p=clearscm.git

Attempt to add CmdLine to rexec.pl

Incomplete.
---

diff --git a/bin/rexec.pl b/bin/rexec.pl
index b76d4b1..1770744 100755
--- a/bin/rexec.pl
+++ b/bin/rexec.pl
@@ -74,6 +74,7 @@ use POSIX ":sys_wait_h";
 
 use lib "$FindBin::Bin/../lib", "$FindBin::Bin/../clearadm/lib";
 
+use CmdLine;
 use Display;
 use Logger;
 use Rexec;
@@ -228,10 +229,13 @@ for my $machine (@{$opts{machines}}) {
     connectHost $machine;
 
     if ($currentHost) {
-      while () {
-        display_nolf BOLD . YELLOW . "$machine:" . RESET . WHITE;
+      my $cmdline = CmdLine->new ();
+
+      $cmdline->set_prompt (BOLD . YELLOW . "$machine:" . RESET . WHITE);
 
-        $cmd = <STDIN>; 
+      while () {
+        #$cmd = <STDIN>;
+        $cmd = $cmdline->get(); 
 
         unless ($cmd) {
           display '';
@@ -251,4 +255,4 @@ for my $machine (@{$opts{machines}}) {
       } # while
     } # if
   } # if
-} # for
\ No newline at end of file
+} # for