my $outside_iface = 'eth0';
my $outside_bridge = 'vmbr0';
+my $nfvm_iface = 'tapXYZ';
+my $nfvm_bridge = 'vmbr0';
+
my $debug = 0;
sub print_usage_and_exit {
}
}
+sub nf_dev_match {
+ my ($devre, $dev) = @_;
+
+ $devre =~ s/\+$/\.\*/;
+ return ($dev =~ m/^${devre}$/) ? 1 : 0;
+}
+
sub rule_match {
my ($chain, $rule, $pkg) = @_;
}
if ($rule =~ s/^-i (\S+)\s*//) {
+ my $devre = $1;
die "missing iface_in" if !$pkg->{iface_in};
- return undef if $pkg->{iface_in} ne $1; # no match
+ return undef if !nf_dev_match($devre, $pkg->{iface_in});
}
if ($rule =~ s/^-o (\S+)\s*//) {
+ my $devre = $1;
die "missing iface_out" if !$pkg->{iface_out};
- return undef if $pkg->{iface_out} ne $1; # no match
+ return undef if !nf_dev_match($devre, $pkg->{iface_out});
}
if ($rule =~ s/^-p (tcp|udp)\s*//) {
if ($rule =~ s/^-m physdev --physdev-is-bridged --physdev-in (\S+)\s*//) {
my $devre = $1;
- $devre =~ s/\+/\.\*/;
return undef if !$pkg->{physdev_in};
- return undef if $pkg->{physdev_in} !~ m/^${devre}$/;
+ return undef if !nf_dev_match($devre, $pkg->{physdev_in});
}
if ($rule =~ s/^-m physdev --physdev-is-bridged --physdev-out (\S+)\s*//) {
my $devre = $1;
- $devre =~ s/\+/\.\*/;
return undef if !$pkg->{physdev_out};
- return undef if $pkg->{physdev_out} !~ m/^${devre}$/;
+ return undef if !nf_dev_match($devre, $pkg->{physdev_out});
}
if ($rule =~ s/^-j MARK --set-mark (\d+)\s*$//) {
add_trace("ENTER chain $chain\n");
- my $counter = 2; # ENTER + LEAVE = 2
+ my $counter = 0;
if ($chain eq 'PVEFW-Drop') {
add_trace("LEAVE chain $chain\n");
if ($route_state eq 'from-outside') {
$next_route_state = $outside_bridge || die 'internal error';
$next_physdev_in = $outside_iface || die 'internal error';
+ } elsif ($route_state eq 'from-nfvm') {
+ $next_route_state = $nfvm_bridge || die 'internal error';
+ $next_physdev_in = $nfvm_iface || die 'internal error';
} elsif ($route_state eq 'host') {
if ($target->{type} eq 'outside') {
$pkg->{iface_out} = $outside_bridge;
$chain = 'PVEFW-OUTPUT';
$next_route_state = $outside_iface
+ } elsif ($target->{type} eq 'nfvm') {
+ $pkg->{iface_in} = 'lo';
+ $pkg->{iface_out} = $nfvm_bridge;
+ $chain = 'PVEFW-OUTPUT';
+ $next_route_state = $nfvm_iface
} elsif ($target->{type} eq 'ct') {
$pkg->{iface_in} = 'lo';
$pkg->{iface_out} = 'venet0';
$pkg->{iface_out} = $outside_bridge;
$next_route_state = $outside_iface;
+ } elsif ($target->{type} eq 'nfvm') {
+
+ $chain = 'PVEFW-FORWARD';
+ $pkg->{iface_in} = 'venet0';
+ $pkg->{iface_out} = $nfvm_bridge;
+ $next_route_state = $nfvm_iface;
+
} elsif ($target->{type} eq 'vm') {
$chain = 'PVEFW-FORWARD';
} elsif ($route_state =~ m/^vmbr\d+$/) {
die "missing physdev_in - internal error?" if !$physdev_in;
+ $pkg->{physdev_in} = $physdev_in;
if ($target->{type} eq 'host') {
$chain = 'PVEFW-FORWARD';
$pkg->{iface_in} = $route_state;
$pkg->{iface_out} = $outside_bridge;
- $pkg->{physdev_in} = $physdev_in;
# conditionally set physdev_out (same behavior as kernel)
if ($route_state eq $outside_bridge) {
$pkg->{physdev_out} = $outside_iface || die 'internal error';
}
$next_route_state = $outside_iface;
+ } elsif ($target->{type} eq 'nfvm') {
+
+ $chain = 'PVEFW-FORWARD';
+ $pkg->{iface_in} = $route_state;
+ $pkg->{iface_out} = $nfvm_bridge;
+ # conditionally set physdev_out (same behavior as kernel)
+ if ($route_state eq $nfvm_bridge) {
+ $pkg->{physdev_out} = $nfvm_iface || die 'internal error';
+ }
+ $next_route_state = $nfvm_iface;
+
} elsif ($target->{type} eq 'ct') {
$chain = 'PVEFW-FORWARD';
$chain = 'PVEFW-FORWARD';
$pkg->{iface_in} = $route_state;
$pkg->{iface_out} = $target->{bridge};
- $pkg->{physdev_in} = $physdev_in;
# conditionally set physdev_out (same behavior as kernel)
if ($route_state eq $target->{bridge}) {
$pkg->{physdev_out} = $target->{fwpr} || die 'internal error';
} elsif ($from eq 'outside') {
$from_info->{type} = 'outside';
$start_state = 'from-outside';
+ } elsif ($from eq 'nfvm') {
+ $from_info->{type} = 'nfvm';
+ $start_state = 'from-nfvm';
} elsif ($from =~ m/^ct(\d+)$/) {
my $vmid = $1;
$from_info = extract_ct_info($vmdata, $vmid);
} elsif ($to eq 'outside') {
$target->{type} = 'outside';
$target->{iface} = $outside_iface;
+ } elsif ($to eq 'nfvm') {
+ $target->{type} = 'nfvm';
+ $target->{iface} = $nfvm_iface;
} elsif ($to =~ m/^ct(\d+)$/) {
my $vmid = $1;
$target = extract_ct_info($vmdata, $vmid);