From 702a38cb1f026524a326657099b8801a52c6a3a4 Mon Sep 17 00:00:00 2001 From: sakolish Date: Thu, 6 Mar 2008 18:29:07 +0000 Subject: [PATCH] Allow node name to be different from name known by HCP git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@711 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd --- perl-xCAT-2.0/xCAT/PPCvm.pm | 93 +++++++++++++++++++++++-------------- 1 file changed, 58 insertions(+), 35 deletions(-) diff --git a/perl-xCAT-2.0/xCAT/PPCvm.pm b/perl-xCAT-2.0/xCAT/PPCvm.pm index 8d9162f1b..e12d6a6ec 100644 --- a/perl-xCAT-2.0/xCAT/PPCvm.pm +++ b/perl-xCAT-2.0/xCAT/PPCvm.pm @@ -391,63 +391,85 @@ sub clone { # Always one source CEC specified ##################################### my $lparid = @$srcd[0]; + my $mtms = @$srcd[2]; my $type = @$srcd[4]; ##################################### # Not supported on IVM ##################################### if ( $hwtype eq "ivm" ) { - return( [RC_ERROR,"Not supported for IVM"] ); + return( [[RC_ERROR,"Not supported for IVM"]] ); } ##################################### # Source must be CEC ##################################### if ( $type ne "fsp" ) { - return( [RC_ERROR,"Node must be an FSP"] ); + return( [[RC_ERROR,"Node must be an FSP"]] ); } + ##################################### + # Find Destination CEC + ##################################### + my $tab = xCAT::Table->new( "vpd" ); + + ##################################### + # Error opening vpd database + ##################################### + if ( !defined( $tab )) { + return( [[RC_ERROR, "Error opening 'vpd' database"]] ); + } + my ($ent) = $tab->getAttribs({node=>$dest}, qw(mtm serial)); + + ##################################### + # Node not found + ##################################### + if ( !defined( $ent )) { + return( [[RC_ERROR,"Destination '$dest' not in 'vpd' database"]] ); + } + ##################################### + # Attributes not found + ##################################### + if ( !exists( $ent->{mtm} ) or !exists( $ent->{serial} )) { + return( [[RC_ERROR,"Attributes not in 'vpd' database"]] ); + } + my $destmtms = "$ent->{mtm}*$ent->{serial}"; + ##################################### # Enumerate CECs ##################################### - my $cecs = xCAT::PPCcli::lssyscfg( $exp, "fsps", "name" ); + my $filter = "type_model,serial_num"; + my $cecs = xCAT::PPCcli::lssyscfg( $exp, "fsps", $filter ); my $Rc = shift(@$cecs); ##################################### # Return error ##################################### if ( $Rc != SUCCESS ) { - return( [$Rc, @$cecs[0]] ); + return( [[$Rc, @$cecs[0]]] ); } ##################################### - # Find source CEC + # Find source/dest CEC ##################################### foreach ( @$cecs ) { - if ( $src eq $_ ) { + s/(.*),(.*)/$1*$2/; + + if ( $_ eq $mtms ) { $srccec = $_; - last; - } + } elsif ( $_ eq $destmtms ) { + $destcec = $destmtms; + } } ##################################### # Source CEC not found ##################################### if ( !defined( $srccec )) { - return( [RC_ERROR,"Source CEC '$src' not found"] ); + return( [[RC_ERROR,"Source CEC '$src' not found"]] ); } ##################################### - # Find destination CEC - ##################################### - foreach ( @$cecs ) { - if ( $dest eq $_ ) { - $destcec = $_; - last; - } - } - ##################################### # Destination CEC not found ##################################### if ( !defined( $destcec )) { - return( [RC_ERROR,"Destination CEC '$dest' not found on '$server'"] ); + return([[RC_ERROR,"Destination CEC '$dest' not found on '$server'"]]); } - ##################################### # Get all LPARs on source CEC ##################################### @@ -455,7 +477,7 @@ sub clone { my $result = xCAT::PPCcli::lssyscfg( $exp, "lpar", - $src, + $srccec, $filter ); $Rc = shift(@$result); @@ -463,7 +485,7 @@ sub clone { # Return error ##################################### if ( $Rc != SUCCESS ) { - return( [$Rc, @$result[0]] ); + return( [[$Rc, @$result[0]]] ); } ##################################### # Get profile for each LPAR @@ -477,7 +499,7 @@ sub clone { my $prof = xCAT::PPCcli::lssyscfg( $exp, "prof", - $src, + $srccec, $id ); $Rc = shift(@$prof); @@ -486,7 +508,7 @@ sub clone { # Return error ################################# if ( $Rc != SUCCESS ) { - return( [$Rc, @$prof[0]] ); + return( [[$Rc, @$prof[0]]] ); } ################################# # Save LPAR profile @@ -510,7 +532,7 @@ sub clone { ################################# my @temp = @$srcd; $temp[0] = $lparid; - $temp[2] = $dest; + $temp[2] = $destcec; my $result = xCAT::PPCcli::mksyscfg( $exp, \@temp, $cfg ); $Rc = shift(@$result); @@ -521,17 +543,17 @@ sub clone { if ( $Rc == SUCCESS ) { my $err = xCATdB( "mkvm", $srcd, $lparid, $name, $hwtype ); if ( defined( $err )) { - push @values, $err, 1; + push @values, [$err, RC_ERROR]; } next; } ################################# # Error - Save error ################################# - push @values, @$result[0], $Rc; + push @values, [@$result[0], $Rc]; } if ( !scalar(@values) ) { - return( [SUCCESS,"Success"]); + return( [[SUCCESS,"Success"]]); } return( \@values ); } @@ -558,7 +580,7 @@ sub remove { # Must be CEC or LPAR #################################### if ( $type !~ /^lpar|fsp$/ ) { - push @values, [$lpar,"Node must be LPAR or CEC",1]; + push @values, [$lpar, "Node must be LPAR or CEC", RC_ERROR]; next; } #################################### @@ -617,7 +639,7 @@ sub remove { if ( $Rc == SUCCESS ) { my $err = xCATdB( "rmvm", $name ); if ( defined( $err )) { - push @values, [$lpar,$err,1]; + push @values, [$lpar,$err,RC_ERROR]; next; } } @@ -653,7 +675,7 @@ sub modify { if ( $cfgdata !~ /^name=/ ) { my $text = "Invalid file format: must begin with 'name='"; - return( [[$name,$text,1]] ); + return( [[$name,$text,RC_ERROR]] ); } ####################################### @@ -709,7 +731,7 @@ sub list { # Must be CEC or LPAR #################################### if ( $type !~ /^lpar|fsp$/ ) { - push @values, [$lpar,"Node must be LPAR or CEC",1]; + push @values, [$lpar,"Node must be LPAR or CEC",RC_ERROR]; next; } #################################### @@ -804,7 +826,7 @@ sub create { # Must be CEC or LPAR ##################################### if ( $type !~ /^lpar|fsp$/ ) { - push @values, [$lpar,"Node must be LPAR or CEC",1]; + push @values, [$lpar,"Node must be LPAR or CEC",RC_ERROR]; next; } ##################################### @@ -812,7 +834,7 @@ sub create { ##################################### if ( exists( $opt->{c} )) { my $result = clone( $exp, $lpar, $opt->{c}, $d ); - foreach ( @$result ) { + foreach ( @$result ) { my $Rc = shift(@$_); push @values, [$opt->{c}, @$_[0], $Rc]; } @@ -871,7 +893,7 @@ sub create { if ( $Rc == SUCCESS ) { my $err = xCATdB( "mkvm", $name, $id, $d, $hwtype, $lpar ); if ( defined( $err )) { - push @values, [$name,$err,1]; + push @values, [$name,$err,RC_ERROR]; next; } } @@ -1023,3 +1045,4 @@ sub lsvm { 1; +