[-use|rname <username>] [-p|assword <password>]
[-log]
-m|achines <host1>,<host2>,...
-
+
<command>
Where:
use lib "$FindBin::Bin/../lib", "$FindBin::Bin/../clearadm/lib";
+use CmdLine;
use Display;
use Logger;
use Rexec;
connectHost $machine;
if ($currentHost) {
- while () {
- display_nolf BOLD . YELLOW . "$machine:" . RESET . WHITE;
+ my $cmdline = CmdLine->new ();
- $cmd = <STDIN>;
+ $cmdline->set_prompt (BOLD . YELLOW . "$machine:" . RESET . WHITE);
+
+ while () {
+ #$cmd = <STDIN>;
+ $cmd = $cmdline->get();
unless ($cmd) {
display '';
} # while
} # if
} # if
-} # for
\ No newline at end of file
+} # for