[PATCH cluster 01/19] datacenter config: add backup concurrency setting

[Thomas Lamprecht <t.lamprecht@proxmox.com>]

Allows configuring how many guests a node backs up at the same time,
as default for all nodes. The node configuration can override it, and
a backup job can only lower it.

The setting is a property string with the per-node limit as default
key, so further limits fit in without changing its type.

Signed-off-by: Thomas Lamprecht <t.lamprecht@proxmox.com>
---
 src/PVE/DataCenterConfig.pm | 28 ++++++++++++++++++++++++++++
 1 file changed, 28 insertions(+)

diff --git a/src/PVE/DataCenterConfig.pm b/src/PVE/DataCenterConfig.pm
index 004122e..baff829 100644
--- a/src/PVE/DataCenterConfig.pm
+++ b/src/PVE/DataCenterConfig.pm
@@ -219,6 +219,18 @@ my $next_id_format = {
     },
 };
 
+my $backup_concurrency_format = {
+    node => {
+        type => 'integer',
+        description => "Maximal number of guests backed up at the same time on each node,"
+            . " unless the node configuration overrides it.",
+        minimum => 1,
+        default => 1,
+        default_key => 1,
+        optional => 1,
+    },
+};
+
 my $u2f_format = {
     appid => {
         type => 'string',
@@ -427,6 +439,12 @@ my $datacenter_schema = {
             format => $replication_format,
             description => "For cluster wide replication settings.",
         },
+        'backup-concurrency' => {
+            optional => 1,
+            type => 'string',
+            format => $backup_concurrency_format,
+            description => "Limits for backing up guests at the same time.",
+        },
         console => {
             optional => 1,
             type => 'string',
@@ -599,6 +617,11 @@ sub parse_datacenter_config {
         $res->{'next-id'} = parse_property_string($next_id_format, $next_id);
     }
 
+    if (my $backup_concurrency = $res->{'backup-concurrency'}) {
+        $res->{'backup-concurrency'} =
+            parse_property_string($backup_concurrency_format, $backup_concurrency);
+    }
+
     if (my $ha = $res->{ha}) {
         $res->{ha} = parse_property_string($ha_format, $ha);
     }
@@ -692,6 +715,11 @@ sub write_datacenter_config {
         $cfg->{'next-id'} = PVE::JSONSchema::print_property_string($next_id, $next_id_format);
     }
 
+    if (ref(my $backup_concurrency = $cfg->{'backup-concurrency'})) {
+        $cfg->{'backup-concurrency'} =
+            PVE::JSONSchema::print_property_string($backup_concurrency, $backup_concurrency_format);
+    }
+
     if (ref(my $ha = $cfg->{ha})) {
         $cfg->{ha} = PVE::JSONSchema::print_property_string($ha, $ha_format);
     }
-- 
2.47.3