add the lparname for the rscan output in direct attach

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@7800 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
jjhua 2010-10-09 09:16:37 +00:00
parent db5d7b644f
commit 0da2656c76

View File

@ -152,10 +152,12 @@ sub enumerate {
#print "list\n";
#print Dumper(\@list);
foreach my $lpar (@list) {
$lpar =~ /lparid:\s+(\d+),\s+state:/;
my $name = "";
my $lparid = $1;
my $prof = "";
$lpar =~ /lparname:\s+(\w+),\s+lparid:\s+(\d+),\s+state:/;
my $name = $1;
$name =~ s/\-//g;
$name =~ tr/A-Z/a-z/;
my $lparid = $2;
my $prof = $1;
my $server = $fsp;
my $ips = "";
my $port = "";