alias API: implement rename

diff --git a/src/PVE/API2/Firewall/Aliases.pm b/src/PVE/API2/Firewall/Aliases.pm
index 86393e6d29192b03bf485997475e6a758b9380c2..a3a379455bdbf6f795853f7952a00d4441c0f9cf 100644 (file)
--- a/src/PVE/API2/Firewall/Aliases.pm
+++ b/src/PVE/API2/Firewall/Aliases.pm
@@ -15,10 +15,14 @@ my $api_properties = {
        type => 'string', format => 'IPv4orCIDR',
     },
     name => get_standard_option('pve-fw-alias'),
        type => 'string', format => 'IPv4orCIDR',
     },
     name => get_standard_option('pve-fw-alias'),

+    rename => get_standard_option('pve-fw-alias', {
+       description => "Rename an existing alias.",
+       optional => 1,
+    }),

     comment => {
        type => 'string',
        optional => 1,
     comment => {
        type => 'string',
        optional => 1,

-    }
+    },

 };
 
 sub load_config {
 };
 
 sub load_config {


@@ -149,7 +153,6 @@ sub register_read_alias {
     my $properties = $class->additional_parameters();
 
     $properties->{name} = $api_properties->{name};
     my $properties = $class->additional_parameters();
 
     $properties->{name} = $api_properties->{name};

-    $properties->{cidr} = $api_properties->{cidr};

     
     $class->register_method({
        name => 'read_alias',
     
     $class->register_method({
        name => 'read_alias',


@@ -181,6 +184,7 @@ sub register_update_alias {
     my $properties = $class->additional_parameters();
 
     $properties->{name} = $api_properties->{name};
     my $properties = $class->additional_parameters();
 
     $properties->{name} = $api_properties->{name};

+    $properties->{rename} = $api_properties->{rename};

     $properties->{cidr} = $api_properties->{cidr};
     $properties->{comment} = $api_properties->{comment};
     $properties->{digest} = get_standard_option('pve-config-digest');
     $properties->{cidr} = $api_properties->{cidr};
     $properties->{comment} = $api_properties->{comment};
     $properties->{digest} = get_standard_option('pve-config-digest');


@@ -216,7 +220,19 @@ sub register_update_alias {
 
            $aliases->{$name} = $data;
 
 
            $aliases->{$name} = $data;
 

+           my $rename = lc($param->{rename});
+
+           if ($rename && ($name ne $rename)) {
+               raise_param_exc({ name => "alias '$param->{rename}' already exists" }) 
+                   if defined($aliases->{$rename});
+               $aliases->{$name}->{name} = $param->{rename};
+               $aliases->{$rename} = $aliases->{$name};
+               delete $aliases->{$name};
+           }
+

            $class->save_aliases($param, $fw_conf, $aliases);
            $class->save_aliases($param, $fw_conf, $aliases);

+
+           return undef;

        }});
 }
 
        }});
 }