xCAT/xcat-core
2
0
Fork 0
mirror of https://github.com/xcat2/xcat-core.git synced 2025-10-31 03:12:30 +00:00
Code Issues Releases Wiki Activity

Display "node" in format_xml() - Line #537

Browse Source 
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@717 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
sakolish
2008-03-06 20:25:22 +00:00
parent 3c9018d16f
commit 170edacf2a
1 changed files with 4 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
perl-xCAT-2.0/xCAT/PPCscan.pm
View File

@@ -21,7 +21,7 @@ my @header = (
["serial-number", "%-15s" ],
["address", "%s\n" ]);
my @attribs = qw(nodetype name id model serial hcp profile parent groups mgt);
my @attribs = qw(nodetype node id model serial hcp profile parent groups mgt);
my %nodetype = (
fsp => $::NODETYPE_FSP,
bpa => $::NODETYPE_BPA,
@@ -477,7 +477,7 @@ sub format_stanza {
foreach ( @attribs ) {
my $d = $data[$i++];
if ( /^name$/ ) {
if ( /^node$/ ) {
next;
} elsif ( /^nodetype$/ ) {
$d = $nodetype{$d};
@@ -537,9 +537,7 @@ sub format_xml {
foreach ( @attribs ) {
my $d = $data[$i++];
if ( /^name$/ ) {
next;
} elsif ( /^nodetype$/ ) {
if ( /^nodetype$/ ) {
$d = $nodetype{$d};
} elsif ( /^groups$/ ) {
$d = "$type,all";
@@ -600,3 +598,4 @@ sub rscan {