resolve_alias: use better regex to detect alias
authorDietmar Maurer <dietmar@proxmox.com>
Mon, 3 Nov 2014 05:23:26 +0000 (06:23 +0100)
committerDietmar Maurer <dietmar@proxmox.com>
Mon, 3 Nov 2014 05:23:26 +0000 (06:23 +0100)
src/PVE/Firewall.pm

index 03e75f9..5c46563 100644 (file)
@@ -2202,7 +2202,7 @@ sub parse_clusterfw_option {
 sub resolve_alias {
     my ($clusterfw_conf, $fw_conf, $cidr) = @_;
 
-    if ($cidr !~ m/^\d/) {
+    if ($cidr =~ m/^${ip_alias_pattern}$/) {
        my $alias = lc($cidr);
        my $e = $fw_conf->{aliases}->{$alias} if $fw_conf;
        $e = $clusterfw_conf->{aliases}->{$alias} if !$e && $clusterfw_conf;