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

Correct some errors in the stanza and xml output of lsslp

Browse Source 
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@5028 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
wanghuaz 2010-01-25 09:12:14 +00:00
parent 4bd599d58c
commit c3e51d1da8
1 changed files with 13 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
xCAT-server/lib/xcat/plugins/lsslp.pm
View File

@ -96,7 +96,7 @@ my %mgt = (
lc(TYPE_RSA) => "blade"
);
my @attribs = qw(nodetype model serial groups node mgt mpa id side);
my @attribs = qw(nodetype model serial groups node mgt mpa id side ip);
my $verbose = 0;
my %ip_addr = ();
my %slp_result = ();
@ -1479,8 +1479,8 @@ sub parse_responses {
###########################################
# Strip commas from IP list
###########################################
$result[3] =~ s/,/ /g;
my $ip = $result[3];
$result[4] =~ s/,/ /g;
my $ip = $result[4];
###########################################
# Process any extra attributes
@ -1714,6 +1714,11 @@ sub format_stanza {
my $side = $data[3];
my $i = 0;
if ( $name =~ /^([^\(]+)\(([^\)]+)\)$/) {
$name = $1;
$ip = $2;
}
#################################
# Node attributes
#################################
@ -1776,6 +1781,11 @@ sub format_xml {
my $side = $data[3];
my $i = 0;
if ( $name =~ /^([^\(]+)\(([^\)]+)\)$/) {
$name = $1;
$ip = $2;
}
#################################
# Initialize hash reference
#################################