only list 'qemu' VMs

This commit is contained in:
Dietmar Maurer 2011-09-26 12:20:05 +02:00
parent 26a3c2e12b
commit 5ee957cced

View File

@ -1640,6 +1640,7 @@ sub config_list {
foreach my $vmid (keys %$ids) {
my $d = $ids->{$vmid};
next if !$d->{node} || $d->{node} ne $nodename;
next if !$d->{type} || $d->{type} ne 'qemu';
$res->{$vmid}->{exists} = 1;
}
return $res;