1 package PVE
::Network
::SDN
::Zones
::EvpnPlugin
;
5 use PVE
::Network
::SDN
::Zones
::VxlanPlugin
;
6 use PVE
::Tools
qw($IPV4RE);
11 use PVE
::Network
::SDN
::Controllers
::EvpnPlugin
;
13 use base
('PVE::Network::SDN::Zones::VxlanPlugin');
23 description
=> "l3vni.",
27 description
=> "Frr router name",
35 nodes
=> { optional
=> 1},
36 'vrf-vxlan' => { optional
=> 0 },
37 'controller' => { optional
=> 0 },
38 mtu
=> { optional
=> 1 },
42 # Plugin implementation
43 sub generate_sdn_config
{
44 my ($class, $plugin_config, $zoneid, $vnetid, $vnet, $controller, $subnet_cfg, $interfaces_config, $config) = @_;
46 my $tag = $vnet->{tag
};
47 my $alias = $vnet->{alias
};
48 my $ipv4 = $vnet->{ipv4
};
49 my $ipv6 = $vnet->{ipv6
};
50 my $mac = $vnet->{mac
};
52 my $vrf_iface = "vrf_$zoneid";
53 my $vrfvxlan = $plugin_config->{'vrf-vxlan'};
55 die "missing vxlan tag" if !$tag;
56 warn "vlan-aware vnet can't be enabled with evpn plugin" if $vnet->{vlanaware
};
58 my @peers = PVE
::Tools
::split_list
($controller->{'peers'});
59 my ($ifaceip, $iface) = PVE
::Network
::SDN
::Zones
::Plugin
::find_local_ip_interface_peers
(\
@peers);
62 $mtu = $interfaces_config->{$iface}->{mtu
} - 50 if $interfaces_config->{$iface}->{mtu
};
63 $mtu = $plugin_config->{mtu
} if $plugin_config->{mtu
};
66 my $vxlan_iface = "vxlan_$vnetid";
67 my @iface_config = ();
68 push @iface_config, "vxlan-id $tag";
69 push @iface_config, "vxlan-local-tunnelip $ifaceip" if $ifaceip;
70 push @iface_config, "bridge-learning off";
71 push @iface_config, "bridge-arp-nd-suppress on";
73 push @iface_config, "mtu $mtu" if $mtu;
74 push(@{$config->{$vxlan_iface}}, @iface_config) if !$config->{$vxlan_iface};
79 my @subnets = PVE
::Tools
::split_list
($vnet->{subnets
}) if $vnet->{subnets
};
80 foreach my $subnet (@subnets) {
81 next if !defined($subnet_cfg->{ids
}->{$subnet});
82 push @iface_config, "address $subnet_cfg->{ids}->{$subnet}->{gateway}" if $subnet_cfg->{ids
}->{$subnet}->{gateway
};
85 push @iface_config, "hwaddress $mac" if $mac;
86 push @iface_config, "bridge_ports $vxlan_iface";
87 push @iface_config, "bridge_stp off";
88 push @iface_config, "bridge_fd 0";
89 push @iface_config, "mtu $mtu" if $mtu;
90 push @iface_config, "alias $alias" if $alias;
91 push @iface_config, "ip-forward on" if $ipv4;
92 push @iface_config, "ip6-forward on" if $ipv6;
93 push @iface_config, "arp-accept on" if $ipv4||$ipv6;
94 push @iface_config, "vrf $vrf_iface" if $vrf_iface;
95 push(@{$config->{$vnetid}}, @iface_config) if !$config->{$vnetid};
100 push @iface_config, "vrf-table auto";
101 push(@{$config->{$vrf_iface}}, @iface_config) if !$config->{$vrf_iface};
104 #l3vni vxlan interface
105 my $iface_vrf_vxlan = "vrfvx_$zoneid";
107 push @iface_config, "vxlan-id $vrfvxlan";
108 push @iface_config, "vxlan-local-tunnelip $ifaceip" if $ifaceip;
109 push @iface_config, "bridge-learning off";
110 push @iface_config, "bridge-arp-nd-suppress on";
111 push @iface_config, "mtu $mtu" if $mtu;
112 push(@{$config->{$iface_vrf_vxlan}}, @iface_config) if !$config->{$iface_vrf_vxlan};
115 my $brvrf = "vrfbr_$zoneid";
117 push @iface_config, "bridge-ports $iface_vrf_vxlan";
118 push @iface_config, "bridge_stp off";
119 push @iface_config, "bridge_fd 0";
120 push @iface_config, "mtu $mtu" if $mtu;
121 push @iface_config, "vrf $vrf_iface";
122 push(@{$config->{$brvrf}}, @iface_config) if !$config->{$brvrf};
130 my ($class, $zoneid, $zone_cfg, $controller_cfg) = @_;
132 # verify that controller exist
133 my $controller = $zone_cfg->{ids
}->{$zoneid}->{controller
};
134 if (!defined($controller_cfg->{ids
}->{$controller})) {
135 die "controller $controller don't exist";
137 die "$controller is not a evpn controller type" if $controller_cfg->{ids
}->{$controller}->{type
} ne 'evpn';
140 #vrf-vxlan need to be defined
142 my $vrfvxlan = $zone_cfg->{ids
}->{$zoneid}->{'vrf-vxlan'};
143 # verify that vrf-vxlan is not already declared in another zone
144 foreach my $id (keys %{$zone_cfg->{ids
}}) {
145 next if $id eq $zoneid;
146 die "vrf-vxlan $vrfvxlan is already declared in $id"
147 if (defined($zone_cfg->{ids
}->{$id}->{'vrf-vxlan'}) && $zone_cfg->{ids
}->{$id}->{'vrf-vxlan'} eq $vrfvxlan);
153 sub vnet_update_hook
{
154 my ($class, $vnet) = @_;
156 raise_param_exc
({ tag
=> "missing vxlan tag"}) if !defined($vnet->{tag
});
157 raise_param_exc
({ tag
=> "vxlan tag max value is 16777216"}) if $vnet->{tag
} > 16777216;
159 if (!defined($vnet->{mac
})) {
160 my $dc = PVE
::Cluster
::cfs_read_file
('datacenter.cfg');
161 $vnet->{mac
} = PVE
::Tools
::random_ether_addr
($dc->{mac_prefix
});