git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@13256 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd

This commit is contained in:
phamt 2012-07-09 13:46:18 +00:00
parent 26e70ec83c
commit 8f2acc5719

View File

@ -1579,6 +1579,16 @@ sub inventoryVM {
# Get inputs
my ( $callback, $node, $args ) = @_;
# Output string
my $str = "";
# Check if node is pingable
if (`nodestat $node | egrep -i "noping"`) {
$str = "$node: (Error) Host is unreachable";
xCAT::zvmUtils->printLn( $callback, "$str" );
return;
}
# Get node properties from 'zvm' table
my @propNames = ( 'hcp', 'userid' );
@ -1598,10 +1608,7 @@ sub inventoryVM {
return;
}
# Capitalize user ID
$userId =~ tr/a-z/A-Z/;
# Output string
my $str = "";
$userId =~ tr/a-z/A-Z/;
# Load VMCP module
xCAT::zvmCPUtils->loadVmcp($node);