]>
git.proxmox.com Git - pve-network.git/blob - PVE/Network/SDN/Zones/QinQPlugin.pm
c5016f55d56e06e11aa6a20842e523156f1edd14
1 package PVE
::Network
::SDN
::Zones
::QinQPlugin
;
5 use PVE
::Network
::SDN
::Zones
::Plugin
;
6 use PVE
::Exception
qw(raise raise_param_exc);
8 use base
('PVE::Network::SDN::Zones::Plugin');
19 description
=> "Service-VLAN Tag",
28 enum
=> ['802.1q', '802.1ad'],
38 nodes
=> { optional
=> 1},
39 'tag' => { optional
=> 0 },
40 'bridge' => { optional
=> 0 },
41 'mtu' => { optional
=> 1 },
42 'vlan-protocol' => { optional
=> 1 },
43 dns
=> { optional
=> 1 },
44 reversedns
=> { optional
=> 1 },
45 dnszone
=> { optional
=> 1 },
46 ipam
=> { optional
=> 1 },
50 # Plugin implementation
51 sub generate_sdn_config
{
52 my ($class, $plugin_config, $zoneid, $vnetid, $vnet, $controller, $controller_cfg, $subnet_cfg, $interfaces_config, $config) = @_;
54 my $stag = $plugin_config->{tag
};
55 my $mtu = $plugin_config->{mtu
};
56 my $bridge = $plugin_config->{'bridge'};
57 my $vlanprotocol = $plugin_config->{'vlan-protocol'};
58 my $ctag = $vnet->{tag
};
59 my $alias = $vnet->{alias
};
61 PVE
::Network
::SDN
::Zones
::Plugin
::find_bridge
($bridge);
63 my $vlan_aware = PVE
::Network
::SDN
::Zones
::Plugin
::is_vlanaware
($bridge);
64 my $is_ovs = PVE
::Network
::SDN
::Zones
::Plugin
::is_ovs
($bridge);
66 my @iface_config = ();
67 my $vnet_bridge_ports = "";
71 #ovs--->ovsintport(dot1q-tunnel tag)------->vlanawarebrige-----(tag)--->vnet
73 $vlanprotocol = "802.1q" if !$vlanprotocol;
74 my $svlan_iface = "sv_".$zoneid;
75 my $zone = "z_$zoneid";
77 #ovs dot1q-tunnel port
79 push @iface_config, "ovs_type OVSIntPort";
80 push @iface_config, "ovs_bridge $bridge";
81 push @iface_config, "ovs_mtu $mtu" if $mtu;
82 push @iface_config, "ovs_options vlan_mode=dot1q-tunnel tag=$stag other_config:qinq-ethtype=$vlanprotocol";
83 push(@{$config->{$svlan_iface}}, @iface_config) if !$config->{$svlan_iface};
85 #redefine main ovs bridge, ifupdown2 will merge ovs_ports
86 @{$config->{$bridge}}[0] = "ovs_ports" if !@{$config->{$bridge}}[0];
87 my @ovs_ports = split / / , @{$config->{$bridge}}[0];
88 @{$config->{$bridge}}[0] .= " $svlan_iface" if !grep( $_ eq $svlan_iface, @ovs_ports );
90 #zone vlan aware bridge
92 push @iface_config, "mtu $mtu" if $mtu;
93 push @iface_config, "bridge-stp off";
94 push @iface_config, "bridge-ports $svlan_iface";
95 push @iface_config, "bridge-fd 0";
96 push @iface_config, "bridge-vlan-aware yes";
97 push @iface_config, "bridge-vids 2-4094";
98 push(@{$config->{$zone}}, @iface_config) if !$config->{$zone};
100 $vnet_bridge_ports = "$zone.$ctag";
102 } elsif ($vlan_aware) {
104 #vlanawarebrige-(tag)----->vlanwarebridge-(tag)----->vnet
106 my $zone = "z_$zoneid";
110 push @iface_config, "bridge-vlan-protocol $vlanprotocol";
111 push(@{$config->{$bridge}}, @iface_config) if !$config->{$bridge};
116 push @iface_config, "mtu $mtu" if $mtu;
117 push @iface_config, "bridge-stp off";
118 push @iface_config, "bridge-ports $bridge.$stag";
119 push @iface_config, "bridge-fd 0";
120 push @iface_config, "bridge-vlan-aware yes";
121 push @iface_config, "bridge-vids 2-4094";
122 push(@{$config->{$zone}}, @iface_config) if !$config->{$zone};
124 $vnet_bridge_ports = "$zone.$ctag";
128 #eth--->eth.x(svlan)--->eth.x.y(cvlan)---->vnet
130 my @bridge_ifaces = PVE
::Network
::SDN
::Zones
::Plugin
::get_bridge_ifaces
($bridge);
132 foreach my $bridge_iface (@bridge_ifaces) {
134 # use named vlan interface to avoid too long names
135 my $svlan_iface = "sv_$zoneid";
136 my $cvlan_iface = "cv_$vnetid";
140 push @iface_config, "vlan-raw-device $bridge_iface";
141 push @iface_config, "vlan-id $stag";
142 push @iface_config, "vlan-protocol $vlanprotocol" if $vlanprotocol;
143 push(@{$config->{$svlan_iface}}, @iface_config) if !$config->{$svlan_iface};
147 push @iface_config, "vlan-raw-device $svlan_iface";
148 push @iface_config, "vlan-id $ctag";
149 push(@{$config->{$cvlan_iface}}, @iface_config) if !$config->{$cvlan_iface};
151 $vnet_bridge_ports .= " $cvlan_iface";
157 push @iface_config, "bridge_ports $vnet_bridge_ports";
158 push @iface_config, "bridge_stp off";
159 push @iface_config, "bridge_fd 0";
160 if($vnet->{vlanaware
}) {
161 push @iface_config, "bridge-vlan-aware yes";
162 push @iface_config, "bridge-vids 2-4094";
164 push @iface_config, "mtu $mtu" if $mtu;
165 push @iface_config, "alias $alias" if $alias;
166 push(@{$config->{$vnetid}}, @iface_config) if !$config->{$vnetid};
171 my ($class, $plugin_config, $zone, $vnetid, $vnet, $status) = @_;
173 my $bridge = $plugin_config->{bridge
};
176 if (!-d
"/sys/class/net/$bridge") {
177 push @$err_msg, "missing $bridge";
181 my $vlan_aware = PVE
::Network
::SDN
::Zones
::Plugin
::is_vlanaware
($bridge);
182 my $is_ovs = PVE
::Network
::SDN
::Zones
::Plugin
::is_ovs
($bridge);
184 my $tag = $vnet->{tag
};
185 my $vnet_uplink = "ln_".$vnetid;
186 my $vnet_uplinkpeer = "pr_".$vnetid;
189 my $ifaces = [ $vnetid, $bridge ];
191 my $svlan_iface = "sv_".$zone;
192 my $zonebridge = "z_$zone";
193 push @$ifaces, $svlan_iface;
194 push @$ifaces, $zonebridge;
195 } elsif ($vlan_aware) {
196 my $zonebridge = "z_$zone";
197 push @$ifaces, $zonebridge;
199 my $svlan_iface = "sv_$vnetid";
200 my $cvlan_iface = "cv_$vnetid";
201 push @$ifaces, $svlan_iface;
202 push @$ifaces, $cvlan_iface;
205 foreach my $iface (@{$ifaces}) {
206 if (!$status->{$iface}->{status
}) {
207 push @$err_msg, "missing $iface";
208 } elsif ($status->{$iface}->{status
} ne 'pass') {
209 push @$err_msg, "error $iface";
215 sub vnet_update_hook
{
216 my ($class, $vnet_cfg, $vnetid, $zone_cfg) = @_;
218 my $vnet = $vnet_cfg->{ids
}->{$vnetid};
219 my $tag = $vnet->{tag
};
221 raise_param_exc
({ tag
=> "missing vlan tag"}) if !defined($vnet->{tag
});
222 raise_param_exc
({ tag
=> "vlan tag max value is 4096"}) if $vnet->{tag
} > 4096;
224 # verify that tag is not already defined in another vnet on same zone
225 foreach my $id (keys %{$vnet_cfg->{ids
}}) {
226 next if $id eq $vnetid;
227 my $othervnet = $vnet_cfg->{ids
}->{$id};
228 my $other_tag = $othervnet->{tag
};
229 next if $vnet->{zone
} ne $othervnet->{zone
};
230 raise_param_exc
({ tag
=> "tag $tag already exist in vnet $id"}) if $other_tag && $tag eq $other_tag;