API2::Firewall::IPSet: fix alias check for ipv6 addresses
authorDietmar Maurer <dietmar@proxmox.com>
Mon, 17 Nov 2014 11:41:03 +0000 (12:41 +0100)
committerDietmar Maurer <dietmar@proxmox.com>
Mon, 17 Nov 2014 11:41:03 +0000 (12:41 +0100)
src/PVE/API2/Firewall/IPSet.pm
src/PVE/Firewall.pm

index 60f7105..1266fd1 100644 (file)
@@ -188,7 +188,8 @@ sub register_create_ip {
            }
 
            # make sure alias exists (if $cidr is an alias)
-           PVE::Firewall::resolve_alias($cluster_conf, $fw_conf, $cidr); 
+           PVE::Firewall::resolve_alias($cluster_conf, $fw_conf, $cidr)
+               if $cidr =~ m/^${PVE::Firewall::ip_alias_pattern}$/;
 
            my $data = { cidr => $cidr };
 
index 4935be8..fcbac36 100644 (file)
@@ -39,7 +39,7 @@ eval {
 
 my $security_group_name_pattern = '[A-Za-z][A-Za-z0-9\-\_]+';
 my $ipset_name_pattern = '[A-Za-z][A-Za-z0-9\-\_]+';
-my $ip_alias_pattern = '[A-Za-z][A-Za-z0-9\-\_]+';
+our $ip_alias_pattern = '[A-Za-z][A-Za-z0-9\-\_]+';
 
 my $max_alias_name_length = 64;
 my $max_ipset_name_length = 64;