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 ();
+
+ $cmdline->set_prompt (BOLD . YELLOW . "$machine:" . RESET . WHITE);
- $cmd = <STDIN>;
+ while () {
+ #$cmd = <STDIN>;
+ $cmd = $cmdline->get();
unless ($cmd) {
display '';
} # while
} # if
} # if
-} # for
\ No newline at end of file
+} # for