projects
/
clearscm.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Fixed syntax error
[clearscm.git]
/
bin
/
rexec.pl
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 lib "$FindBin::Bin/../lib", "$FindBin::Bin/../clearadm/lib";
+use CmdLine;
use Display;
use Logger;
use Rexec;
use Display;
use Logger;
use Rexec;
@@
-228,10
+229,13
@@
for my $machine (@{$opts{machines}}) {
connectHost $machine;
if ($currentHost) {
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 '';
unless ($cmd) {
display '';
@@
-251,4
+255,4
@@
for my $machine (@{$opts{machines}}) {
} # while
} # if
} # if
} # while
} # if
} # if
-} # for
\ No newline at end of file
+} # for