Add update_service_config to the HA environment interface and simulation

Signed-off-by: Fabian Ebner <f.ebner@proxmox.com>

diff --git a/src/PVE/HA/Env.pm b/src/PVE/HA/Env.pm
index bb37486f46dbf6c8182758754df751b0220edc81..ac569a9fd83407e9e6fad9e167fbf75900cb1d39 100644 (file)
--- a/src/PVE/HA/Env.pm
+++ b/src/PVE/HA/Env.pm
@@ -87,6 +87,12 @@ sub read_service_config {
     return $self->{plug}->read_service_config();
 }
 
+sub update_service_config {
+    my ($self, $sid, $param) = @_;
+
+    return $self->{plug}->update_service_config($sid, $param);
+}
+
 sub parse_sid {
     my ($self, $sid) = @_;
 

diff --git a/src/PVE/HA/Env/PVE2.pm b/src/PVE/HA/Env/PVE2.pm
index 796acd9fab3535327fc53e21bab22b45c7d086fc..83145dc55133c4e8e41b3bbc87718357c77717f3 100644 (file)
--- a/src/PVE/HA/Env/PVE2.pm
+++ b/src/PVE/HA/Env/PVE2.pm
@@ -120,6 +120,12 @@ sub read_service_config {
     return PVE::HA::Config::read_and_check_resources_config();
 }
 
+sub update_service_config {
+    my ($self, $sid, $param) = @_;
+
+    return PVE::HA::Config::update_resources_config($sid, $param);
+}
+
 sub parse_sid {
     my ($self, $sid) = @_;
 

diff --git a/src/PVE/HA/Sim/Env.pm b/src/PVE/HA/Sim/Env.pm
index 22e13e6f97787c1fc2f8f278da85b209c16c4386..b28670884231733b57211af2150d5ebf58ba86fb 100644 (file)
--- a/src/PVE/HA/Sim/Env.pm
+++ b/src/PVE/HA/Sim/Env.pm
@@ -203,6 +203,12 @@ sub read_service_config {
     return $self->{hardware}->read_service_config();
 }
 
+sub update_service_config {
+    my ($self, $sid, $param) = @_;
+
+    return $self->{hardware}->update_service_config($sid, $param);
+}
+
 sub parse_sid {
     my ($self, $sid) = @_;
 

diff --git a/src/PVE/HA/Sim/Hardware.pm b/src/PVE/HA/Sim/Hardware.pm
index 9c0ad059389ba4599b0e5a6ec94a4a2ae3ff41f8..3cdc85bd56ba91daa0f0f54f613bd0aa6cbba27e 100644 (file)
--- a/src/PVE/HA/Sim/Hardware.pm
+++ b/src/PVE/HA/Sim/Hardware.pm
@@ -109,6 +109,20 @@ sub read_service_config {
     return $conf;
 }
 
+sub update_service_config {
+    my ($self, $sid, $param) = @_;
+
+    my $conf = $self->read_service_config();
+
+    my $sconf = $conf->{$sid} || die "no such resource '$sid'\n";
+
+    foreach my $k (%$param) {
+       $sconf->{$k} = $param->{$k};
+    }
+
+    $self->write_service_config($conf);
+}
+
 sub write_service_config {
     my ($self, $conf) = @_;