1 package PVE
::Network
::SDN
::Zones
::EvpnPlugin
;
5 use PVE
::Network
::SDN
::Zones
::VxlanPlugin
;
6 use PVE
::Tools
qw($IPV4RE);
8 use PVE
::Network
::SDN
::Controllers
::EvpnPlugin
;
10 use base
('PVE::Network::SDN::Zones::VxlanPlugin');
20 description
=> "l3vni.",
24 description
=> "Frr router name",
32 nodes
=> { optional
=> 1},
33 'vrf-vxlan' => { optional
=> 0 },
34 'controller' => { optional
=> 0 },
35 mtu
=> { optional
=> 1 },
39 # Plugin implementation
40 sub generate_sdn_config
{
41 my ($class, $plugin_config, $zoneid, $vnetid, $vnet, $controller, $interfaces_config, $config) = @_;
43 my $tag = $vnet->{tag
};
44 my $alias = $vnet->{alias
};
45 my $ipv4 = $vnet->{ipv4
};
46 my $ipv6 = $vnet->{ipv6
};
47 my $mac = $vnet->{mac
};
50 my $vrfvxlan = $plugin_config->{'vrf-vxlan'};
52 die "missing vxlan tag" if !$tag;
54 my @peers = split(',', $controller->{'peers'});
55 my ($ifaceip, $iface) = PVE
::Network
::SDN
::Zones
::Plugin
::find_local_ip_interface_peers
(\
@peers);
58 $mtu = $interfaces_config->{$iface}->{mtu
} - 50 if $interfaces_config->{$iface}->{mtu
};
59 $mtu = $plugin_config->{mtu
} if $plugin_config->{mtu
};
62 my @iface_config = ();
63 push @iface_config, "vxlan-id $tag";
65 push @iface_config, "vxlan-local-tunnelip $ifaceip" if $ifaceip;
66 push @iface_config, "bridge-learning off";
67 push @iface_config, "bridge-arp-nd-suppress on";
69 push @iface_config, "mtu $mtu" if $mtu;
70 push(@{$config->{"vxlan$vnetid"}}, @iface_config) if !$config->{"vxlan$vnetid"};
74 push @iface_config, "address $ipv4" if $ipv4;
75 push @iface_config, "address $ipv6" if $ipv6;
76 push @iface_config, "hwaddress $mac" if $mac;
77 push @iface_config, "bridge_ports vxlan$vnetid";
78 push @iface_config, "bridge_stp off";
79 push @iface_config, "bridge_fd 0";
80 push @iface_config, "mtu $mtu" if $mtu;
81 push @iface_config, "alias $alias" if $alias;
82 push @iface_config, "ip-forward on" if $ipv4;
83 push @iface_config, "ip6-forward on" if $ipv6;
84 push @iface_config, "arp-accept on" if $ipv4||$ipv6;
85 push @iface_config, "vrf $vrf" if $vrf;
86 push(@{$config->{$vnetid}}, @iface_config) if !$config->{$vnetid};
91 push @iface_config, "vrf-table auto";
92 push(@{$config->{$vrf}}, @iface_config) if !$config->{$vrf};
95 #l3vni vxlan interface
96 my $iface_vxlan = "vxvrf$vrf";
98 push @iface_config, "vxlan-id $vrfvxlan";
99 push @iface_config, "vxlan-local-tunnelip $ifaceip" if $ifaceip;
100 push @iface_config, "bridge-learning off";
101 push @iface_config, "bridge-arp-nd-suppress on";
102 push @iface_config, "mtu $mtu" if $mtu;
103 push(@{$config->{$iface_vxlan}}, @iface_config) if !$config->{$iface_vxlan};
106 my $brvrf = "br$vrf";
108 push @iface_config, "bridge-ports $iface_vxlan";
109 push @iface_config, "bridge_stp off";
110 push @iface_config, "bridge_fd 0";
111 push @iface_config, "mtu $mtu" if $mtu;
112 push @iface_config, "vrf $vrf";
113 push(@{$config->{$brvrf}}, @iface_config) if !$config->{$brvrf};
121 my ($class, $zoneid, $zone_cfg, $controller_cfg) = @_;
123 # verify that controller exist
124 my $controller = $zone_cfg->{ids
}->{$zoneid}->{controller
};
125 if (!defined($controller_cfg->{ids
}->{$controller})) {
126 die "controller $controller don't exist";
128 die "$controller is not a evpn controller type" if $controller_cfg->{ids
}->{$controller}->{type
} ne 'evpn';
131 #vrf-vxlan need to be defined
133 my $vrfvxlan = $zone_cfg->{ids
}->{$zoneid}->{'vrf-vxlan'};
134 # verify that vrf-vxlan is not already declared in another zone
135 foreach my $id (keys %{$zone_cfg->{ids
}}) {
136 next if $id eq $zoneid;
137 die "vrf-vxlan $vrfvxlan is already declared in $id"
138 if (defined($zone_cfg->{ids
}->{$id}->{'vrf-vxlan'}) && $zone_cfg->{ids
}->{$id}->{'vrf-vxlan'} eq $vrfvxlan);