Attempt to add CmdLine to rexec.pl

Incomplete.

diff --git a/bin/rexec.pl b/bin/rexec.pl
index b76d4b1..1770744 100755 (executable)
--- 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