From 0da2656c76f74402890b5e1367b0f7969ae14f3d Mon Sep 17 00:00:00 2001
From: jjhua <jjhua@8638fb3e-16cb-4fca-ae20-7b5d299a9bcd>
Date: Sat, 9 Oct 2010 09:16:37 +0000
Subject: [PATCH] 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
---
 perl-xCAT/xCAT/FSPscan.pm | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/perl-xCAT/xCAT/FSPscan.pm b/perl-xCAT/xCAT/FSPscan.pm
index 3a1e32802..8353b3ee5 100644
--- a/perl-xCAT/xCAT/FSPscan.pm
+++ b/perl-xCAT/xCAT/FSPscan.pm
@@ -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 = "";