fix #1278 api: add pool backup option

[pve-manager.git] / PVE / API2Tools.pm

diff --git a/PVE/API2Tools.pm b/PVE/API2Tools.pm
index 5ab202b499e413f8b994d01a8a1c0bbb36dddaa1..e79ac9b258b14a36d04cf62c1afc92c1542cd591 100644 (file)
--- a/PVE/API2Tools.pm
+++ b/PVE/API2Tools.pm
@@ -231,4 +231,27 @@ sub resolve_proxyto {
     return $node;
 }
 
+sub get_resource_pool_guest_members {
+    my ($pool) = @_;
+
+    my $usercfg = PVE::Cluster::cfs_read_file("user.cfg");
+
+    my $vmlist = PVE::Cluster::get_vmlist() || {};
+    my $idlist = $vmlist->{ids} || {};
+
+    my $data = $usercfg->{pools}->{$pool};
+
+    die "pool '$pool' does not exist\n"
+       if !$data;
+
+    my $members = [];
+
+    foreach my $vmid (keys %{$data->{vms}}) {
+       my $vmdata = $idlist->{$vmid};
+       next if !$vmdata;
+       push @$members, $vmid;
+    }
+    return $members;
+}
+
 1;