Use GlobalDef $::NODETYPE_XXX - Line #419

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@485 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
sakolish 2008-02-14 19:55:23 +00:00
parent ed83a29103
commit 9e8f0dd5fb

View File

@ -7,6 +7,7 @@ use Socket;
use XML::Simple;
use xCAT::PPCcli qw(SUCCESS EXPECT_ERROR RC_ERROR NR_ERROR);
use xCAT::PPCdb;
use xCAT::GlobalDef;
##############################################
@ -416,9 +417,9 @@ sub format_stanza {
my $result;
my @attribs = qw(nodetype name id model serial hcp profile parent groups mgt);
my %nodetype = (
fsp => "fsp",
bpa => "bpa",
lpar => "lpar,osi"
fsp => $::NODETYPE_FSP,
bpa => $::NODETYPE_BPA,
lpar =>"$::NODETYPE_LPAR,$::NODETYPE_OSI"
);
#####################################
@ -545,3 +546,4 @@ sub rscan {
1;