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

modify --vpdtable output the stanza file format data.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@9920 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
yinle 2011-06-24 09:24:13 +00:00
parent a86e923469
commit e4c549f4b8
1 changed files with 6 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -3045,22 +3045,19 @@ sub format_table {
my $outhash = shift;
my $result;
$result = "\n#node,serial,mtm,side,asset,comments,disable\n";
#####################################
# Create XML formatted attributes
#####################################
foreach my $name ( keys %$outhash ) {
my @data = @{ $outhash->{$name}};
my $type = lc($data[0]);
my $mtm = $data[1];
my $serial = $data[2];
my $side = $data[3];
next if ($type =~ /^(fsp|bpa)$/);
if ( $side =~ /^N\/A$/ ) {
$result .= ",\"$serial\",\"$mtm\",,,\"$type\",\n";
} else {
$result .= ",\"$serial\",\"$mtm\",\"$side\",,\"$type\",\n";
}
$result .= "$name:\n";
#$result .= "groups=frame,all\n";
$result .= "\tobjtype=node\n";
#$result .= "\tnodetype=$type\n";
$result .= "\tmtm=$data[1]\n";
$result .= "\tserial=$data[2]\n";
}
return( $result );