From 96483c24fe7cb94bc7bf33c8e248d446af51d783 Mon Sep 17 00:00:00 2001
From: sakolish <sakolish@8638fb3e-16cb-4fca-ae20-7b5d299a9bcd>
Date: Fri, 25 Apr 2008 19:26:19 +0000
Subject: [PATCH] Changed LPAR creation

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@1207 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
---
 perl-xCAT-2.0/xCAT/PPCvm.pm | 172 +++++++++++++++++++-----------------
 1 file changed, 89 insertions(+), 83 deletions(-)

diff --git a/perl-xCAT-2.0/xCAT/PPCvm.pm b/perl-xCAT-2.0/xCAT/PPCvm.pm
index 5f12ac5fe..bdc5999c7 100644
--- a/perl-xCAT-2.0/xCAT/PPCvm.pm
+++ b/perl-xCAT-2.0/xCAT/PPCvm.pm
@@ -740,92 +740,97 @@ sub create {
     my $opt     = $request->{opt};
     my @values  = ();
     my $result;
+    my $lpar;
+    my $d;
+    my $lparid;
+    my $mtms;
+    my $type;
 
-    while (my ($mtms,$h) = each(%$hash) ) {
-        while (my ($lpar,$d) = each(%$h) ) {
-            my $lparid = @$d[0];
-            my $mtms   = @$d[2];
-            my $type   = @$d[4];
-
-            #####################################
-            # Must be CEC or LPAR 
-            #####################################
-            if ( $type !~ /^(lpar|fsp)$/ ) {
-                push @values, [$lpar,"Node must be LPAR or CEC",RC_ERROR];
-                next; 
-            }
-            #####################################
-            # Clone all the LPARs on CEC 
-            #####################################
-            if ( exists( $opt->{c} )) {
-                my $result = clone( $exp, $lpar, $opt->{c}, $d );
-                foreach ( @$result ) { 
-                    my $Rc = shift(@$_);
-                    push @values, [$opt->{c}, @$_[0], $Rc];
-                }
-                next; 
-            }
-            #####################################
-            # Get source LPAR profile  
-            #####################################
-            my $prof = xCAT::PPCcli::lssyscfg(
-                                      $exp,
-                                      "prof",
-                                      $mtms,   
-                                      $lparid ); 
-            my $Rc = shift(@$prof);
-
-            #####################################
-            # Return error
-            #####################################
-            if ( $Rc != SUCCESS ) {
-                push @values, [$lpar, @$prof[0], $Rc];
-                next;
-            } 
-            #####################################
-            # Get command-line options 
-            #####################################
-            my $id   = $opt->{i};
-            my $name = $opt->{n};
-            my $cfgdata = @$prof[0];
-
-            #####################################
-            # Modify read-back profile. 
-            # See HMC or IVM mksyscfg man  
-            # page for valid attributes.
-            #
-            #####################################
-            if ( $hwtype eq "hmc" ) {
-                $cfgdata =~ s/^name=[^,]+|$/profile_name=$name/;
-                $cfgdata =~ s/lpar_name=[^,]+|$/name=$name/;
-                $cfgdata =~ s/lpar_id=[^,]+|$/lpar_id=$id/;
-            }
-            elsif ( $hwtype eq "ivm" ) {
-                $cfgdata =~ s/^name=[^,]+|$/name=$name/;
-                $cfgdata =~ s/lpar_id=[^,]+|$/lpar_id=$id/;
-            }
-            $cfgdata = strip_profile( $cfgdata, $hwtype );
-
-            #####################################
-            # Create new LPAR  
-            #####################################
-            $result = xCAT::PPCcli::mksyscfg( $exp, $d, $cfgdata ); 
-            $Rc = shift(@$result);
-
-            #####################################
-            # Add new LPAR to database 
-            #####################################
-            if ( $Rc == SUCCESS ) {
-                my $err = xCATdB( "mkvm", $name, $id, $d, $hwtype, $lpar );
-                if ( defined( $err )) {
-                    push @values, [$name,$err,RC_ERROR];
-                    next;
-                }
-            }
-            push @values, [$name,@$result[0],$Rc];
+    #####################################
+    # Get source node information
+    #####################################
+    while ( my ($cec,$h) = each(%$hash) ) {
+        while ( my ($name,$data) = each(%$h) ) {
+            $d      = $data;
+            $lparid = @$d[0];
+            $mtms   = @$d[2];
+            $type   = @$d[4];
+            $lpar   = $name;
         }
     }
-    return( \@values );
+    #####################################
+    # Must be CEC or LPAR 
+    #####################################
+    if ( $type !~ /^(lpar|fsp)$/ ) {
+        return( [[$lpar,"Node must be LPAR or CEC",RC_ERROR]] );
+    }
+    #####################################
+    # Clone all the LPARs on CEC 
+    #####################################
+    if ( exists( $opt->{c} )) {
+        my $result = clone( $exp, $lpar, $opt->{c}, $d );
+        foreach ( @$result ) { 
+            my $Rc = shift(@$_);
+            push @values, [$opt->{c}, @$_[0], $Rc];
+        }
+        return( \@values ); 
+    }
+    #####################################
+    # Get source LPAR profile  
+    #####################################
+    my $prof = xCAT::PPCcli::lssyscfg(
+                              $exp,
+                              "prof",
+                              $mtms,   
+                              $lparid ); 
+    my $Rc = shift(@$prof);
+
+    #####################################
+    # Return error
+    #####################################
+    if ( $Rc != SUCCESS ) {
+        return( [[$lpar, @$prof[0], $Rc]] );
+    } 
+    #####################################
+    # Get command-line options 
+    #####################################
+    my $id   = $opt->{i};
+    my $name = $opt->{n};
+    my $cfgdata = @$prof[0];
+
+    #####################################
+    # Modify read-back profile. 
+    # See HMC or IVM mksyscfg man  
+    # page for valid attributes.
+    #
+    #####################################
+    if ( $hwtype eq "hmc" ) {
+        $cfgdata =~ s/^name=[^,]+|$/profile_name=$name/;
+        $cfgdata =~ s/lpar_name=[^,]+|$/name=$name/;
+        $cfgdata =~ s/lpar_id=[^,]+|$/lpar_id=$id/;
+    }
+    elsif ( $hwtype eq "ivm" ) {
+        $cfgdata =~ s/^name=[^,]+|$/name=$name/;
+        $cfgdata =~ s/lpar_id=[^,]+|$/lpar_id=$id/;
+    }
+    $cfgdata = strip_profile( $cfgdata, $hwtype );
+
+    #####################################
+    # Create new LPAR  
+    #####################################
+    $result = xCAT::PPCcli::mksyscfg( $exp, $d, $cfgdata ); 
+    $Rc = shift(@$result);
+
+    #####################################
+    # Add new LPAR to database 
+    #####################################
+    if ( $Rc == SUCCESS ) {
+        my $err = xCATdB( "mkvm", $name, $id, $d, $hwtype, $lpar );
+        if ( defined( $err )) {
+            return( [[$name,$err,RC_ERROR]] );
+        }
+    }
+    return( [[$name,@$result[0],$Rc]] );
 }
 
 
@@ -973,3 +978,4 @@ sub lsvm {
 
 
 
+