From 3a0d27e22f7580916ff0ed6fb721ef7cf4702230 Mon Sep 17 00:00:00 2001
From: Andrew DeFaria <Andrew.DeFaria@Broadcom.com>
Date: Tue, 31 Jan 2017 18:23:03 -0800
Subject: [PATCH] Attempt to add CmdLine to rexec.pl

Incomplete.
---
 bin/rexec.pl | 12 ++++++++----
 1 file changed, 8 insertions(+), 4 deletions(-)

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
-- 
2.17.1