arif/xcat-core
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

FSP/BPA redundancy: add a function getHMCcontrolIP to get the ips of a node defined by HMC.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@8892 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
yinle 2011-02-19 10:03:49 +00:00
parent 99f4de86e3
commit 7305725c39
1 changed files with 45 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

53
perl-xCAT/xCAT/PPCcli.pm
View File

@ -1293,13 +1293,50 @@ sub rmsysconn
my $result = send_cmd( $exp, $cmd);
return ( $result);
}
##########################################################################
# Get FSP/BPA IP address for the redundancy FSP/BPA from HMC
##########################################################################
sub getHMCcontrolIP
{
my $node = shift;
if (($node) && ($node =~ /xCAT::/))
{
$node = shift;
}
my $exp = shift;
#get node type first
my $type = xCAT::DBobjUtils::getnodetype($node);
unless ($type)
{
return undef;
}
#get node ip from hmc
my $nodes_found = lssyscfg( $exp, "$type", "$node","name,ipaddr,ipaddr_secondary" );
my @ips;
my $ip_result;
if ( @$nodes_found[0] eq SUCCESS ) {
my $Rc = shift(@$nodes_found);
#foreach my $mtms ( @$nodes_found ) {
my @newnodes = split(/,/, $nodes_found->[0]);
if ( $node eq $newnodes[0] ) {
if(xCAT::Utils->isIpaddr($newnodes[1])) {
push @ips, $newnodes[1];
}
if(xCAT::Utils->isIpaddr($newnodes[2])) {
push @ips, $newnodes[2];
}
$ip_result = join( ",", @ips );
}
#}
}
return $ip_result;
}
1;