]>
Commit | Line | Data |
---|---|---|
f5eabba0 | 1 | package PVE::Network::SDN::Zones::VlanPlugin; |
f8140d53 AD |
2 | |
3 | use strict; | |
4 | use warnings; | |
f5eabba0 | 5 | use PVE::Network::SDN::Zones::Plugin; |
f8140d53 | 6 | |
f5eabba0 | 7 | use base('PVE::Network::SDN::Zones::Plugin'); |
f8140d53 AD |
8 | |
9 | sub type { | |
10 | return 'vlan'; | |
11 | } | |
12 | ||
6bffe819 AD |
13 | PVE::JSONSchema::register_format('pve-sdn-vlanrange', \&pve_verify_sdn_vlanrange); |
14 | sub pve_verify_sdn_vlanrange { | |
f8140d53 AD |
15 | my ($vlanstr) = @_; |
16 | ||
f5eabba0 | 17 | PVE::Network::SDN::Zones::Plugin::parse_tag_number_or_range($vlanstr, '4096'); |
f8140d53 AD |
18 | |
19 | return $vlanstr; | |
20 | } | |
21 | ||
22 | sub properties { | |
23 | return { | |
938ebef7 AD |
24 | 'bridge' => { |
25 | type => 'string', | |
eec580bf | 26 | }, |
f8140d53 AD |
27 | }; |
28 | } | |
29 | ||
30 | sub options { | |
31 | ||
32 | return { | |
c2b9c173 | 33 | nodes => { optional => 1}, |
938ebef7 | 34 | 'bridge' => { optional => 0 }, |
7d1035b2 | 35 | mtu => { optional => 1 } |
f8140d53 AD |
36 | }; |
37 | } | |
38 | ||
39 | # Plugin implementation | |
6bffe819 | 40 | sub generate_sdn_config { |
ba7ac021 | 41 | my ($class, $plugin_config, $zoneid, $vnetid, $vnet, $controller, $interfaces_config, $config) = @_; |
7d1035b2 AD |
42 | |
43 | my $bridge = $plugin_config->{bridge}; | |
44 | my $vlan_aware = PVE::Tools::file_read_firstline("/sys/class/net/$bridge/bridge/vlan_filtering"); | |
45 | my $is_ovs = 1 if !-d "/sys/class/net/$bridge/brif"; | |
7d1035b2 AD |
46 | |
47 | my $tag = $vnet->{tag}; | |
48 | my $alias = $vnet->{alias}; | |
49 | my $mtu = $plugin_config->{mtu} if $plugin_config->{mtu}; | |
7d1035b2 | 50 | |
0be2f7ec AD |
51 | my $vnet_uplink = "ln_".$vnetid; |
52 | my $vnet_uplinkpeer = "pr_".$vnetid; | |
7d1035b2 | 53 | |
0be2f7ec AD |
54 | my @iface_config = (); |
55 | ||
56 | if($is_ovs) { | |
57 | ||
58 | # keep vmbrXvY for compatibility with existing network | |
59 | # eth0----ovs vmbr0--(ovsintport tag)---->vnet---->vm | |
60 | ||
61 | @iface_config = (); | |
62 | push @iface_config, "ovs_type OVSIntPort"; | |
63 | push @iface_config, "ovs_bridge $bridge"; | |
607db889 AD |
64 | if($vnet->{vlanaware}) { |
65 | push @iface_config, "ovs_options vlan_mode=dot1q-tunnel tag=$tag"; | |
66 | } else { | |
67 | push @iface_config, "ovs_options tag=$tag"; | |
68 | } | |
0be2f7ec AD |
69 | push(@{$config->{$vnet_uplink}}, @iface_config) if !$config->{$vnet_uplink}; |
70 | ||
880f6d61 AD |
71 | #redefine main ovs bridge, ifupdown2 will merge ovs_ports |
72 | @iface_config = (); | |
73 | push @iface_config, "ovs_ports $vnet_uplink"; | |
74 | push(@{$config->{$bridge}}, @iface_config); | |
75 | ||
0be2f7ec AD |
76 | @iface_config = (); |
77 | push @iface_config, "ovs_type OVSBridge"; | |
78 | push @iface_config, "ovs_ports $vnet_uplink"; | |
79 | push(@{$config->{$bridge}}, @iface_config) if !$config->{$bridge}; | |
7d1035b2 | 80 | |
0be2f7ec AD |
81 | } elsif ($vlan_aware) { |
82 | # eth0----vlanaware bridge vmbr0--(vmbr0.X tag)---->vnet---->vm | |
83 | $vnet_uplink = "$bridge.$tag"; | |
84 | } else { | |
85 | ||
86 | # keep vmbrXvY for compatibility with existing network | |
87 | # eth0<---->eth0.X----vmbr0v10------vnet---->vm | |
88 | ||
89 | my $bridgevlan = $bridge."v".$tag; | |
90 | ||
91 | my @bridge_ifaces = (); | |
92 | my $dir = "/sys/class/net/$bridge/brif"; | |
93 | PVE::Tools::dir_glob_foreach($dir, '(((eth|bond)\d+|en[^.]+)(\.\d+)?)', sub { | |
94 | push @bridge_ifaces, $_[0]; | |
95 | }); | |
96 | ||
97 | my $bridge_ports = ""; | |
98 | foreach my $bridge_iface (@bridge_ifaces) { | |
99 | $bridge_ports .= " $bridge_iface.$tag"; | |
100 | } | |
101 | ||
102 | @iface_config = (); | |
103 | push @iface_config, "link-type veth"; | |
104 | push @iface_config, "veth-peer-name $vnet_uplinkpeer"; | |
105 | push(@{$config->{$vnet_uplink}}, @iface_config) if !$config->{$vnet_uplink}; | |
106 | ||
107 | @iface_config = (); | |
108 | push @iface_config, "link-type veth"; | |
109 | push @iface_config, "veth-peer-name $vnet_uplink"; | |
110 | push(@{$config->{$vnet_uplinkpeer}}, @iface_config) if !$config->{$vnet_uplinkpeer}; | |
111 | ||
112 | @iface_config = (); | |
113 | push @iface_config, "bridge_ports $bridge_ports $vnet_uplinkpeer"; | |
114 | push @iface_config, "bridge_stp off"; | |
115 | push @iface_config, "bridge_fd 0"; | |
116 | push(@{$config->{$bridgevlan}}, @iface_config) if !$config->{$bridgevlan}; | |
7d1035b2 AD |
117 | } |
118 | ||
0be2f7ec AD |
119 | #vnet bridge |
120 | @iface_config = (); | |
121 | push @iface_config, "bridge_ports $vnet_uplink"; | |
7d1035b2 AD |
122 | push @iface_config, "bridge_stp off"; |
123 | push @iface_config, "bridge_fd 0"; | |
912fb443 AD |
124 | if($vnet->{vlanaware}) { |
125 | push @iface_config, "bridge-vlan-aware yes"; | |
126 | push @iface_config, "bridge-vids 2-4094"; | |
127 | } | |
7d1035b2 AD |
128 | push @iface_config, "mtu $mtu" if $mtu; |
129 | push @iface_config, "alias $alias" if $alias; | |
0be2f7ec | 130 | push(@{$config->{$vnetid}}, @iface_config) if !$config->{$vnetid}; |
7d1035b2 AD |
131 | |
132 | return $config; | |
f8140d53 AD |
133 | } |
134 | ||
6ed053c1 AD |
135 | sub status { |
136 | my ($class, $plugin_config, $zone, $id, $vnet, $err_config, $status, $vnet_status, $zone_status) = @_; | |
137 | ||
138 | my $bridge = $plugin_config->{bridge}; | |
139 | $vnet_status->{$id}->{zone} = $zone; | |
140 | $zone_status->{$zone}->{status} = 'available' if !defined($zone_status->{$zone}->{status}); | |
141 | ||
142 | if($err_config) { | |
143 | $vnet_status->{$id}->{status} = 'pending'; | |
144 | $vnet_status->{$id}->{statusmsg} = $err_config; | |
145 | $zone_status->{$zone}->{status} = 'pending'; | |
146 | } elsif ($status->{$bridge}->{status} && $status->{$bridge}->{status} eq 'pass') { | |
147 | $vnet_status->{$id}->{status} = 'available'; | |
148 | } else { | |
149 | $vnet_status->{$id}->{status} = 'error'; | |
150 | $vnet_status->{$id}->{statusmsg} = 'missing bridge'; | |
151 | $zone_status->{$zone}->{status} = 'error'; | |
152 | } | |
153 | } | |
154 | ||
f8140d53 AD |
155 | 1; |
156 | ||
157 |