X-Git-Url: https://defaria.com/gitweb/?a=blobdiff_plain;f=bin%2Frexec.pl;h=17707444b92c0a2aa08b9950a828e6f092df8364;hb=6a2567b97fac905d746342687bcec4ca8cb30386;hp=b76d4b144b19a24d30bdfa45446ac4367ac083c2;hpb=9956e403ab89bc984faf9cb22a8860a34c310ac7;p=clearscm.git

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