From 86fbb9597067713edacabaa57084c855beda5b5a Mon Sep 17 00:00:00 2001
From: phamt <phamt@8638fb3e-16cb-4fca-ae20-7b5d299a9bcd>
Date: Fri, 10 Sep 2010 16:17:23 +0000
Subject: [PATCH] Changed output for getting network names.

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@7409 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
---
 perl-xCAT/xCAT/zvmCPUtils.pm | 17 +++++++++++++----
 1 file changed, 13 insertions(+), 4 deletions(-)

diff --git a/perl-xCAT/xCAT/zvmCPUtils.pm b/perl-xCAT/xCAT/zvmCPUtils.pm
index 556155f51..514a240cd 100644
--- a/perl-xCAT/xCAT/zvmCPUtils.pm
+++ b/perl-xCAT/xCAT/zvmCPUtils.pm
@@ -185,14 +185,23 @@ sub getNetworkNames {
 	my @parms;
 	my $names;
 	foreach (@lines) {
-
+		
 		# Trim output
 		$_     = xCAT::zvmUtils->trimStr($_);
 		@parms = split( ' ', $_ );
-
+		
 		# Get the network name
-		if ( $parms[0] eq "LAN" || $parms[0] eq "VSWITCH" ) {
-			$names .= $parms[0] . " " . $parms[2] . "\n";
+		if ( $parms[0] eq "LAN" ) {
+			
+			# Determine if this network is a hipersocket
+			# Only hipersocket guest LANs are supported
+			if ( $_ =~ m/Type: HIPERS/i ) {
+				$names .= $parms[0] . ":HIPERS " . $parms[1] . " " . $parms[2] . "\n";
+			} else {
+				$names .= $parms[0] . ":QDIO " . $parms[1] . " " . $parms[2] . "\n";
+			}
+		} elsif ( $parms[0] eq "VSWITCH" ) {
+			$names .= $parms[0] . " " . $parms[1] . " " . $parms[2] . "\n";
 		}
 	}