Add "node" attribute to format_xml() output

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@735 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
sakolish 2008-03-10 12:52:03 +00:00
parent ab451f2e3d
commit a3e77ea4b7

View File

@ -82,7 +82,7 @@ my %mgt = (
lc(TYPE_RSA) => "blade"
);
my @attribs = qw(nodetype model serial groups mgt mpa id);
my @attribs = qw(nodetype model serial groups node mgt mpa id);
my $verbose = 0;
my %ip_addr = ();
my %slp_result = ();
@ -1048,8 +1048,8 @@ sub format_stanza {
#################################
foreach ( @attribs ) {
my $d = $data[$i++];
if ( /^device|ip-addresses|hostname$/ ) {
if ( /^node$/ ) {
next;
} elsif ( /^nodetype$/ ) {
$d = $type;
@ -1101,9 +1101,7 @@ sub format_xml {
foreach ( @attribs ) {
my $d = $data[$i++];
if ( /^device|ip-addresses|hostname$/ ) {
next;
} elsif ( /^nodetype$/ ) {
if ( /^nodetype$/ ) {
$d = $type;
} elsif ( /^groups$/ ) {
$d = "$type,all";
@ -1322,3 +1320,4 @@ sub process_request {