implement delete parameter for rule update API

[pve-firewall.git] / src / PVE / Firewall.pm

diff --git a/src/PVE/Firewall.pm b/src/PVE/Firewall.pm
index 8fd0f482c6353b38f3989f13e6862e3fb53a7c42..6d4127e8585917c51c841497959d902a8a8620cd 100644 (file)
--- a/src/PVE/Firewall.pm
+++ b/src/PVE/Firewall.pm
@@ -775,6 +775,20 @@ sub add_rule_properties {
     return $properties;
 }
 
     return $properties;
 }
 

+sub delete_rule_properties {
+    my ($rule, $delete_str) = @_;
+    
+    foreach my $opt (PVE::Tools::split_list($delete_str)) {
+       raise_param_exc({ 'delete' => "no such property ('$opt')"})
+           if !defined($rule_properties->{$opt});
+       raise_param_exc({ 'delete' => "unable to delete required property '$opt'"})
+           if $opt eq 'type' || $opt eq 'action';
+       delete $rule->{$opt};
+    }
+
+    return $rule;
+}
+

 sub copy_rule_data {
     my ($rule, $param) = @_;
 
 sub copy_rule_data {
     my ($rule, $param) = @_;