arif/xcat-core
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

fix for bug 3060242: chvm supports "cat vmdef | chvm nodename"

Browse Source 
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@7368 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
ligc 2010-09-07 07:38:03 +00:00
parent 731a83e959
commit e130863d82
1 changed files with 36 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
perl-xCAT/xCAT/PPCvm.pm
View File

@ -793,6 +793,42 @@ sub modify_by_attr {
my $attrstr= $opt->{a};
my @values;
# attrstr will be in stdin for "cat vmdef | chvm nodename"
if (!defined($attrstr) && defined($request->{stdin})) {
my $tempattr = $request->{stdin};
$tempattr =~ s/\s+$//;
$tempattr =~ s/^[\w]+: //;
my $newcfg = strip_profile( $tempattr, $hwtype );
$newcfg =~ s/,*lpar_env=[^,]+|$//;
$newcfg =~ s/,*all_resources=[^,]+|$//;
$newcfg =~ s/,*lpar_name=[^,]+|$//;
$newcfg =~ s/\\\"/\"/g;
my @cfgarray = split /,/, $newcfg;
##########################################
# Repair those lines splitted incorrectly
##########################################
my @newcfgarray;
my $full_line;
while (my $line = shift( @cfgarray))
{
if ( !$full_line)
{
$full_line = $line;
}
else
{
$full_line = "$full_line,$line";
}
if ( $full_line =~ /^[^\"]/ or $full_line =~ /^\".+\"$/)
{
$full_line =~ s/^\"(.+)\"$/$1/;
push @newcfgarray, $full_line;
$full_line = undef;
next;
}
}
$attrstr = \@newcfgarray;
}
if ( defined( $attrstr )) {
###################################
# Get LPAR active profiles