if ($line =~ m!^(\S+)\s+(\S+)/(tcp|udp).*$!) {
$services->{byid}->{$2}->{name} = $1;
+ $services->{byid}->{$2}->{port} = $2;
$services->{byid}->{$2}->{$3} = 1;
$services->{byname}->{$1} = $services->{byid}->{$2};
}
my $nbports = 0;
foreach my $item (split(/,/, $str)) {
my $portlist = "";
+ my $oldpon = undef;
foreach my $pon (split(':', $item, 2)) {
+ $pon = $services->{byname}->{$pon}->{port} if $services->{byname}->{$pon}->{port};
if ($pon =~ m/^\d+$/){
die "invalid port '$pon'\n" if $pon < 0 && $pon > 65535;
+ die "port '$pon' must be bigger than port '$oldpon' \n" if $oldpon && ($pon < $oldpon);
+ $oldpon = $pon;
}else{
die "invalid port $services->{byname}->{$pon}\n" if !$services->{byname}->{$pon};
}
my $ruleset = {};
- # setup host firewall rules
ruleset_create_chain($ruleset, "PVEFW-INPUT");
ruleset_create_chain($ruleset, "PVEFW-OUTPUT");
+ ruleset_create_chain($ruleset, "PVEFW-FORWARD");
ruleset_create_chain($ruleset, "PVEFW-SET-ACCEPT-MARK");
ruleset_addrule($ruleset, "PVEFW-SET-ACCEPT-MARK", "-j MARK --set-mark 1");
+ my $enable_hostfw = 0;
$filename = "/etc/pve/local/host.fw";
if (my $fh = IO::File->new($filename, O_RDONLY)) {
my $host_rules = parse_host_fw_rules($filename, $fh);
+
+ $enable_hostfw = 1;
+
enablehostfw($ruleset, $host_rules, $group_rules);
}
# generate firewall rules for QEMU VMs
foreach my $vmid (keys %{$vmdata->{qemu}}) {
my $conf = $vmdata->{qemu}->{$vmid};
+
next if !$rules->{$vmid};
+ my $options = $rules->{$vmid}->{options};
+ next if defined($options->{enable}) && ($options->{enable} == 0);
foreach my $netid (keys %$conf) {
next if $netid !~ m/^net(\d+)$/;
$bridge .= "v$net->{tag}" if $net->{tag};
+
generate_bridge_chains($ruleset, $bridge);
my $macaddr = $net->{macaddr};
}
}
- # allow traffic from lo (ourself)
- ruleset_addrule($ruleset, "PVEFW-INPUT", "-i lo -j ACCEPT");
+ if ($enable_hostfw) {
+ # allow traffic from lo (ourself)
+ ruleset_addrule($ruleset, "PVEFW-INPUT", "-i lo -j ACCEPT");
+ }
return $ruleset;
}
}
foreach my $chain (keys %$statushash) {
next if $statushash->{$chain}->{action} ne 'delete';
+ next if $chain eq 'PVEFW-INPUT';
+ next if $chain eq 'PVEFW-OUTPUT';
+ next if $chain eq 'PVEFW-FORWARD';
$cmdlist .= "-X $chain\n";
}