die "no such security group '$group'\n" if !$groups_conf->{$group};
- my $rules = $groups_conf->{$group}->{rules};
+ my $rules = $groups_conf->{rules}->{$group};
my $chain = "GROUP-${group}-IN";
my $section;
my $group;
- my $res = { rules => [] };
+ my $res = { rules => {} };
while (defined(my $line = <$fh>)) {
next if $line =~ m/^#/;
next;
}
- push @{$res->{$group}->{$section}}, @$rules;
+ push @{$res->{$section}->{$group}}, @$rules;
}
return $res;
my $hostfw_options = {};
my $hostfw_conf = {};
- $filename = "/etc/pve/local/host.fw";
+ my $filename = "/etc/pve/local/host.fw";
if (my $fh = IO::File->new($filename, O_RDONLY)) {
$hostfw_conf = parse_host_fw_rules($filename, $fh);
$hostfw_options = $hostfw_conf->{options};