fixed a defect for chvm -a

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/branches/2.7@13873 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
linggao 2012-09-21 16:50:51 +00:00
parent 980c22d787
commit 08bfa000a6

View File

@ -1518,7 +1518,7 @@ sub chvm {
foreach $store (split /\|/, $confdata->{vm}->{$node}->[0]->{storage}) {
$store =~ s/,.*//;
$store =~ s/=.*//;
if ($store =~ /^nfs:\/\//) {
if (($store =~ /^nfs:\/\//) || ($store =~ /^dir:\/\//)) {
my %disks = %{get_multiple_paths_by_url(url=>$store,node=>$node)};
foreach (keys %disks) {
$useddisks{$disks{$_}->{device}}=1;
@ -1604,7 +1604,7 @@ sub chvm {
}
$vmxml=$dom->get_xml_description();
} elsif ($confdata->{kvmnodedata}->{$node}->[0]->{xml}) {
my $vmxml=$confdata->{kvmnodedata}->{$node}->[0]->{xml};
$vmxml=$confdata->{kvmnodedata}->{$node}->[0]->{xml};
my $disknode = $parser->parse_balanced_chunk($xml);
my $vmdoc = $parser->parse_string($vmxml);
my $devicesnode = $vmdoc->findnodes("/domain/devices")->[0];