fix bug 3534769: NGP->rspconfig passwd can not work

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/branches/2.7@13073 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
zhaoertao 2012-06-13 06:50:59 +00:00
parent 832571e724
commit 1dc4df9e61

View File

@ -4073,11 +4073,11 @@ sub clicmds {
}
my $Rc=1;
if ($t and not $t->atprompt) { #we sshed in, but we may be forced to deal with initial password set
my $output = $t->get();
if ($output =~ /Enter current password/) {
if (defined($handled{USERID})) {
$promote_pass = $handled{USERID};
}
my $output = $t->get();
if ($output =~ /Enter current password/) {
$t->print($currpass);
$t->waitfor(-match=>"/password:/i");
$t->print($promote_pass);